elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  llenar combobox con tabla mysql vb6		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: llenar combobox con tabla mysql vb6  (Leído 3,462 veces)
elmatador2

Desconectado Desconectado

Mensajes: 29


Ver Perfil
llenar combobox con tabla mysql vb6
« en: 30 Septiembre 2015, 20:35 pm »
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:

Código
  1. Public cn As ADODB.Connection
  2. Public rs As ADODB.Recordset
  3. Sub Main()
  4. Set cn = New ADODB.Connection
  5. cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;"
  6. cn.Open
  7. If cn.State = adStateOpen Then
  8.  
  9. menu.Show
  10.  
  11.  
  12. Else
  13. MsgBox "no coneta"
  14. End
  15. End If
  16.  
  17. End Sub
  18.  

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.
En línea
elmatador2

Desconectado Desconectado

Mensajes: 29


Ver Perfil
Re: llenar combobox con tabla mysql vb6
« Respuesta #1 en: 1 Octubre 2015, 04:36 am »
ya encontre un ejemplo en otra web. abajo esta el autor, o quien escribio. muchas gracias igualmente

Código
  1. Private Sub Combo1_GotFocus()
  2.  
  3. Dim cnn As ADODB.Connection
  4. Dim rst As ADODB.Recordset
  5. Dim sql$
  6.  
  7. Set cnn = New ADODB.Connection
  8. cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
  9. & "SERVER=localhost;" _
  10. & "DATABASE=datos;" _
  11. & "UID=root;PWD=root;PORT=3306;OPTION=131072 "
  12.  
  13. cnn.Open
  14.  
  15. Set rst = New ADODB.Recordset
  16.  
  17. sql$ = "select empresa from empresas"  'selecciona tabla y columna
  18.  
  19. With rst
  20. .CursorLocation = adUseClient
  21. .CursorType = adOpenKeyset
  22. .LockType = adLockOptimistic
  23. .Open sql$, cnn, , , adCmdText
  24. End With
  25.  
  26. Combo1.Clear
  27. rst.MoveFirst
  28.  
  29. Do
  30. Combo1.AddItem rst.Fields!empresa.Value 'muestra en el combo1 lista de columna empresa
  31. rst.MoveNext
  32. Loop Until rst.EOF
  33.  
  34.  
  35. Set rst = Nothing
  36. Set cnn = Nothing
  37.  
  38.  
  39. End Sub


abraham
 
« Última modificación: 1 Octubre 2015, 04:41 am por elmatador2 » En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
llenar combobox con dns de sistema
Programación Visual Basic 		abel_c_b 1 3,658 Último mensaje 4 Abril 2010, 22:29 pm
por seba123neo
llenar un textbox con un combobox
.NET (C#, VB.NET, ASP) 		damian23 1 4,204 Último mensaje 28 Junio 2014, 06:10 am
por Eleкtro
[AYUDA]llenar un Combobox c#
.NET (C#, VB.NET, ASP) 		vinceet 5 7,060 Último mensaje 7 Noviembre 2014, 17:46 pm
por vinceet
MOVIDO: llenar un Combobox c#
Programación C/C++ 		Eternal Idol 0 1,605 Último mensaje 7 Noviembre 2014, 00:22 am
por Eternal Idol
llenar un combobox condatos y autocompletar
.NET (C#, VB.NET, ASP) 		_CrisiS_ 0 1,939 Último mensaje 4 Septiembre 2018, 06:34 am
por _CrisiS_
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines