Problema con Visual Basic 6.0 y DataBase
Buenas, tengo un problema al buscar en los registros de una base de datos:
El código es el siguiente: (recortado)
Set db = DBEngine.OpenDatabase(App.Path & "\Motos1.mdb", False, False, ";pwd=" & contraseña & "")
Set rs1 = db.OpenRecordset("Nuevas")
Set rs2 = db.OpenRecordset("Usadas")
Set rs3 = db.OpenRecordset("Vendidas")
Asi declaro la base de datos y las tablas.
Dim valor As String
valor = Val(Text8.Text)
If Trim$(valor) <> "" Then
rs1.FindFirst ("Marca='" & valor & "'")
End If
Entonces al buscar me da el siguiente error:
Error '3251'en tiempo de ejecución:
Que la operación no es soportada por este tipo de objeto.
En la linea:
rs1.FindFirst ("Marca='" & valor & "'")
No se si no pongo alguna propiedad correcta para que se realize la búsqueda.
¿Alguien podría ayudarme?
Gracias de antemano.
El código es el siguiente: (recortado)
Set db = DBEngine.OpenDatabase(App.Path & "\Motos1.mdb", False, False, ";pwd=" & contraseña & "")
Set rs1 = db.OpenRecordset("Nuevas")
Set rs2 = db.OpenRecordset("Usadas")
Set rs3 = db.OpenRecordset("Vendidas")
Asi declaro la base de datos y las tablas.
Dim valor As String
valor = Val(Text8.Text)
If Trim$(valor) <> "" Then
rs1.FindFirst ("Marca='" & valor & "'")
End If
Entonces al buscar me da el siguiente error:
Error '3251'en tiempo de ejecución:
Que la operación no es soportada por este tipo de objeto.
En la linea:
rs1.FindFirst ("Marca='" & valor & "'")
No se si no pongo alguna propiedad correcta para que se realize la búsqueda.
¿Alguien podría ayudarme?
Gracias de antemano.
1 respuesta
Respuesta de kieleze
1