
04/10/2011, 09:22
|
| | Fecha de Ingreso: octubre-2011
Mensajes: 1
Antigüedad: 13 años, 5 meses Puntos: 0 | |
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 |