• Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Тема: Как сделать "селект" из DBF файла?

Господа!
Для работы с БД Access использую

 Dim dbCon As New ADODB.Connection
 Dim strConnecting As String
 strConnecting = "Provider=Microsoft.Jet.OLEDB.4.0" _
                & ";Data Source=" & DataBasePath _
                & ";Persist Security Info=False"
 dbCon.ConnectionString = strConnecting
 dbCon.Open
 Set connecT = dbCon
 RS As ADODB.Recordset
 RS.Open SQL, dbCon

и меня это устраивает. Так как можно сделать все что угодно через SQL запросы ...
Как работать с файлами DBF? Можно так-же, сменив "провайдера"? Если да, то на какого? Или придется использовать ODBC? Пример можно ...

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как сделать "селект" из DBF файла?

Фишка в том, что нужна информация из БД 1C. В моем случае это "скопление" таблиц DBF .

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как сделать "селект" из DBF файла?

[rus]eto kusok koda dlya raboty s raznymi tipami baz.
shlepni [/rus] CommonDialog на форму и попробуй 

With CommonDialog1
    .DialogTitle = "Locate Data"
    .Filter = "Excel WorkBook|*.xls|Access Database|*.mdb|dBase III|*.dbf|Text Files|*.txt|"
    .FilterIndex = 2
    .ShowOpen
End With
Dim ext As String
Dim fileStr As String
Dim patStr As String
fileStr = CommonDialog1.FileName
If fileStr = "" Then
OptionButton1.Value = True
'OptionButton2.Value = False
Exit Sub
End If
ext = StrReverse(Mid(StrReverse(fileStr), 1, 3))
Select Case ext
    Case "xls", "XLS"
        Set DaoDB = OpenDatabase(fileStr, False, True, "Excel 8.0")
        Set Tabs = DaoDB.TableDefs
    Case "dbf", "DBF"
        patStr = StrReverse(Mid(StrReverse(fileStr), InStr(StrReverse(fileStr), "\")))
        fileStr = StrReverse(fileStr)
        fileStr = StrReverse(Mid(fileStr, 5, InStr(fileStr, "\") - 5))
        Set DaoDB = OpenDatabase(patStr, 0, 1, "dBASE III;")
        Set Tabs = DaoDB.TableDefs(fileStr)
    Case "mdb", "MDB"
        Set DaoDB = OpenDatabase(fileStr)
        Set Tabs = DaoDB.TableDefs
    Case "txt", "TXT"
        patStr = StrReverse(Mid(StrReverse(fileStr), InStr(StrReverse(fileStr), "\")))
        Set DaoDB = OpenDatabase(patStr, 0, 1, "Text;")
        Set Tabs = DaoDB.TableDefs
End Select

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как сделать "селект" из DBF файла?

ok. Спасибо. Обязательно попробую и отпишу свои коментарии.

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как сделать "селект" из DBF файла?

Вроде все OK. Файл показываю - не ругается. Теперь как-то надо инфу выдирать ... Почитаю ... посмотрю ...