Como cargo un combobox con datos de una tabla,
La conexion ya la tengo hecha ..
mi codigo es el siguiente al cargar los datos, a los textbox....
y mi idea, es cargar los combobox, con datos de una tabla...todo esto es con procedimientos almacenados, el cual ya tengo..pero me falta cargar los datos al combobox, y que me aparezca el banco que corresponda, seleccionado al cargarse...y permita actualizar los datos...
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
mi codigo es el siguiente al cargar los datos, a los textbox....
y mi idea, es cargar los combobox, con datos de una tabla...todo esto es con procedimientos almacenados, el cual ya tengo..pero me falta cargar los datos al combobox, y que me aparezca el banco que corresponda, seleccionado al cargarse...y permita actualizar los datos...
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