Visual Basic - un ejemplo simple por fa...

Life is soft - evento anual de software empresarial
 
Vista:

un ejemplo simple por fa...

Publicado por Alvaro (25 intervenciones) el 14/09/2000 00:00:00
Hola...necesito un ejemplo simple pero super
urgente....me estoy iniciando y llevo mas de 1 semana en lo mismo..

tengo una BD access 2000
nombre
direccion
telefono

lo que necesito es crear un ComboBox o DataCombo
con por ej: la lista de nombres...
hasta ahi..todo bien, eso ya lo consegui..el problema comienza cuando quiero que me muestre los
datos del nombre que he seleccionado...

Gracias a quien me ayude...es super urgente
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:un ejemplo simple por fa...

Publicado por Gusys (17 intervenciones) el 14/09/2000 00:00:00
Hola, bueno si extraes los nombres de tu base de datos entonces create una simple consultita mas o menos asi:
dim aux as adodb.recordset
y las de mas vainas

set aux = open(Select * from tu tabla where nombre=´" & combobox1.text & "´")
despues de eso ya sabes que tienes una tablita en aux solo de esa persona no?, entonces manejas sus demas datos.
y listo espero te sirva chau
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

Ejemplo SIMPLE

Publicado por edu (423 intervenciones) el 14/09/2000 00:00:00
Espero que te sirva:

Private Sub Combo1_Click()

Data1.Recordset.MoveFirst
Data1.Recordset.Move Combo1.ListIndex
Text1.Text = Data1.Recordset.Fields("nu_tlf")
End Sub

Private Sub Command1_Click()

Data1.Recordset.MoveFirst
Data1.Recordset.Index = "Nombre"

Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("nb_cliente")
Data1.Recordset.MoveNext
Loop


End Sub

Bueno aqui yo llene el combox al apretar un boton en tu casi tu sabras cuando lo llenas, PRIMERO indexas el recordset por el nombre almacenas en el orden del rescordset los nombres en el combobox

Data1.Recordset.MoveFirst
´Indexas
Data1.Recordset.Index = "Nombre"
´Llenas el combobox
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("nb_cliente")
Data1.Recordset.MoveNext
Loop

Luego no cuando haga click en uno de los nombres lo que tienes que hacer es moverte los combox como los recordset el primer elemento es 0, esto significa que si seleccionas el elemento 10 del combobox, es lo equivalente al elemento 10 de tu imagen del Recordset, lo que tienes que hacer es moverte con Data1.recordset.move

Espero que te sirva
Atte.
Eduardo
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