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.

1 respuesta

Respuesta
1
¿La condición se escribe así
estas preguntando que marca tenga una parte de valor?
¿Por ejemplo si valor es igual a HON
que te devuelva la marca HONDA?
si la condicion es de cadena completa es asi
rs1.FindFirst ("Marca=" & valor )
si la condicion es con parte de la cadena de marca HON = HONDA
se usa LIKE
rs1.FindFirst ("Marca LIKE '%" & valor & "%'")
Espero haberte ayudado =)
Una saludo desde Rosario, Ezequiel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas