Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/10/2011, 09:22
NickoMeex
 
Fecha de Ingreso: octubre-2011
Mensajes: 1
Antigüedad: 12 años, 7 meses
Puntos: 0
Pregunta Como Cargar Un Combobox Desde Una Tabla Sql

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