На форму бросаешь компоненты ADOConnection, ADOTable или ADOQuery.
Кроме того неплохо определиться, какие именно ДБФки будешь смотреть.
Clipper, FoxPro for Dos, FoxPro for Windows, и т.д., потому что кроме того
что заголовки разные (соответственно и строки подключения), и кодировки
текстовых данных различны.
Вот кусок когда то писаного кода
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
AnsiString STDir;
String Caption = "Выбор директории БД типа PARADOX";
String StartDir = ""; /* "D:\\TAR\\"; */
String SelectDir = "";
if(SelectDirectory(Caption, StartDir, SelectDir)){
STDir = SelectDir;
/*
ConnStr = "Driver={Microsoft Visual FoxPro Driver};\
SourceType=DBF;SourceDB="+ ExtractFilePath(MDataSource) +";Exclusive=No;";
*/
/*
Provider=MSDASQL.1;Persist Security Info=False;Data Source=TARDB
Driver={Microsoft Paradox Driver (*.db)};DBQ=physical path to .db file;DriverID=26
Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\MyDatabase.mdb;Extended Properties="Paradox 7.X;"'
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;
Extended Properties=dBase 5.0; Mode=Read|Write|Share Deny None;
Persist Security Info=True';
*/
/*
ConnStr = "Driver={Microsoft Paradox Driver (*.db)}; \
DriverID=538;Fil=Paradox 5.X; \
DefaultDir="+ STDir + "\\; Dbq="+ STDir +"\\; CollatingSequence=ASCII;";
ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TARDB";
ConnStr = "Driver={Microsoft Paradox Driver (*.db)};DBQ="+ STDir +";DriverID=26";
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\\TAR\\;Extended Properties=\"Paradox 5.X;\"";
*/
Screen->Cursor = crHourGlass;
try {
switch(FPump->FDBNum) {
case 1 :
//if(RBTar->Checked) {
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ STDir + "\\;\
Extended Properties=\"Paradox 5 .X\"";
//}
break;
case 2 :
//if(RBAta->Checked) {
/*
ConnStr =
"Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;" \
"Extended Properties=\"DSN=dBASE Files;DBQ=" +STDir+
";DefaultDir="+STDir+";DriverId=533;FIL=dBase 5.0;" \
"MaxBufferSize=2048;PageTimeout=600;\";Initial Catalog=" +STDir;
*/
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ STDir + "\\;\
Extended Properties=\"dBase 5 . 0 \"";
/*
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source="+ STDir + "\\;\
Extended Properties=\"FoxPro 3.0\"";
ConnStr = "Driver=Microsoft Visual Foxpro Driver; \
UID=;SourceType=DBF;SourceDB="+STDir + "\\";
*/
/*
ConnStr = "Driver={Microsoft Visual FoxPro Driver};\
SourceType=DBF;SourceDB="+ STDir +";Exclusive=No;";
*/
/*
ConnStr = "Driver={Microsoft dBASE Driver (*.dbf)}; \
SourceType=DBF;SourceDB="+ STDir +";Exclusive=No;";
*/
/*
ConnStr = "Provider=MSDASQL.1;Persist Security Info=False; \
Data Source=dBASE Files;Mode=Read|Write;Connect Timeout=30; \
Initial Catalog=" + STDir;
*/
// }
break;
}
// ACon->Provider = "MSDASQL.1";
ACon->Connected = false;
ACon->KeepConnection = false;
ACon->ConnectionString = ConnStr;
ACon->Connected = true;
ACon->KeepConnection = true;
CBoxTables->Items->Clear();
ACon->GetTableNames(CBoxTables->Items, false);
CBoxTables->ItemIndex = 0 ;
CBoxTablesChange(Sender);
// DBMemo->DataSource = NULL;
// DBMemo->DataField = "";
BBtnOpenDir->Hint = AnsiString(" База данных импорта "+ STDir +"|База данных импорта");
} catch(Exception &E) {
ACon->Connected = false;
ACon->KeepConnection = false;
ShowMessage(AnsiString(E.ClassName())+ E.Message);}
Screen->Cursor = crDefault;
} else {
STDir = "";
ACon->Connected = false;
ACon->KeepConnection = false; }
