30/04/2009, 10:19
|
 | | | Fecha de Ingreso: febrero-2003 Ubicación: Sarasota FL
Mensajes: 147
Antigüedad: 22 años, 3 meses Puntos: 0 | |
| Respuesta: Recordset no conectado
Auto Respuesta:
Public Function rModel() As Recordset
'First Create an a Recordset Object
Set rsShared = New ADODB.Recordset
rsShared.CursorLocation = adUseClient
rsShared.Fields.Append "Modelo", adVarChar, 255
rsShared.Fields.Append "Key", adVarChar, 255
rsShared.Fields.Append "Now", adVarChar, 255
rsShared.Open
'After this point, programming is identical
'to manipulating any other type of
'ADO Recordset object
rsShared.AddNew
rsShared.Fields("Modelo") = "Tu Modelo del KEY REGISTRY"
rsShared.Fields("Key") = "Tu Nombre del KEY VSLUE"
rsShared.Fields("Now") = "0 Por decir algo"
rsShared.Update
Set rModel = rsShared
End Function
esta funcion te devuelve un recordset con el registro que agregamos manual.
Saludos, y al moderador si lo lee, que lo agreguen mas bonito en las FAQS del Foro, ya que no esta documnetado este Append to recordset dynamic. |