Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/10/2010, 10:19
carluchito
 
Fecha de Ingreso: octubre-2010
Mensajes: 1
Antigüedad: 13 años, 7 meses
Puntos: 0
Exclamación enlazar datos desde un combo a textbox soy principiante

buenos dias estoy realizando un programa donde tengo la tabla de access llamada sptec01 donde estan los campos serial, nombre, departamento y modelo.
ya disene el formulario en visual basic 6.0 y tengo un combobox donde se despliegan los distintos seriales que tengo almacenados en dicha tabla. he estado tratando de buscar en los distintos foros como hacer para que a medida que introdusca los datos del serial se desplieguen en los textbox nombre, modelo y departamento. este es el codigo que tengo hasta ahora y solo me funciona el combo box. agradezco de antemano su ayuda ya que no tengo experiencia en esto. gracias!!!!

este es el codigo:

Private Sub Form_load()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
' suponemos que la BD está en el mismo directorio que la aplicación
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\dcs.mdb"
rst.CursorLocation = adUseClient
rst.Open "SELECT * FROM sptec01", cnn, adOpenStatic, adLockOptimistic
With rst
Do Until .EOF
' suponemos que la columna a cargar es la primera
cboserial.AddItem .Fields(0)

.MoveNext
Loop
End With

End Sub