mechita
12 de Agosto del 2003

hola, gracias por leer este mesaje y espero ke me puedan ayudar...
bueno esta es mi pregunta
¿como puedo hacer para ke al momento de seleccionar un registro activo de mi listbox (este registro tiene gusrdados datos de mi BD) este pase registros a un textbox ke tengo, les envio el codigo ke tengo hasta el momento para ke lo cheken, c aceptan sugerencias y comentarios ok
buenos gracias de antemano.......
atentamente meche

Private Sub Form_Load()

Dim recordf As Object
Dim base As Database

Set base = OpenDatabase("C:Documents and SettingsmercedesMis documentosYOBTImeche.mdb")
Set recordf = base.OpenRecordset("select * from inventario")

Set Data1.Recordset = recordf

Dim datos_productos(15000) As String
Dim total As Integer

total = Data1.Recordset.RecordCount

Dim t As Integer
List1.Clear
Data1.Recordset.MoveFirst

For t = 1 To total

datos_productos(t) = RTrim(Data1.Recordset.Fields("nombre"))
Data1.Recordset.MoveNext

Next t

For t = 1 To total
List1.AddItem datos_productos(t)
Next t

End Sub

Private Sub List1_Click()

busqueda = RTrim(List1)

End Sub

Private Sub Text2_Change()

Dim SQL As String
SQL = "Select preciounitario From inventario where nombre='" & busqueda & "'"
Data1.RecordSource = SQL
Data1.Visible = False
Data1.Refresh

End Sub

SnAchk
12 de Agosto del 2003

Hola mira esta es una sugerencia yo lo hice asi con un dataenviroment(proyecto-agregar data environment) bueno haces la coneccion (supongo que sabes como hacerla) despues seleccionas con el boton DERECHE el comando que contiene tu tabla es decir el comando que insertaste en el dataenvironment y sin soltarlo lo arrastras hasta el formulacion te va a salir un sub menu que te dira entre otrsa cosas "Cuadricula de datos" seleccionas esta y te colocara un DBgrid con los registros de la tabla luego haces lo mismo pero seleccionas en el submenu "Controles enlazados" y te aparecerean los respectivos textbox con sus etiquetas y listo ejecutas y almomento de pinchar un registro del DBgrid los textbox mostraran la informacion del registro que pinchaste
ojala que entiendas si no escribeme
adios