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
