我现在用一个opendialog,一个adoquery准备打开dbf文件 程序是这样写的这段写的是连接方法。
procedure TForm5.Button2Click(Sender: TObject);
begin
if (opendialog1.Execute) then
begin
adoconnection1.Close;
adoconnection1.ConnectionString:='Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB='+opendialog1.FileName+';SourceType=DBF';
adoconnection1.Open;
end;
end;
这段是显示dbf文件中的数据
procedure TForm5.Button3Click(Sender: TObject);
begin with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from ['+opendialog1.FileName+']') ;
open;
end;
end;
但是打开总显示出做 请问为什么
procedure TForm5.Button2Click(Sender: TObject);
begin
if (opendialog1.Execute) then
begin
adoconnection1.Close;
adoconnection1.ConnectionString:='Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB='+opendialog1.FileName+';SourceType=DBF';
adoconnection1.Open;
end;
end;
这段是显示dbf文件中的数据
procedure TForm5.Button3Click(Sender: TObject);
begin with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from ['+opendialog1.FileName+']') ;
open;
end;
end;
但是打开总显示出做 请问为什么
解决方案 »
- windows 2000 sp4 拿什么我来爱你?
- 删除DBGRID中的一行
- 一个很简单的SPCOMM的问题,初用SPCOMM,求救......急........
- 求类似于SQL Server的DTS(数据转换向导)的代码或相关信息!
- 在Access里面update语句怎么用?
- 如何将下列实际字符串去掉那个#9呢?
- 点击DBGrid第一栏打开一个窗口的响应事件如何写?
- 怎么调用其他应用程序,如扫雷!
- delphi 程序在运行的时候,如何把当前Form的标题栏的颜色自定义,请问该如何做?
- 请问在做delphi安装程序时,自己编写的dll真么注册????
- 如何通过方法地址(或指针)来执行该方法
- 在命令行下用rar 命令压缩出现的怪问题!
sql.Add('select * from ['+opendialog1.FileName+']') ;
opendialog1.FileName是包括带路径的文件名,这样的表名肯定是不对了
begin
if (opendialog1.Execute) then
begin
adoconnection1.Connected:=False;
adoConnection1.ConnectionString:='Provider=MSDASQL.1;Extended Properties="Driver={Microsoft Visual Foxpro Driver};SourceType=DBF;SourceDB='+opendialog1.FileName+'"';
adoconnection1.Connected:=True;
end;
end; procedure TForm5.Button3Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='select * from '+Copy(ExtractFileName(OpenDialog1.FileName),1,Length(ExtractFileName(OpenDialog1.FileName))-4);
open;
end;
end;