14/11/2003, 18:19
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 20 años, 6 meses Puntos: 0 | |
| 'Inicializo un recordset vacío para asignárselo al DataGrid
Function SUB_InicializacionRecordset()
On Error GoTo CONTROL_ERRORES
Set objRSPedido = Nothing
Set objRSPedido = New ADODB.Recordset
' objRSPedido.CursorType = adOpenStatic
With objRSPedido
.Fields.Append "Artículo", adVarChar, 255, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Descripción", adVarChar, 255, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Cantidad", adInteger, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Precio", adCurrency, adFldUpdatable ' And adFldIsNullable
.Fields.Append "% Dto", adBigInt, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Subtotal", adCurrency, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Id", adBigInt, adFldUpdatable ' And adFldIsNullable
.Fields.Append "Iva", adCurrency, adFldUpdatable ' And adFldIsNullable
.Open
End With
Exit Function
CONTROL_ERRORES:
MsgBox "Error, mirar código"
Resume Next
End Function
****************************
Declara como global la variable recordset y cuando vayas a llenar el mismo con datos utiliza:
objRSPedido .addnew
objRSPedido("TUcampo1")="TUdato"
..
..
objRSPedido .update
Set TUdatagrid.DataSource = Gado_rec
'No debes cerrar el recordset mientras quieras los datos en el datagrid
---------------------------------------------------------------------------
a ver si te funciona, pero creo que necesitas una conexión abierta con la BBDD para que no se queje el datagrid, con lo cual tienes otra vez el mismo problema de las librerías. Prueba a meter los datos en otro control que no sea un datagrid. Textbox separados...
Saludos |