SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Omarrpat en Viernes 13 de Junio de 2003, 21:31

Título: Re: consultas sql con funciones
Publicado por: Omarrpat en Viernes 13 de Junio de 2003, 21:31

:think::think:

Como es posible deesplegar o tener el valor de una operacion en sql en la cual se realiza el conteo de x campo o suma y poder tenerlo este para manipular o realizar operaciones mi codigo es el siguiente




Dim rsGenerico As ADODB.Recordset
Dim cnConexion As ADODB.Connection
Dim strCadGenerica As String

    Set cnConexion = New ADODB.Connection
    cnConexion.CursorLocation = adUseClient    'para cliente
    cnConexion.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDatos & mdbDatosNom & ";"
   
   
   
    strCadGenerica = "SELECT Sum(tblRelEventoTipoViol.IDTipoViolencia) AS SumaDeIDTipoViolencia "
    strCadGenerica = strCadGenerica & "FROM tblNotificaciones INNER JOIN tblRelEventoTipoViol ON tblNotificaciones.IDNotificacion = tblRelEventoTipoViol.IDNotificacion "
    strCadGenerica = strCadGenerica & "HAVING (((tblNotificaciones.Fecha) Between #01/01/2003# And #01/03/2003#) AND ((tblRelEventoTipoViol.IDTipoViolencia)=1));"
   
   
    Set rsGenerico = New ADODB.Recordset
    rsGenerico.Open strCadGenerica, cnConexion, adOpenDynamic, adLockReadOnly
    Me.txtTotal1.SetText (rsGenerico.RecordCount)
   
    Me.txtTotal1.SetText (rsGenerico.Fields(0))
   


Les encargo ayuda urge

Título: Re: consultas sql con funciones
Publicado por: HurryCrack en Lunes 16 de Junio de 2003, 23:51

Perdona pero al responderte supongo ke le di a nuevo tema en vez de responder. Tu duda creo ke esta resulta en SQL, ke esta en el foro con mi nick, fale? un saludo
:hippi:

Título: consultas sql con funciones
Publicado por: Omarrpat en Martes 17 de Junio de 2003, 17:38

Gracias,  me la he pasado haciendo pruebas y mas que nada el error consiste en la clausula de condición