hola gente, perdonlas molestias, recurro a ustedes con este tema por que no encontre en el buscador ninguna informacion
en un module tengo esta conexion:
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;"
cn.Open
If cn.State = adStateOpen Then
menu.Show
Else
MsgBox "no coneta"
End
End If
End Sub
y necesito mostrar en un form -> combo1 los datos de la columna empresa "de la tabla empresas"
desde ya muchas gracias. y buena semana a todos.
ya encontre un ejemplo en otra web. abajo esta el autor, o quien escribio. muchas gracias igualmente
Private Sub Combo1_GotFocus()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=datos;" _
& "UID=root;PWD=root;PORT=3306;OPTION=131072 "
cnn.Open
Set rst = New ADODB.Recordset
sql$ = "select empresa from empresas" 'selecciona tabla y columna
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With
Combo1.Clear
rst.MoveFirst
Do
Combo1.AddItem rst.Fields!empresa.Value 'muestra en el combo1 lista de columna empresa
rst.MoveNext
Loop Until rst.EOF
Set rst = Nothing
Set cnn = Nothing
End Sub
abraham