Problema con recordset
Publicado por governador (21 intervenciones) el 24/10/2007 19:59:31
Que es lo que hago mal??
El error que da es: NO COINCIDEN LOS TIPOS
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase(App.Path & "\material.mdb")
Set rst = dbs.OpenRecordset("Select NOMBRECLIE,MONTAJE,DESCRIPCION,MODELO, SERIE,FACTURACORESA, FECHASALIDA from material where FECHASALIDA >= #" & Format(DTPicker1, "mm/dd/yyyy") & "# and FECHASALIDA <= #" & Format(DTPicker2, "mm/dd/yyyy") & "# AND SALIDA='SI' AND FACTURACORESA='' order by FECHASALIDA")
MSFlexGrid1.DataSource = rst ' AQUI DA EL ERROR
rst.Close
dbs.Close
GRACIAS:
El error que da es: NO COINCIDEN LOS TIPOS
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase(App.Path & "\material.mdb")
Set rst = dbs.OpenRecordset("Select NOMBRECLIE,MONTAJE,DESCRIPCION,MODELO, SERIE,FACTURACORESA, FECHASALIDA from material where FECHASALIDA >= #" & Format(DTPicker1, "mm/dd/yyyy") & "# and FECHASALIDA <= #" & Format(DTPicker2, "mm/dd/yyyy") & "# AND SALIDA='SI' AND FACTURACORESA='' order by FECHASALIDA")
MSFlexGrid1.DataSource = rst ' AQUI DA EL ERROR
rst.Close
dbs.Close
GRACIAS:
Valora esta pregunta


0