Consulta con Like
Hola, estoy empezando a programar con ADO y datagrid y tengo el siguiente problema:
Para consultar en una tabla por DNI o por Apellidos y nombre hago los siguiente:
Private Sub mnuConsultasConsultarDirección_Click()
campo = InputBox("Introduzca la Dirección:", "Padrones")
consulta = "Select utm, num_fijo, DNI, Apell_nombre, nom_via_f, " & _
"pri_num_f, nom_mun_f, nom_prov_f from [Urbana2002] where nom_via_f like " & _
"'*" & campo & "*'"
Consultar.Show
End Sub
Private Sub mnuConsultasConsultarDNI_Click()
campo = InputBox("Introduzca el DNI:", "Padrones")
consulta = "Select utm, num_fijo, DNI, Apell_nombre, nom_via_f, " & _
"pri_num_f, nom_mun_f, nom_prov_f from [Urbana2002] where DNI = " & _
"'" & campo & "'"
Consultar.Show
End Sub
En el formulario Consultar tengo un control adodc y un datagrid relacionados:
Private Sub Form_Load()
Adodc1.RecordSource = consulta
Adodc1.Refresh
End Sub
En el caso del DNI me devuelve el registro correcto, pero cuando pido por nombre de vía, no me devuelve nada.
Agradecería vuestra ayuda.
Para consultar en una tabla por DNI o por Apellidos y nombre hago los siguiente:
Private Sub mnuConsultasConsultarDirección_Click()
campo = InputBox("Introduzca la Dirección:", "Padrones")
consulta = "Select utm, num_fijo, DNI, Apell_nombre, nom_via_f, " & _
"pri_num_f, nom_mun_f, nom_prov_f from [Urbana2002] where nom_via_f like " & _
"'*" & campo & "*'"
Consultar.Show
End Sub
Private Sub mnuConsultasConsultarDNI_Click()
campo = InputBox("Introduzca el DNI:", "Padrones")
consulta = "Select utm, num_fijo, DNI, Apell_nombre, nom_via_f, " & _
"pri_num_f, nom_mun_f, nom_prov_f from [Urbana2002] where DNI = " & _
"'" & campo & "'"
Consultar.Show
End Sub
En el formulario Consultar tengo un control adodc y un datagrid relacionados:
Private Sub Form_Load()
Adodc1.RecordSource = consulta
Adodc1.Refresh
End Sub
En el caso del DNI me devuelve el registro correcto, pero cuando pido por nombre de vía, no me devuelve nada.
Agradecería vuestra ayuda.
