-
From ADO to DAO
I need to trasform this ADO code for DAO, i spossible?
tks.
Code:
...
Set objCommand = New ADODB.Command
With objCommand
.ActiveConnection = CONN
.CommandText = "AGG_ALBERO1"
.CommandType = adCmdStoredProc
.Prepared = True
.Execute , , adExecuteNoRecords
Set objCommand = Nothing
End With
...
-
Re: From ADO to DAO
Try next
Code:
Dim Rs as Recordset
' Open your desired database here.
Set MyDB = DBEngine.Workspaces(0).OpenDatabase(...
Set Rs = MyDB.OpenRecordset("AGG_ALBERO1", dbOpenSnapshot, dbSQLPassThrough)
-
Re: From ADO to DAO
Quote:
Originally Posted by
jggtz
Try next
Code:
Dim Rs as Recordset
' Open your desired database here.
Set MyDB = DBEngine.Workspaces(0).OpenDatabase(...
Set Rs = MyDB.OpenRecordset("AGG_ALBERO1", dbOpenSnapshot, dbSQLPassThrough)
nice!!! tkx.
i'm new with DAO...
but this tips really spoeed up the query exceution directlly the Query in Acces databse? or exists other way?
note:
I want to migrate the project to ADO but i need to change, perpah a milion of lines, and i not have time for tath:-)