Combobox
Hola denciso como puedo llenar un combox en un formulario de visual basic con los datos de los rut de las personas que están en una tabla de una base de datos access, y en textbox me ponga el nobre que cooresponde a ese rut, se como abrir la tabla. Ademas cuando se seleccione el rut, ambos los pueda insertar en otra tabla
Atentamente.
Andres
[email protected]
Atentamente.
Andres
[email protected]
1 Respuesta
Respuesta de denciso
1
Para llenar el combobox tienes que armar una sentencia de selección y agregar elemento a elemento de la consulta.
La siguiente rutina sirve para agregar elementos:
Function LlenaLista(rctlControl As Control, rsSQLTemp As String) As Integer
rctlControl.Clear
Set grs_Recordset = Nothing
If cnx.gf_AbreRecordset(gcx_Conexion, grs_Recordset, rsSQLTemp) Then
Do Until grs_Recordset.EOF
If IsNumeric(grs_Recordset.Fields(0)) Then
rctlControl.AddItem grs_Recordset.Fields(1)
rctlControl.ItemData(rctlControl.NewIndex) = grs_Recordset.Fields(0)
Else
rctlControl.AddItem grs_Recordset.Fields(1) + " " + grs_Recordset.Fields(0)
rctlControl.ItemData(rctlControl.NewIndex) = -1
End If
grs_Recordset.MoveNext
Loop
End If
LlenaLista = rctlControl.ListCount
End Function
Si hablas de colocar en un control de texto el nombre de la clave seleccionada, tienes que colocar un segmento de código de búsqueda en el evento click del combo box para que localice los datos requeridos.
Si terminas, entonces tienes que colocar un botón en donde programes la inserción de los datos en la otra tabla.
La siguiente rutina sirve para agregar elementos:
Function LlenaLista(rctlControl As Control, rsSQLTemp As String) As Integer
rctlControl.Clear
Set grs_Recordset = Nothing
If cnx.gf_AbreRecordset(gcx_Conexion, grs_Recordset, rsSQLTemp) Then
Do Until grs_Recordset.EOF
If IsNumeric(grs_Recordset.Fields(0)) Then
rctlControl.AddItem grs_Recordset.Fields(1)
rctlControl.ItemData(rctlControl.NewIndex) = grs_Recordset.Fields(0)
Else
rctlControl.AddItem grs_Recordset.Fields(1) + " " + grs_Recordset.Fields(0)
rctlControl.ItemData(rctlControl.NewIndex) = -1
End If
grs_Recordset.MoveNext
Loop
End If
LlenaLista = rctlControl.ListCount
End Function
Si hablas de colocar en un control de texto el nombre de la clave seleccionada, tienes que colocar un segmento de código de búsqueda en el evento click del combo box para que localice los datos requeridos.
Si terminas, entonces tienes que colocar un botón en donde programes la inserción de los datos en la otra tabla.
