Public dbWorkspace As Workspace
Public dbDatabase As Database
Public dbTable As Recordset
Public varsql As String
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase("C:\cash&carry\dat\databa se.mdb")
varsql = "SELECT * FROM clienti"
Set dbTable = dbDatabase.OpenRecordset(varsql)
Perche mi da errore tipo non corrispondente nell'ultima riga?
Ho già usato diverse volte questo codice, ed andava sempre bene.
è access 2000 hai il sp5 su vb?Originariamente inviato da Mychy
Public dbWorkspace As Workspace
Public dbDatabase As Database
Public dbTable As Recordset
Public varsql As String
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase_("C:\cash&carry\dat\comus gestdat.mdb")
varsql = "SELECT * FROM clienti"
Set dbTable = dbDatabase.OpenRecordset(varsql)
Perche mi da errore tipo non corrispondente nell'ultima riga?
Ho già usato diverse volte questo codice, ed andava sempre bene.
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
E' access 2000 ed ho il sp4, ma ho già usato il codice in altri programmi ed è sempre andato bene
No scuso ho il sp5
che tipo di libreria hai incluso?
Permessi di invio
Rispondi quotando