Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/01/2011, 06:39
sagi58
 
Fecha de Ingreso: noviembre-2009
Mensajes: 1
Antigüedad: 15 años, 3 meses
Puntos: 0
Respuesta: Mostrar datos en un textbox desde un treview

Haz una busqueda en la tabla o RECORDSET por codigo o apellido del registro selecconado, y en la propiedad Text de las cajas, pones los datos de los campos del usuario encontrada.
Primero no olvides de crear la cadena de conexiion a la base.

AQUI TE PONGO UN EJEMPLO:

Private Sub Tree_NodeClick(ByVal Node As MSComctlLib.Node)
With cn
If .State = 1 Then .Close
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbrentas.mdb;Persist Security Info=False"
rsCalles.Open "Select * from calles", cn, adOpenStatic, adLockOptimistic
rsUsuarios.Open "Select * from usuarios", cn, adOpenStatic, adLockOptimistic
End With

Text1.Text = Tree.SelectedItem
cod = Mid(Tree.SelectedItem, 1, 8)
rsUsuarios.Find "codigo ='" & cod & "'"
If Not rsUsuarios.EOF Then
'xcod = rsUsuarios!codigo
Text2.Text = rsUsuarios!direccion & " " & rsUsuarios!nro
Text3.Text = rsUsuarios!codigo
Text4.Text = Val(rsUsuarios!apt)
Text5.Text = Val(rsUsuarios!bpl)
Text6.Text = Val(rsUsuarios!alc)
Text7.Text = Val(rsUsuarios!tot1)
End If
End Sub