0

Estoy intentando llenar un combobox desde una consulta en sql server pero no muestra nada..

parte del codigo es:

Private Sub cmdTipoPago_Change()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Cnn.Open
rs.CursorLocation = adUseClient
rs.Open "SELECT ClaveDeMetodoDePago, MetodoDePago FROM CatalogoDeFormaDePago", Cnn, adOpenStatic, adLockOptimistic

Combo1.Text = "[Seleccione el tipo de pago]"
Do Until rs.EOF
Combo1.Additem rs!MetodoDePago
Combo1.ItemData(Combo1.NewIndex) = rs.Collect("ClaveDeMetodoDePago")

rs.MoveNext
Loop
End Sub

en el modulo general tengo la conexion al servidor.

Lo mas curiosos es que es en visual basic 6 (no lo decidi yo asi estaba desde que llegue, empece a trabajar en C# el nuevo sistema pero tengo que agregar esta funcion

Al final logre anexarlo

Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset

sql = "SELECT ClaveDeMetodoDePago, MetodoDePago FROM CatalogoDeFormaDePago"

rs.CursorLocation = adUseClient
rs.Open sql, Cnn, adOpenStatic, adLockOptimistic

cmdTipoPago.Text = "[Seleccione la forma de pago]"
Do Until rs.EOF
cmdTipoPago.Additem rs!MetodoDePago
cmdTipoPago.ItemData(cmdTipoPago.NewIndex) = rs.Collect("ClaveDeMetodoDePago")
rs.MoveNext
Loop

1 respuesta 1

0

Al final logre hacerlo con esta parte del codigo.

Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset

sql = "SELECT ClaveDeMetodoDePago, MetodoDePago FROM CatalogoDeFormaDePago"

rs.CursorLocation = adUseClient
rs.Open sql, Cnn, adOpenStatic, adLockOptimistic

cmdTipoPago.Text = "[Seleccione la forma de pago]"
Do Until rs.EOF
cmdTipoPago.Additem rs!MetodoDePago
cmdTipoPago.ItemData(cmdTipoPago.NewIndex) = rs.Collect("ClaveDeMetodoDePago")
rs.MoveNext
Loop

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.