Como Cargar Un Combobox Desde Una Tabla Sql

[NickoMeex]

Tengo que cargar un combobox, con los datos de la tabla ''bancos'' , con el campo, ''nombrebanco''

esta tabla, esta aparte de la tabla ''Transferencia'' , de la cual saco los otros datos para mostrarlos en los textbox.

Todo esto se maneja con procedimientos almacenados.

y no se como cargar los datos, al combobox, de la tabla bancos.. aca les dejo el codigo...


CODIGO:


Private Sub Form_Load()

If MostrarDatos(17334627) = False Then
MsgBox SQL.MensajeUsuario, vbInformation, Me.Caption
Exit Sub
End If

End Sub


Public Function MostrarDatos(intRutBeneficiario As Long) As Boolean

MostrarDatos = False
SQL.SQL = ""
SQL.SQL = "Exec spSns_Transferencias"
SQL.SQL = SQL.SQL & " " & intRutBeneficiario


If SQL.EjecutarSQL() = False Then
SQL.MensajeUsuario = "¡Error Al Recuperar Documentos!"
SQL.CerrarSQL
Exit Function
End If

If SQL.Siguiente = True Then

txtNombre.Text = SQL.Campo(1)
txtNombreTitular.Text = SQL.Campo(2)
txtNumeroCuenta.Text = SQL.Campo(3)
txtRut.Text = SQL.Campo(4)
txtEmail.Text = SQL.Campo(5)
cmbTipoCuenta.Text = "SELECCIONE CUENTA"
cmbBanco.Text = "SELECCIONE BANCO"

Else
SQL.MensajeUsuario = "¡No existen Datos!"
End If

SQL.CerrarSQL

MostrarDatos = True

End Function

[gerardo_goh]

Hola Amigo te dejo un ejemplo de cargar datos de una base de datos, mi bd esta creada en Mysql, Nada más adaptala a tus necesidades:

Código vb:

'=========================================================
'Asignacion de variables de conexion a la base de datos  =
'=========================================================
 
Public rs_tblestado As ADODB.Recordset
 
Sub datos_tblestado()
  Set rs_tblestado = New ADODB.Recordset
  On Error Resume Next
  With rs_tblestado
      .ActiveConnection = con
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      .Open "SELECT idestado,nom_estado FROM tblestado"
  End With
End Sub
 
Private Sub Form_Load()
    Dim siguiente As Integer
    conectar
    datos_tblestado
 
    
    Set dgEstado.DataSource = rs_tblestado
    Set dgLiga.DataSource = rs_tblliga
    '--------------------------------------------------------
    With rs_tblestado
         Do Until .EOF
    ' suponemos que la columna a cargar es la primera
            cboEstado.AddItem .Fields(1)
            .MoveNext
         Loop
    End With
        
End Sub
 
'Esto es en un modulo
'Variables globales
Public con As Connection
 
Public Sub conectar()
  Set con = New ADODB.Connection
  con.ConnectionString = "driver={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=****;database=***;connection=3306"
  con.Open
End Sub
 

Saludos!!!