Visual Basic - AYUDA PORFAVORRR!!! (DBCOMBO)

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA PORFAVORRR!!! (DBCOMBO)

Publicado por Dani Martí (13 intervenciones) el 12/11/2003 23:14:16
Buenas a todos!!
Tengo una duda... como puedo hacer para que cuando selecciono un registro de un DBCombo se me actualizen los datos que corresponden al mismo registro??
Tengo algo parecido a esto:
DBCombo
TextBox
TextBox
TextBox

** Lo que quiero es que cuando seleccione un registro del DBCombo en los TextBox siguentes (que estan conectados a la misma Base de Datos) me aparezcan automaticamente los otros campos del registro.

No se si me e explicado muy bien.... de todas maneras si alguiem me puede exar una manita se lo agradecere!!!!!
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 PORFAVORRR!!! (DBCOMBO)

Publicado por Fabian (501 intervenciones) el 13/11/2003 17:32:36
Te propongo otra alternativa hazlo con un DataCombo, enlazas a tu recordset de esta manera:
en el Load del Form:
Set Rs=New Recordset
Rs.CursorLocation=adUserClient
Rs.Open "Select * from Cllientes",Cn
Set DataCombo1.RowSource=Rs
DataCombo1.ListField="Nombre"
DataCombo1.BoundColumn="Codigo"

Luego al dar click para seleccionar un Cliente, evento Click del DataCombo:
If Area=2 then
Rs.Find = "Codigo=' " & Trim(DataCombo1.BoundText) &" ' "
Text1.Text=Rs.Fields(0)
Text2.Text=Rs.Fields(1)
Text3.Text=Rs.Fields(2)
...
end If

Espero te sirva
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:AYUDA PORFAVORRR!!! (DBCOMBO)

Publicado por Fabian (501 intervenciones) el 13/11/2003 17:36:13
Pequeña coreccion en el Rs.Find quitale el igual con lo que quedaria asi:
Rs.Find "Codigo=' " & Trim(DataCombo1.BoundText) &" ' "
Esta es una codificacion utilizando la libreria ADO
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