Hola caballeros un placer saludarlos.
Mi problema es el siguiente.
Private Sub txtBuscar_KeyUp(KeyCode As Integer, Shift As Integer)
Dim sql As String
On Error GoTo ManejoError
griClientes.Clear
Set conexionbd = New ADODB.Connection
Set recordset2 = New ADODB.Recordset
conexionbd.Open "RutaBd"
sql = "select * from Usuarios where Nombres like '" + txtBuscar.Text + "%'"
recordset2.Open sql, conexionbd
recordset2.MoveFirst
i = 1
Do While Not recordset2.EOF
griClientes.Text = "Nombres"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 1
griClientes.Text = "Apellidos"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 0
griClientes.Rows = i
texto = recordset2!Nombres + Chr(9) + recordset2!Apellidos + Chr(9)
griClientes.AddItem texto, i
recordset2.MoveNext
i = i + 1
If txtBuscar.Text = "" Then
griClientes.Clear
End If
Loop
ManejoError:
griClientes.Text = "Nombres"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 1
griClientes.Text = "Apellidos"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 0
End Sub
En este codigo cargo desde un Textbox a la grilla, los nombres y apellidos de un usuario con solo presionar una letra y este automaticamente empieza a mostrar los nombres de los usuarios que comienzan por esa letra, para los principiantes es un ejemplo practico de busqueda.
Lo que quiero hacer ahora es darle doble click al nombre que deseo para llevarme toda su información a otro form.
No tengo idea de como hacer eso.
Si se puede manipular el recordset para que me dé el codigo del usuario seria mucho mejor puesto que solo tendria que utilizar un solo campo.
Gracias de antemano por su tiempo.
