Visual Basic - Como busco con un data?

Life is soft - evento anual de software empresarial
 
Vista:

Como busco con un data?

Publicado por Jimmy (13 intervenciones) el 27/03/2003 14:43:06
Ok, tengo una base de datos con una tabla llamada ficha, en el formulario tengo un Data conectado a la base de datos, y el recordsource conectado a la tabla ficha, el Data se llama "datos", la conexion se realiza bien, pero cuando necesito buscar un registro por un campo espesifico, por ejemplo "Id", el data me pide el indice, pero aun no puedo asignarcelo, despues debo comparar la cadena con el campo por el cual indexe la tabla, pero como debo emplear el datos.recordset.seek?

Por favor ayudenme que ya llevo rato en lo mismo y no he podido salir de eso......
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:Como busco con un data?

Publicado por José (129 intervenciones) el 27/03/2003 16:32:10
Bueno, yo lo hago así: (a ver que tal)
Nombre del Control Data: datos

datos.recordset.movefirts
While Not datos.recordset.EOF
If txtCampoID.Text = datos.recordset("IDcampo") Then
txtIDCampo.Text = datos.recordset("IDcampo")
txtNombre.Text = datos.recordset("Nombre")
txtDireccion.Text = datos.recordset("Direccion")
etc.....
Exit Sub
End If
datos.recordset.movenext
Wend
msgbox "No se ha encontrado ningún registro bajo el nombre: " & txtCampo.Text

Puede buscarse el campo sin que necesariamente esté marcado como ID del registro.

Saludos.
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

No Funciona aun

Publicado por Jimmy (13 intervenciones) el 27/03/2003 18:36:45
Ok, este es mi codigo

Private Sub cmdbuscar_Click()
c = InputBox("Inserte el ID", "Busqueda")
datos.Recordset.MoveFirst
While Not datos.Recordset.EOF
If c = datos.Recordset(id) Then *****Aqui da un error " No se Encontro ningun elemento en esta coleccion********

Okm, que hago Jose...., y gracias por tu tiempo

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