06/10/2010, 10:19
|
| | Fecha de Ingreso: octubre-2010
Mensajes: 1
Antigüedad: 14 años, 2 meses Puntos: 0 | |
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 |