| Usuario |
Búsqueda |
Desconocido
|
| Enviado - 16/10/2002 |
| |
Hola muchachos que tal!
Estoy tratando de hacer una simple búsqueda de datos pero nada que me quiere funcionar; seguramente hay algo que no estoy haciendo bien pero no veo el error. Les agradezco me echen una mano!. Les mando la rutina para que por fa la verifiquen:
Private Sub btnbuscar_Click()
Dim sql As String
nombre.Enabled = True
cedula.Enabled = True
ciudad.Enabled = True
blanquear
If cedula.Text = "" Then
MsgBox "Debe introducir el número de cédula a buscar", vbInformation
cedula.SetFocus
Else
If cedula.Text <> "" Then
datos.MoveFirst
If datos.NoMatch = True Then
MsgBox "No hay nada similar al dato ingresado. Inténtalo con otra cédula", vbInformation
datos.MoveFirst
btnincluir.Enabled = False
btnmodificar.Enabled = False
btneliminar.Enabled = False
btnbuscar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = True
btnsalir.Enabled = True
Else
If datos.BOF And datos.EOF Then
MsgBox "la base de datos está vacía", vbInformation
Else
If datos.NoMatch = False Then
sql = "select * from gentio where cedula = '" + cedula + "'"
datos.OpenRecordset
nombre = datos.Fields("nombre")
ciudad = datos.Fields("ciudad")
btnincluir.Enabled = True
btnmodificar.Enabled = True
btneliminar.Enabled = True
btnbuscar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = False
btnsalir.Enabled = True
End If
End If
End If
End If
End If
End Sub
|
| |
|
astrance
7 Mensaje(s)
|
| Enviado - 17/10/2002 |
| |
Hola
En tu rutina no veo la instruccion .Find
ahora si estas haciendo la busqueda con el sql no estas haciendo el llamado a esta instrucción, además cuando buscas por sql debes usar el comodin "&" y no el "+" para realizar la busqueda, yo tengo una rutina de busqueda, si te interesa escribeme a mi correo y te la envio
[email protected]
espero te sirva |
| |
|
|
|
