Visual Basic - BUSQUEDA CON ADO

Life is soft - evento anual de software empresarial
   
Vista:

BUSQUEDA CON ADO

Publicado por Pedrito (16 intervenciones) el 01/07/2009 12:21:27
Hola a todos,

Estoy realizando un programa en vb 6.0, entonces haciendo una busqueda, por la cual utilizo un combobox y un textbox, en el combobox elijo el campo donde voy a realizar la busqueda y el textbox lo que quiero buscar; tengo 2 botones un que pone buscar y otro siguiente (para buscar el siguiente registro que coincida). Hasta aqui perfecto, las cuestiones son (hay varias):

- Cuando pongo algun dato que no existe, no me dice nada, aunque llegue al final de todos los registros.
- La otra cuestión es que cuando le doy al botón Siguiente y no hay mas registro que coincidan y supongo que llega al ultimo registro, no me dice nada tampoco.
Necesitaría que me dijeran que es lo que tengo mal puesto en los dos botones. Aqui expongo lo que he escrito.

Option Explicit
Dim buscar1 As String
Dim mensaje As String
Private Sub cmdBuscar_Click()

frmRULETA.Data1.Recordset.MoveFirst
If txtDatobuscar.Text = "" Or cmdElegirCampo.Text = "" Then
mensaje = MsgBox("Debe llenar todos los campos, vuelva a intentarlo.", vbOKOnly + vbCritical, "Dato incorrecto.")
Else
If Not frmRULETA.Data1.EOFAction Then
buscar1 = cmdElegirCampo & " Like '*" + txtDatobuscar + "*'"
frmRULETA.Data1.Recordset.FindFirst (buscar1)
Else
frmRULETA.Data1.Recordset.MoveFirst
MsgBox ("No hay ningún registro con los datos expuesto")

End If
End If

End Sub

Private Sub cmdSiguiente_Click()

If Not frmRULETA.Data1.EOFAction Then
buscar1 = cmdElegirCampo & " Like '*" + txtDatobuscar + "*'"
frmRULETA.Data1.Recordset.FindNext (buscar1)
Else
frmRULETA.Data1.Recordset.MoveFirst
MsgBox ("No hay mas registro con esos datos")
End If
End Sub

Desearia que me ayudarais a solucionar este tema.

Un saludo,

Pedrito
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:BUSQUEDA CON ADO

Publicado por jaime guerrero (361 intervenciones) el 02/07/2009 16:12:55
despues de cada busca pone

if frmRULETA.Data1.Recordset.eof=true then
msgbox "no existen datos"
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar