
- Код: Выделить всё
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim FName As String
CD1.FileName = "": Path = ""
CD1.ShowOpen
If CD1.FileName <> "" Then
a = Split(CD1.FileName, "\")
For i = 0 To UBound(a) - 1
Path = Path & "\" & a(i)
Next
Path = Right(Path, Len(Path) - 1)
File1.Path = Path
File1.Refresh
File1.ListIndex = 0
FName = File1.FileName
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path & ";Extended Properties=dBase IV"
cn.Mode = adModeReadWrite
cn.Open
For i = 1 To File1.ListCount - 1
File1.ListIndex = i
If UCase(Right(File1.FileName, 3)) = "DBF" Then
SQL = "Insert into " & FName & _
" Select * from " & File1.FileName
cn.Execute (SQL)
g = g + 1
End If
Next
MsgBox "К " & FName & " приаттачено файлов: " & g
cn.Close
Set cn = Nothing
End If
End Sub
Так вот некоторые dbf он склеивает нормально, но вот есть одна кучка, которые надо залить в один, а код спотыкается пишет:
"в операции должен использоваться обновляемый запрос"
По поиску пробивал, но там только про ASP и какие-то права

А тут вроде работает, но не со всеми dbf.