Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Dim Path As String
Dim file_name1 As String
Dim base As ADODB.Connection
Dim bRec As ADODB.Recordset
Set base = New ADODB.Connection
Set bRec = New ADODB.Recordset
base.Mode = adModeReadWrite
base.Open "Driver={Microsoft dBASE Driver (*.dbf)};Dbq=" & Path
bRec.Open "select * from " & file_name1, base, adOpenKeyset, adLockBatchOptimistic
|
в принципе работает. если имя файла короткое, но если имя файла длинное то выскакивает ошибка:
ADO error:[Microsoft][Драйвер ODBC dBase]Усечение данных строки справа ...
я бы решил, что длинные имена вообще не воспринимаются, но на другом компе этот код работает без ошибок.
Что сделать чтоб избавиться от такой ошибки?