Visual Basic - AYUDA CON ESTA QUERY

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA CON ESTA QUERY

Publicado por [kender] (5 intervenciones) el 02/05/2002 09:34:57
ESTA QUERY M DA ERROR ---> EL OBJETO NO ACEPTE ESTA PROPIEDAD SI ESTA CERRADO Y N ENTIENDO PQ
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Mis documentos\sergio\cenita_SL\cenita.mdb"
'abro tabla
Set tablaempresas = New ADODB.Recordset
sql = "select * from empresa where CIF_NIF='" & buscaCIF & "'"
--->ERROR--->tablaempresas.Open sql, cnn, adOpenDynamic, adLockOptimistic
If tablaempresas.RecordCount = 0 Then
existeempresa = 1
insercion = 1
Else
insercion = 0
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:AYUDA CON ESTA QUERY

Publicado por Iñaki (502 intervenciones) el 02/05/2002 12:23:55
Prueba de esta otra forma:
dim cnn as new Adodb.connection
dim tablaempresas as new adodb.recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Mis documentos\sergio\cenita_SL\cenita.mdb"
sql = "select * from empresa where CIF_NIF='" & buscaCIF & "'"
tablaempresas.Open sql, cnn, adOpenDynamic, adLockOptimistic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar