Programación General > Visual Basic 6.0 e inferiores

 Llenar Datacombo

(1/1)

minostalgia:
Hola compañeros queria que me guiaran este es mi problema tengo un procedimiento de un data combo

Sub CargaCombo(CoMbO As DataCombo, RS_ As ADODB.Recordset, CoD As String, DsC As String)
Set CoMbO.RowSource = RS_
CoMbO.ListField = DsC
CoMbO.BoundColumn = CoD
End Sub

bueno hasta alli todo bien

Set rsA = New ADODB.Recordset
rsA.Open "select * from articulos", nc, adOpenKeyset, adLockOptimistic


Call CargaCombo(DataCombo2, rsA, "codigo", "descripcion")

bueno este es el datacombo que quiero que lo cargue o muestre todos lo datos que tengo en mi campo aarticulos
el detalle quiero que me muestre la descripcion y bueno cuando ponga clik en el boton agregar  que lo muestre en mi data grid y me muestre de la siguiente manera !!no me muestra los datos demi campo descripcion

codigo una columna (el codigo del articulo )
descripcion en otra columna
todo esto  en el  datagrid
cree una funcion para este fin

Function CrearTemporal() As ADODB.Recordset
    Dim RStEMPORAL As New ADODB.Recordset
    RStEMPORAL.Fields.Append "COD_ART", adVarChar, 5, adFldIsNullable
    RStEMPORAL.Fields.Append "DESCRIPCION", adVarChar, 100, adFldIsNullable
    RStEMPORAL.Fields.Append "CANTIDAD", adInteger, , adFldIsNullable
    RStEMPORAL.Fields.Append "eSTADO", adVarChar, 100, adFldIsNullable
    RStEMPORAL.Open
    Set CrearTemporal = RStEMPORAL
End Function

y bueno lleno mi datagrid
  Set Rs_Detalle = CrearTemporal()
   Set Me.DataGrid1.DataSource = Rs_Detalle

cuando hago todo esto no me parace los datos de mi campo en el datacombo que es el campo descripcion ayudense porfa

F_Tanori:
Resulta muy dificil entenderte.


--- Cita de: "minostalgia" ---bueno hasta alli todo bien

Set rsA = New ADODB.Recordset
rsA.Open "select * from articulos", nc, adOpenKeyset, adLockOptimistic


Call CargaCombo(DataCombo2, rsA, "codigo", "descripcion")

bueno este es el datacombo que quiero que lo cargue o muestre todos lo datos que tengo en mi campo aarticulos
--- Fin de la cita ---

articulos es una tabla no un campo segun tu codigo, explicanos la idea mas clara, que debe mostrar el combo?

a que te refieres con :


--- Cita de: "minostalgia" ---el detalle quiero que me muestre la descripcion y bueno cuando ponga clik en el boton agregar que lo muestre en mi data grid y me muestre de la siguiente manera !!no me muestra los datos demi campo descripcion
--- Fin de la cita ---

Saludos

minostalgia:
No carga mi data combo con el campo decsripcion
Set rsA = New ADODB.Recordset
rsA.Open "select * from articulos", nc, adOpenKeyset, adLockOptimistic


Call CargaCombo(DataCombo2, rsA, "codigo", "descripcion")

F_Tanori:

--- Cita de: "minostalgia" ---No carga mi data combo con el campo decsripcion
Set rsA = New ADODB.Recordset
rsA.Open "select * from articulos", nc, adOpenKeyset, adLockOptimistic


Call CargaCombo(DataCombo2, rsA, "codigo", "descripcion")

--- Fin de la cita ---

Te refieres a que la funcion no llena el Combo?, intenta pasaselo como referencia

--- Código: Visual Basic --- Sub CargaCombo(ByRef CoMbO As DataCombo, RS_ As ADODB.Recordset, CoD As String, DsC As String)          Set CoMbO.RowSource = RS_               CoMbO.ListField = DsC               CoMbO.BoundColumn = CoDEnd Sub 
 o devolviendo el control

--- Código: Visual Basic --- FunctionCargaCombo( RS_ As ADODB.Recordset, CoD As String, DsC As String) DataCombo          Set CargaCombo.RowSource = RS_               CargaCombo.ListField = DsC               CargaCombo.BoundColumn = CoDEnd Function  DataCombo2 = CargaCombo(rsA, "codigo", "descripcion")  
Saludos

Navegación

[0] Índice de Mensajes