Ayuda con data control y sentencias sql
Hola, soy argentino de 17, novato en programación. Estoy usando un control data para acceder a una bd hecha con acces 97, me gustaría saber si conoces una forma de concatenar consultas. este es mi problema:
Private Sub cmdbuscar_Click()
bdireccion = txtdireccion
buscado = "[DIRECCION] like '*" & bdireccion & "*' " and "[TIPO] like 'CASA' "
dmodificaciones.Recordset.FindFirst (buscado)
If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La propiedad no se encuentra")
End If
End Sub
cuando agrego lo que resalté en rojo, la búsqueda no funciona. El error es "no coinciden los tipos", tambien probé de concatenarlo pero me da el error "error de sintaxis (falta operador en la expresion)" y me lo da en la linea resaltada con verde.
Bueno, si me podés ayudar buenísimo, sino gracias por leer hasta acá!
Suerte, Seba!
Private Sub cmdbuscar_Click()
bdireccion = txtdireccion
buscado = "[DIRECCION] like '*" & bdireccion & "*' " and "[TIPO] like 'CASA' "
dmodificaciones.Recordset.FindFirst (buscado)
If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La propiedad no se encuentra")
End If
End Sub
cuando agrego lo que resalté en rojo, la búsqueda no funciona. El error es "no coinciden los tipos", tambien probé de concatenarlo pero me da el error "error de sintaxis (falta operador en la expresion)" y me lo da en la linea resaltada con verde.
Bueno, si me podés ayudar buenísimo, sino gracias por leer hasta acá!
Suerte, Seba!
Creo que tu problema esta en la sintaxis. Probá con esta, fijate bien en la consulta y de todas maneras te aconsejo que si querés desarrollar en serio estudies el uso de SQL Server y ADO, es mucho más robusto que Acces . Suerte.
Private Sub CmdBuscar_Click()
Dim bddireccion As String
Dim buscado As String
bdireccion = TxtDireccion.Text
buscado = "[DIRECCION] LIKE '" & bdireccion & "%' AND [TIPO] = 'CASA'"
dmodificaciones.Recordset.FindFirst (buscado)
If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox "La propiedad no se encuentra"
End If
End Sub
Private Sub CmdBuscar_Click()
Dim bddireccion As String
Dim buscado As String
bdireccion = TxtDireccion.Text
buscado = "[DIRECCION] LIKE '" & bdireccion & "%' AND [TIPO] = 'CASA'"
dmodificaciones.Recordset.FindFirst (buscado)
If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox "La propiedad no se encuentra"
End If
End Sub