04/06/2005, 20:28
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 212
Antigüedad: 22 años Puntos: 0 | |
| Te digo lo que hago yo, quizas te sirve para comparar:
Teniendo la referencia al ADODB ya cargada, en un modulo:
Public MasterConn As New ADODB.Connection
Public MasterAccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Application.StartupPath & "\base.mdb"
Public MasterRs As New ADODB.Recordset
En el form:
MasterConn.ConnectionString = MasterAccessConnect
MasterConn.Open(MasterAccessConnect)
MasterRs = New ADODB.Recordset
MasterRs.Open("SELECT * FROM adjuntos where idcodigo = '" & gid & "' order by nombrefile asc", MasterConn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
MasterRs.addnew()
MasterRs.Fields.Item("nombrefile").Value="pirulo"
MasterRs.Addnew()
Abrazo
__________________ Simuladores y Examenes Cisco, Herramientas de Red Online - Tecnologia y Redes |