急急急急 dbf问题在线等

fjonline_cn 2003-12-12 12:09:57

很急很急如何用delphi7.0中打开dbf文件并在dbgrid中显示
****dbf文件是可选的****

...全文

36 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

fjonline_cn 2003-12-14

打赏
举报

现在问题是“外部驱动程序（8961）中的意外错误"有谁遇到过这类错误吗?

fjonline_cn 2003-12-14

打赏
举报

现在问题不是选择dbf 而是根本就打不开dbf呀(不要建什么dsn,那样只能打开一个)
AConnection:=CreateOleObject('ADODB.Connection');
AConnection.Open('Driver={Microsoft dBase Driver (*.dbf)};DBQ=c:\test');
ARecordSet:= CreateOleObject('ADODB.RecordSet');
ARecordSet.Open('Select * from test.dbf',AConnection,2,2,0001);

VeryOldMan 2003-12-14

打赏
举报

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;

耙子 2003-12-14

打赏
举报

用 BDE 很方便呀！
他的TSession 可以方便的实现这功能

fjonline_cn 2003-12-14

打赏
举报

我用了ADO奇怪的是用ACCESS是没有任何问题的但一转到DBF就不可以了
我写的程序如下
AConnection:=CreateOleObject('ADODB.Connection');
AConnection.Open('Driver={Microsoft dBase Driver (*.dbf)};DBQ=c:\test');
ARecordSet:= CreateOleObject('ADODB.RecordSet');
ARecordSet.Open('Select * from test.dbf',AConnection,2,2,0001);
//我c盘下有一个test目录里面有一个test.dbf 老是报外部数据库意外错误
那位大侠帮忙看一下跪谢明天就要叫差了急急急急急

fjonline_cn 2003-12-12