No me funciona COUNT, AYUDA
Publicado por Jose (26 intervenciones) el 08/11/2006 21:43:17
Hola, quiero conocer el resultado de una consulta con COUNT y llevar el resultado a una variable, pero no sé si se realiza asi:
Dim db As Database
Dim rs As Recordset
Dim SQL As String
Dim mivariable As Integer
Set db= OpenDatabase(ruta de la base de datos)
SQL = "SELECT Count(*) As Sincroniza from [T COLECTOR] where [1ºSINCRONIZADO]= FALSE"
Set rs = db.OpenRecordset(SQL)
MsgBox rs("Sincroniza")
mivariable = rs!Sincroniza
Pero me da error 13 en tiempo de ejecución: No coinciden los tipos.
la linea afectada es:
Set rs = db.OpenRecordset(SQL)
Gracias por vuestra ayuda.
Dim db As Database
Dim rs As Recordset
Dim SQL As String
Dim mivariable As Integer
Set db= OpenDatabase(ruta de la base de datos)
SQL = "SELECT Count(*) As Sincroniza from [T COLECTOR] where [1ºSINCRONIZADO]= FALSE"
Set rs = db.OpenRecordset(SQL)
MsgBox rs("Sincroniza")
mivariable = rs!Sincroniza
Pero me da error 13 en tiempo de ejecución: No coinciden los tipos.
la linea afectada es:
Set rs = db.OpenRecordset(SQL)
Gracias por vuestra ayuda.
Valora esta pregunta


0