|
Добрый день всем. Короче есть у меня dbf файл , который мне нужно прочитать .я делаю это так. Public Function RSOpen(Path As String, file As String) As Boolean
Dim ConnStr As String
On Error GoTo ERSOpen
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
ConnStr = "Provider=MSDASQL.1;Extended Properties=""CollatingSequence=ASCII;DefaultDir=" & Path & ";Deleted=1;Driver={Microsoft dBase Driver (*.dbf)};DriverId=533;FIL=dBase 5.0;FILEDSN=" & Path & " \ " & " & file & """
'ConnStr = "Provider=MSDASQL.1;Extended Properties=""DSN=dBASE Files;DriverId=533;" & Path & """"
rs.Open file, ConnStr, , , adCmdTable
' íåò äàííûõ â ôàéëå çàïðîñîâ
If rs.EOF Then GoTo ERSOpen
RSOpen = True
Exit Function ERSOpen:
StatusUser "Error: (FrbIn)" & Error, True
RSOpen = False
End Function
так вот когда я подсовываю файл к примеру 123.dbf все нормально ,но когда 123_123 .dbf он мне говорит не может открыть.Ему походу подчерк с низу не навится, но почему????? Если есть у кого какие либо соображения по этому повоту подскажите.
Ответить
|
sia1