Recorset con Where ERROR ???
Publicado por groval (225 intervenciones) el 26/06/2003 00:54:45
Hola .. Gracias por detalle de ayudar... Tengo el siguiente codigo pero apenas le agrego la clausila WHERE no me funciona .. que sera
'===========================
Private Sub ResultadosEstadisticos() ' ESTO ES PARA ARMAR EL RECORSET DE LA INFORMACION ESTADISTICA
Call Open_Database
Set rstResEstadistica = New ADODB.Recordset
Set rstResEstadistica.ActiveConnection = cnn
rstResEstadistica.Open "SELECT *" _
& " FROM tabla_Estadistica" _
& " WHERE Tabla_Estadistica.FECHA= '" & Text1.Text & "'" _
& " Tabla_Estadistica.UNIDAD ='" & Combo1.Text & "'" _
& " AND Tabla_Estadistica.BLANCO ='" & Combo8.Text & "'" _
& " AND Tabla_Estadistica.MUNICIPIO ='" & Combo4.Text & "'"
' MUESTRA LOS DATOS ESTADISTICOS ACUERDO LA CONSULTA
Combo13 = IIf(IsNull(rstResEstadistica("CATEGORIA")), "**Ninguno**", Trim(rstResEstadistica("CATEGORIA")))
Combo14 = IIf(IsNull(rstResEstadistica("RESULTADO")), "**Ninguno**", Trim(rstResEstadistica("RESULTADO")))
Text6 = IIf(IsNull(rstResEstadistica("CANTIDAD")), "**Ninguno**", Trim(rstResEstadistica("CANTIDAD")))
Call Close_Database
End Sub
'=============================
'===========================
Private Sub ResultadosEstadisticos() ' ESTO ES PARA ARMAR EL RECORSET DE LA INFORMACION ESTADISTICA
Call Open_Database
Set rstResEstadistica = New ADODB.Recordset
Set rstResEstadistica.ActiveConnection = cnn
rstResEstadistica.Open "SELECT *" _
& " FROM tabla_Estadistica" _
& " WHERE Tabla_Estadistica.FECHA= '" & Text1.Text & "'" _
& " Tabla_Estadistica.UNIDAD ='" & Combo1.Text & "'" _
& " AND Tabla_Estadistica.BLANCO ='" & Combo8.Text & "'" _
& " AND Tabla_Estadistica.MUNICIPIO ='" & Combo4.Text & "'"
' MUESTRA LOS DATOS ESTADISTICOS ACUERDO LA CONSULTA
Combo13 = IIf(IsNull(rstResEstadistica("CATEGORIA")), "**Ninguno**", Trim(rstResEstadistica("CATEGORIA")))
Combo14 = IIf(IsNull(rstResEstadistica("RESULTADO")), "**Ninguno**", Trim(rstResEstadistica("RESULTADO")))
Text6 = IIf(IsNull(rstResEstadistica("CANTIDAD")), "**Ninguno**", Trim(rstResEstadistica("CANTIDAD")))
Call Close_Database
End Sub
'=============================
Valora esta pregunta


0