Обновление записей из одной таблицы в другую таблицу, расположенную в другой папке.
Dim connection As New ADODB.Connection
Dim strConnection As String
Dim pathPrincipal As String
Dim pathUpdate As String 'External data base to update with TablePrincipal
Dim strSQL As String
pathPrincipal = "D:\DBFs"
strConnection = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & PathPrincipal
connection.Open strConnection
If connection.State <> adStateOpen Then Exit Sub
'Верный :)
strSQL="UPDATE TablePrincipal#DBF" & " A INNER JOIN " & "TableUpdate#DBF" & " B ON A.ID = B.ID SET A.X=B.X, A.Y=B.Y"
'Execute
connection.Execute strSQL, n, adCmdText
ПРЕДЫДУЩИЙ КОД РАБОТАЕТ СОВЕРШЕННО.....
НО МОЯ ПРОБЛЕМА В ТОМ, КОГДА ОБА DBF НЕ В ОДНОЙ ПАПКЕ, НО Я ПЫТАЮСЬ ЭТО НЕ ЧТО ДРУГОЕ ДЕЛАТЬ
'No working for external DBF :'( :(
strSQL = "UPDATE TablePrincipal#DBF A INNER JOIN" & _
" OPENROWSET('MSDASQL','Driver={Microsoft dBase Driver (*.dbf)}; DBQ=" & _
pathUpdate & "; SourceType = DBF ','SELECT * FROM TableUpdate#DBF') B" & _
" ON A.ID=B.ID SET A.X=B.X, A.Y=B.Y"
ЛЮБОЙ МОЖЕТ ПОМОЧЬ МНЕ.....ПОЖАЛУЙСТА!!!! ПОМОГИТЕ ИЗВИНЕНИЯ ЗА МОЙ АНГЛИЙСКИЙ :)