combo box y base de datos

yuyita
17 de Agosto del 2004
hola amigos, espero que alguien me pueda ayudar.

Estoy iniciando en visual y tengo las siguientes dudas.
tengo un combo en ese combo necesito jalar datos de mi base de datos (Hecha en Mysql) para que al momento de ejecutar el formulario me muestre los datos y los pueda elegir para guardalos en otra tabla.
Espero haberme explicado bien.
y de antemano muchísimas gracias.

Bartolom
17 de Agosto del 2004
Para eso es mucho más práctico un Datacombo, ya que este te permite relacionar información entre 2 tablas. La gracia de este control (lo sacas del Menú Proyecto, Componentes y ahí seleccionas Microsoft DataList Controls) es que despliega los datos de una tabla y permite colocarlos en otra..
Una vez que tengas el Datacombo en tu form debes hacer lo siguiente, modificar estas propiedades:

Datasource: el control de datos de la tabla que recibirá los datos
Datafield: Campo de esta tabla que recibirá el dato
Boundcolumn: El mismo que DataField
Rowsource: Control de datos de la tabla que quieres desplegar registros,
ListField: Campo de este control de datos.

Esto obviamente es en tiempo de dieño, si lo quieres hacer a través de una conexión, las porpiedades debes modificarlas en tiempo de ejecución

Saludos!
Bartolom
Chile



yuyita
17 de Agosto del 2004
Disculpa por mi necedad pero es que no lo entendí me podrías dar un ejemplo ¿si? por favor

Y mil gracias por haberte tomado la molestia de haber contestado.

Bartolom
17 de Agosto del 2004
Qué fue lo que no entendiste? Cómo configurar el Datacombo o como agregarlo al formulario?

Saludos!
Bartolom
Chile

ProLX
17 de Agosto del 2004
CUALQUIER COSA QUE NO ENTIENDAS ME ESCRIBES AL CORREO.... ESPERO TE SIRVA DE MUCHO.

On Error Resume Next
If combo.Text = "" Then
Dim com As New Command
Dim Flag As Integer
Flag = 0

com.ActiveConnection = nombre de tu variable BD
com.CommandType = adCmdText
com.CommandText = "select DISTINCT campo from tabla"
Set rec = com.Execute
combo.Clear
While Not rec.EOF
combo.AddItem consulta.Fields("campo").value
rec.MoveNext
Flag = 1
Wend
If Flag = 1 Then
combo.ListIndex = 0
End If
Set rec = Nothing: Set com = Nothing
End If