Visual Basic - Busqueda en un recordset

Life is soft - evento anual de software empresarial
 
Vista:

Busqueda en un recordset

Publicado por Federico (12 intervenciones) el 19/07/2006 20:54:47
Hola buenas tardes tengo un problema que no se como resolver.
yo hago una consulta en la base:

Rst.Open "SELECT Maestras.IdMaestra, Maestras.ApellidoMaestra, Maestras.NombreMaestra, Maestras.UsuarioMaestra, Maestras.ClaveMaestra " & _
"From Maestras " & _
"WHERE Maestras.IdEmpresa=" & IdEmpresa & " ", Cnn, adOpenDynamic, adLockBatchOptimistic

Esto me devuelve varios registros, ahora tengo un un textbox que tiene un valor y lo quiero buscar en esos registros y no se como hacer, el campo que quiero buscar es UsuarioMaestra, si alguien me pasa un ejemplo mejor.
Gracias
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
sin imagen de perfil

RE:Busqueda en un recordset

Publicado por Ariel O (27 intervenciones) el 20/07/2006 16:54:30
Private Sub Busca()
Dim pos As Variant

pos = Rst.Bookmark

'puedes usar el like o el =

'debes sacarle los ( ), los puse para q se viera la comilla simple '

Rst.Find "UsuarioMaestra = (')" & Text1.Text & "(') "
Rst.Find "UsuarioMaestra like '*" & Text1.Text & "*'"

If Rst.AbsolutePosition < 1 Then
Rst.Bookmark = pos
MsgBox "no se encontro Usuario Maestra"
End If

End Sub
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

RE:Busqueda en un recordset

Publicado por Federico (12 intervenciones) el 20/07/2006 22:49:21
Me dice "El recordset actual no admite marcadores. Puede deberse a una limitacion del proveedor o del tipo de cursor seleccionado"
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
sin imagen de perfil

RE:Busqueda en un recordset

Publicado por Ariel O (27 intervenciones) el 21/07/2006 17:49:10
Hola tal vez el problema esta

Conexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\base.mdb"

Set Cnn = New ADODB.Connection
Cnn.Open conexion

Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient '--- fijate aqui
Rst.Open "tuSQL", Cnn, adOpenDynamic, adLockBatchOptimistic, adCmdText

esto lo probe y funciona ok!

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

RE:Busqueda en un recordset

Publicado por Federico (12 intervenciones) el 21/07/2006 18:33:21
Y en adCmdText que tebdria que poner
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
sin imagen de perfil

RE:Busqueda en un recordset

Publicado por Ariel O (27 intervenciones) el 21/07/2006 19:31:55
Solo pone adCmdText es un comando q le indica al Rst q estas abriendo una
Consulta sql si pones adCmdTable indicas que abres una tabla directamente.
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

RE:Busqueda en un recordset

Publicado por Federico (12 intervenciones) el 21/07/2006 23:04:18
Gracias
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

RE:Busqueda en un recordset

Publicado por Andres (1 intervención) el 25/07/2006 18:33:24
dim usMaestra as string;
usMaestra=text1.tex 'o el nombre del textbox que sea

Rst.Open "SELECT Maestras.IdMaestra, Maestras.ApellidoMaestra, Maestras.NombreMaestra, Maestras.UsuarioMaestra, Maestras.ClaveMaestra " & _
"From Maestras " & _
"WHERE Maestras.UsuarioMaestra=" & usMaestra & " ", Cnn, adOpenDynamic, adLockBatchOptimistic

Tengo mas ejemplos de ADO con conexiones dinamicas (en tiempo de ejecucion), por si te interesan...

Saludos, desde ya....
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

RE:Busqueda en un recordset

Publicado por Federico (12 intervenciones) el 26/07/2006 16:04:16
Hola buen dia si me las podes mandar te lo agradeseria. Gracias
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