Visual Basic - AYUDA "mismo registro al seleccionar un DataCombo"

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA "mismo registro al seleccionar un DataCombo"

Publicado por Torpon (8 intervenciones) el 18/06/2005 09:36:25
Hola, tengo una base de datos llamada clientes.mdb y dentro de esta una tabla llamada Compradores, la cual consta de los siguientes campos: IdRegistro, NombreyApellidos, Direccion y Telefono, y mi pregunta es como puedo teniendo un formulario llamado FormClientes en el cual tengo colocado dos DataCombox " el DataCombox1 y el DataCombox2", al seleccionar un componente de la lista del DataCombox1, por ejemplo el Nombre y Apellido, me salga en el DataCombox2, la dirección correspondiente a ese cliente.
Gracias y un saludo.
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:AYUDA

Publicado por yeni (146 intervenciones) el 20/06/2005 00:37:27
bueno creo k esto es lo k quieres:

-Yo utilize la conexion ADODB
-el nombre de la tabla es (tabla1)
-Los campos de la tabla son (idregistro - nombres_apellidos - direccion - telefono)

-----------------------------------------------------------------------------

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Profiles\administrador\Escritorio\Nueva carpeta\db1.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select nombres_apellidos from tabla1", cn, adOpenDynamic, adLockPessimistic
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "nombres_apellidos"
DataCombo1.Text = rs(0) ' esto es para ver el primer elemento del select
End Sub


Private Sub DataCombo1_Click(Area As Integer)
Dim x As String
x = "select direccion from tabla1 where nombres_apellidos='" + Trim(DataCombo1.Text) + "'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open x, cn, adOpenDynamic, adLockPessimistic
Set DataCombo2.RowSource = rs
DataCombo2.ListField = "direccion"
DataCombo2.Text = rs(0)
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