2funddd
Когда меня задолбали аналогичные разности (ADP<=>MDB)
Я стал открывать в ADP некоторые формы на DAO рекордсетах
в этом случае они работают так-же как в MDB
И вот это на самом деле извращение.


Dim dbe As DAO.DBEngine
Dim ws As DAO.Workspace
Dim db As DAO.Database
Public Function GetDAORowSourse(FirstCall As Boolean) As DAO.Recordset
Dim q As DAO.QueryDef

If FirstCall Then
'создаю временный MDB-к
Set dbe = New DAO.DBEngine
On Error Resume Next
Kill CurrentProject.Path + "\__tmp.mdb"
Set db = dbe.Workspaces(0).CreateDatabase(CurrentProject.Path + "\__tmp.mdb", dbLangGeneral)
'создаю в нем запрос к серверу
Set q = db.CreateQueryDef("spq")
q.Connect = "ODBC;DRIVER={SQL Server};SERVER=" + GetServerName() + ";DATABASE=" + GetDBName() + ";Trusted_Connection=yes;dsn=;"
Else
Set q = db.QueryDefs("spq")
Me.Painting = False
Me.Recordset.Close
Set Me.Recordset = Nothing
db.Execute "Drop table TmpWr"
End If
'заполняю тело запроса
q.SQL = "exec dbo.Tech_AR_Jurnal_P '" + DateFormat(dtGetDateBeg()) + "','" + DateFormat(dtGetDateEnd()) + "'," & Forms![Tech_AR_Jurnal]!cboVlt_ID & "," & Nz(Forms![Tech_AR_Jurnal]!cboKTPoisk, "NULL")
q.Close
'Выполняю запрос
db.Execute "select * INTO TmpWr from spq"

Set GetDAORowSourse = db.OpenRecordset("SELECT * FROM TmpWr")
Me.Painting = True
End Function