procedure TForm1.Button1Click(Sender: TObject); var S : string; begin try if OpenDialog1.Execute then begin Query1.Close; S := ExtractFilePath(OpenDialog1.FileName); S := Copy(S, 1, Length(S) -1); Query1.DatabaseName := S; S := ExtractFileName(OpenDialog1.FileName); S := Copy(S, 1, Pos('.dbf', LowerCase(S)) -1); Query1.SQL.Text := 'Select * From ' + S; Query1.Open; end; except end; end;
var
S : string;
begin
try
if OpenDialog1.Execute then
begin
Query1.Close;
S := ExtractFilePath(OpenDialog1.FileName);
S := Copy(S, 1, Length(S) -1);
Query1.DatabaseName := S;
S := ExtractFileName(OpenDialog1.FileName);
S := Copy(S, 1, Pos('.dbf', LowerCase(S)) -1);
Query1.SQL.Text := 'Select * From ' + S;
Query1.Open;
end;
except
end;
end;
能否给个小例子,来瞅瞅!!我已经安装VFODBC那个程序, 提示"未找到提供程序,该程序可能未安装" 的错误.
未安装VFODBC那程序之前,全是英文提示!
在这个文件里 http://download.csdn.net/download/pnysw/1564095
或者 http://www.microsoft.com/en-us/download/details.aspx?id=14839 LocateCon.Connected := False;
LocateCon.ConnectionString := 'Provider=MSDASQL.1;' +
'Extended Properties="Driver={Microsoft Visual Foxpro Driver};' +
'SourceType=DBF;' +
'SourceDB=' + YourFilePath+ ';"'; LocateCon.Connected := True;
frmdata.dbmain.Connected:=false;
frmdata.dbmain.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+AppPath+ '\data\'+';Extended Properties=dBase 5.0;Persist Security Info=False';
frmdata.dbmain.Connected:=true;
注:BDF 要改字符属性,否则乱码,用DELPHI 的数据库工具改,有兴趣联系我