Visual Basic - llenar text con datos

Life is soft - evento anual de software empresarial
   
Vista:

llenar text con datos

Publicado por Amado Garcia (1 intervención) el 26/04/2010 18:33:00
HOLA BUENOS DIAS... QUISIERA ME AYUDARAN CON EL SIGUIENTE PROBLEMA .
LO QUE PASA ES QUE ES UN SISTEMA DE AUTOS QUE YA ESTA ELABORADO EN FOX PRO BAJO DOS CREO QUE ES 2.6..... YA TIENE AÑOS... PERO AHORA EN LA DEPENDENCIA DONDE TRABAJO REQUIEREN QUE SE TRASLADE A VISUAL BASIC CON TABLAS DE ACCESS, Y POR ESO REQUIERO DE SU AYUDA Y ES COMO SIGUE:

TENGO UN FORMULARIO EN EL QUE TENGO UNOS TEXTBOX.. QUE REQUIERO LLENAR TAN PRONO SELECCIONE DATOS DE UN COMBO1.

UNA TABLA EN ACCES CON LOS SIGUINTES CAMPOS
V_nombre (nombre del responsable del vehiculo)
marca (marca del vehiculo: nissan, ford, etc.)
placas (placas actualizadas del vehiculo)
tipo_vehiculo = (tipo de vehiculo: pickup, estaca, camion, etc)


Private Sub ComboResponsa()
respon = "SELECT * FROM VEHICULO"
While Not rst1.EOF
Combo1.AddItem rst1!v_nombre
rst1.MoveNext
' Text1.Text = rst1(0) &puse esto pero no me funciona
' Text2.Text = rst1(1) &puse esto pero no me funciona
' Text3.Text = rst1(2) &puse esto pero no me funciona
Wend
Set rst1 = Nothing
End Sub

DONDE !V_NOMBRE es el campo que se despliega en el combo al hacer click

quiero que al seleccionar un nombre de v_nombre (responsable de vehiculo) me rellene los trext1, tex2 y text que corresponden a:

text1 = marca
text2 = placas
text3 = tipo_vehiculo

Saludos
Gracias. amgios.
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:llenar text con datos

Publicado por Pedro Luis (128 intervenciones) el 27/04/2010 08:57:35
¿Estás usando VB 6.0?, porque me suena la musica pero no la letra. El bucle es
Do While
...
...
..
Loop

De todas formas el Combo debe rellenarse en el Load del formulario.
Tambien se debe abrir la base de datos y la tabla.

Private Sub Form_Load()
Set Bdd = OpenDatabase(App.Path + "\" + Base)
Set Rst1 = Bdd.OpenRecordset("Vehiculos")
Rst1.Index = "v_Nombre"
Do Until Rst1.EOF
Combo(1).AddItem Rst1!V_Nombre
Rst1.MoveNext
Loop

En Option explicit tendras que definir las variables Bdd as database,Rst1 as recordset y el nombre de la base de datos, asi como crear un indice en la base de datos V_Nombre.

En el click del combo

rst1.seek "=", combo1
Text1=rst1!Marca
text2=rst1!Placas
etc

También se puede abrir la tabla con un Select y buscar con otro Select pero eso ya es muy moderno para mi.
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