REALIZAR BUSQUEDA URGENTE !!!
Publicado por Alex (31 intervenciones) el 29/05/2006 20:50:41
Hola al foro... ojala exista alguien mas avanzado en programacion que pueda ayudarme, ya q soy novato, mi problema es q necesito hacer una busqueda en una base de datos, pero al realizar la busqueda no selecciona la persona indicada, esto es si busco un Miguel Perez Lopez, lo hace, pero si solo cambia el nombre Angel Perez Lopez, me devuelve los mismos datos de Miguel, en q esta mal mi codigo??? o como debo hace las distincion es muy IMPORTANTE..gracias de antemano y dejo el codigo q esta dentro de un boton de busqueda..
Data1.RecordSource = "select Nombre,Paterno,Materno from Clientes where Nombre ='Txtnombre01.text' AND ( Paterno = 'Txtnombre02.text' and Materno = 'Txtnombre03.text')"
Data1.Recordset.FindFirst "Nombre='" & Txtnombre01.Text & "'"
Data1.Recordset.FindFirst "Paterno='" & Txtnombre02.Text & "'"
Data1.Recordset.FindFirst "Materno='" & Txtnombre03.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL NOMBRE: ") + (Txtnombre01.Text) + (" ") + (Txtnombre02.Text) + (" ") + (Txtnombre03.Text)
Else
Txtdomicilio01.Text = Data1.Recordset!Calle
Txtdomicilio02.Text = Data1.Recordset!Numero
Txtdomicilio03.Text = Data1.Recordset!Colonia
Txtdomicilio04.Text = Data1.Recordset!Ciudad
Txtdomicilio05.Text = Data1.Recordset!Estado
Txtdomicilio06.Text = Data1.Recordset!CP
Txttel01.Text = Data1.Recordset!Telcasa
Txttel02.Text = Data1.Recordset!Telcel
Txtzona.Text = Data1.Recordset!Zona
Txtreferencia.Text = Data1.Recordset!Referencia
End If
Data1.RecordSource = "select Nombre,Paterno,Materno from Clientes where Nombre ='Txtnombre01.text' AND ( Paterno = 'Txtnombre02.text' and Materno = 'Txtnombre03.text')"
Data1.Recordset.FindFirst "Nombre='" & Txtnombre01.Text & "'"
Data1.Recordset.FindFirst "Paterno='" & Txtnombre02.Text & "'"
Data1.Recordset.FindFirst "Materno='" & Txtnombre03.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL NOMBRE: ") + (Txtnombre01.Text) + (" ") + (Txtnombre02.Text) + (" ") + (Txtnombre03.Text)
Else
Txtdomicilio01.Text = Data1.Recordset!Calle
Txtdomicilio02.Text = Data1.Recordset!Numero
Txtdomicilio03.Text = Data1.Recordset!Colonia
Txtdomicilio04.Text = Data1.Recordset!Ciudad
Txtdomicilio05.Text = Data1.Recordset!Estado
Txtdomicilio06.Text = Data1.Recordset!CP
Txttel01.Text = Data1.Recordset!Telcasa
Txttel02.Text = Data1.Recordset!Telcel
Txtzona.Text = Data1.Recordset!Zona
Txtreferencia.Text = Data1.Recordset!Referencia
End If
Valora esta pregunta


0