[VB] файлы DBF

mezherm69

Как в Visual Basic 6 открыть *.DBF файл и пробежаться по нему?
Вариант открыть его как Excel файл не подходит.

klyv

через ODBC dBase, если не ошибаюсь

mezherm69

Привести пример кода кто может!

0000

Пиcал для VBS, но думаю и в VBA пойдет.
Данный пример работает через ADO и коннектится к базе Access. Для dbf надо использовать другую строку соединения (connection string).

strSQL = SELECT Ident, polek, page FROM Document order by ident



Dim strConnectionString, strS

Dim objConnection, objRecordset, objCommand



strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\local.MDB;Mode=Share Deny Write;Jet OLEDB:Engine Type=3;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" 



Set objConnection=CreateObject("ADODB.Connection") 

objConnection.ConnectionString=strConnectionString 

objConnection.CursorLocation=2 

objConnection.Open 



Set objRecordset = CreateObject("ADODB.Recordset") 

Set objCommand = CreateObject("ADODB.Command") 

objCommand.CommandType=1 



objCommand.ActiveConnection = objConnection 



objCommand.CommandText = strSQL 



Set objRecordset = objCommand.Execute 



      Do While Not objRecordset.EOF

         strS = strS & objRecordset(0)& "  " & objRecordset(1) & Chr(13) & Chr(10)

 

         'strS = strS & objRecordset(0)& "  " & objRecordset(1) & " " & objRecordset(2)  & Chr(13) & Chr(10)

         objRecordSet.MoveNext

      Loop

MsgBox strS



objRecordset.close 

objConnection.Close    

dmreal

спасибо