|
Я вот работаю AccessXP+SQL2000
Использую тока хранимые процедуры, вся обработка данных только на сервере.
Из Access на SQL через ADO вызываю хранимые процедуры (функциями примерно той, что приведена первой),
а данные с сервера на Access притягиваю через DAO: в CurrentDB.QueryDefs подпихиваю имя хранимой процедуры с параметрами (см. пример 2-ой функции), иначе говоря в локальные Access-таблицы данные заливаю посредством исполнения PassTrouth-запроса одним махом (сначала пробовал через ADO, но перебор позаписьно кажной строки и занесение её в локальную Access-таблицу - дело долгое)
Не знаю, у меня есть одна юольшая форма, в которой штук 10-подформ+комбобоксы. Каждый клиент к серверу открывает 2-3 коннекта (2-под DAO, один - под ADO) Работает всё быстро.
Можно полученные данные с сервера в локальных таблицах вязать с другими какими прилинкованными источниками (так привыкли в конторе до меня работать), можно какую-то часть, непринципиальную, скажем подготовка таблиц для шахматки делать уже на клиенте. используя "местный" SQL
А в ADP - работа только с сервером и баста, никакой доп. свободы.
Будет время у меня, можно ADO-поковыряв набросать функции для асинхронной работы.
Уж ADO-то MS не забросит! Правда антаресно, как ADO.Net они подкрутят в Access???
Тема для меня актуальная, жду мнений, советов дельных, а то ж я не от хорошей жизни на Акцесс подсел, принудили... Хотя вижу, и тут жить можно.
Public Function execADO_Sql(pc_SqlCommand As String, pc_TypeCommand As String, ParamArray parr_Spprm() As Variant) As Variant
Dim ln_Low As Integer, ln_High As Integer, tmp_cmd As ADODB.Command, _
tmp_prm As ADODB.Parameter, ll_ExistRetParam As Boolean
If pc_TypeCommand = "SP" Then
ln_High = UBound(parr_Spprm())
If ln_High > 1 And (ln_High + 1) Mod 2 <> 0 Then
execADO_Sql = Null
MsgBox "Äëÿ õðàíèìîé ïðîöåäóðû ïàðàìåòðû äîëæíû ïåðåäàâàòüñÿ ïîïàðíî â âèäå <èìÿ ïàðàìåòðà>, <çíà÷åíèå>, <èìÿ ïàðàìåòðà>, <çíà÷åíèå>"
Exit Function
End If
End If
If OpenConnect = False Then
execADO_Sql = Null
Exit Function
End If
On Error GoTo ErrorHandler
Set tmp_cmd = New ADODB.Command
tmp_cmd.ActiveConnection = cnn
tmp_cmd.CommandText = pc_SqlCommand
tmp_cmd.CommandType = IIf(pc_TypeCommand = "SP", adCmdStoredProc, IIf(pc_TypeCommand = "Text", adCmdText, adCmdUnknown))
If pc_TypeCommand = "SP" Then
If ln_High > -1 Then
For ln_Low = 0 To ln_High Step 2
tmp_cmd.Parameters(IIf(Left(parr_Spprm(ln_Low), 1) = "@", "", "@") & parr_Spprm(ln_Low)) = parr_Spprm(ln_Low + 1)
Next ln_Low
End If
End If
tmp_cmd.Execute Options:=adExecuteNoRecords
If pc_TypeCommand = "SP" Then
For Each tmp_prm In tmp_cmd.Parameters
If tmp_prm.Direction = adParamOutput Or tmp_prm.Direction = adParamInputOutput Then
ll_ExistRetParam = True
execADO_Sql = tmp_prm.Value
Exit For
End If
Next tmp_prm
End If
If ll_ExistRetParam = False Then
execADO_Sql = 1
End If
ExitHere:
Set tmp_cmd = Nothing
Exit Function
ErrorHandler:
On Error GoTo 0
execADO_Sql = Null
Call about_error(Err, " SQL-ERR")
Resume ExitHere
End Function
Public Function Load_dataODBC(pc_Name_SP As String, pc_LocalTblName As String, pl_NoBindTbl As Boolean, ParamArray parr_Spprm() As Variant) As Long
Dim dbsCurrent As Database, ln_Low As Integer, ln_High As Integer, lc_NameTbl As String, _
qdfPassThrough As QueryDef, qdfLocal As QueryDef, lc_QuertySQLName As String, lc_QuertyLocalName As String, _
lu_Val As Variant, lu_InVal As Variant, lnPoz As Integer, lc_StrSql As String
ln_High = UBound(parr_Spprm())
If ln_High > 1 And (ln_High + 1) Mod 2 <> 0 Then
Load_dataODBC = -5
MsgBox "Äëÿ õðàíèìîé ïðîöåäóðû ïàðàìåòðû äîëæíû ïåðåäàâàòüñÿ ïîïàðíî â âèäå <èìÿ ïàðàìåòðà>, <çíà÷åíèå>, <èìÿ ïàðàìåòðà>, <çíà÷åíèå>"
Exit Function
End If
If OpenConnect = False Then
Load_dataODBC = -4
Exit Function
End If
Set dbsCurrent = CurrentDb()
lc_QuertySQLName = "tmp_Q"
lc_QuertyLocalName = "tmp_From"
lc_NameTbl = IIf(Len(Trim(pc_LocalTblName)) > 1, pc_LocalTblName, "tmp_" & frm.name)
lc_StrSql = pc_Name_SP
On Error GoTo ErrorHandler0
If ln_High > -1 Then
For ln_Low = 0 To ln_High Step 2
lu_InVal = parr_Spprm(ln_Low + 1)
If IsNull(lu_InVal) Then
lu_Val = "NULL"
ElseIf IsDate(lu_InVal) Then
lu_Val = "'" & DTOS(lu_InVal) & "'"
ElseIf VarType(lu_InVal) = vbDecimal Or VarType(lu_InVal) = vbDouble Or VarType(lu_InVal) = vbSingle Then
lu_Val = CStr(lu_InVal)
lnPoz = InStr(1, lu_Val, ",")
If lnPoz = 0 Then
lu_Val = "'" & lu_Val & "'"
Else
lu_Val = "'" & Left(lu_Val, lnPoz - 1) & "." & Mid(lu_Val, lnPoz + 1) & "'"
End If
Else
lu_Val = "'" & Trim(CStr(lu_InVal)) & "'"
End If
lc_StrSql = lc_StrSql & IIf(Left(parr_Spprm(ln_Low), 1) = "@", " ", " @") & parr_Spprm(ln_Low) _
& "= " & lu_Val & ","
Next ln_Low
End If
lc_StrSql = IIf(Right(lc_StrSql, 1) = ",", Left(lc_StrSql, Len(lc_StrSql) - 1), lc_StrSql)
'MsgBox lc_StrSql
On Error GoTo ErrorHandler1
Screen.MousePointer = 11
If CheckQuery(lc_QuertySQLName) Then
Set qdfPassThrough = dbsCurrent.QueryDefs(lc_QuertySQLName)
Else
Set qdfPassThrough = dbsCurrent.CreateQueryDef(lc_QuertySQLName)
End If
qdfPassThrough.Connect = pc_ODBCSqlConnection
qdfPassThrough.ReturnsRecords = True
If CheckQuery(lc_QuertyLocalName) Then
Set qdfLocal = dbsCurrent.QueryDefs(lc_QuertyLocalName)
Else
Set qdfLocal = dbsCurrent.CreateQueryDef(lc_QuertyLocalName)
End If
qdfPassThrough.SQL = lc_StrSql
qdfLocal.SQL = "SELECT * INTO " & lc_NameTbl & " FROM " & lc_QuertySQLName
If pl_NoBindTbl = False Then
frm.RecordSource = ""
End If
If CheckTable(lc_NameTbl) Then
dbsCurrent.TableDefs.Delete lc_NameTbl
dbsCurrent.TableDefs.Refresh
End If
On Error GoTo ErrorHandler2
dbsCurrent.QueryDefs(lc_QuertyLocalName).Execute
Load_dataODBC = 1
If pl_NoBindTbl = False Then
frm.RecordSource = lc_NameTbl
End If
ExitHere:
Screen.MousePointer = 0
Set dbsCurrent = Nothing
qdfPassThrough.Close
Set qdfPassThrough = Nothing
Set qdfLocal = Nothing
Exit Function
......
|
