Delphi怎样操作dBASE数据库,请给出示例

如题:求解!!

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type
  TForm1 = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  ADODataSet1.Open;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADODataSet1.Close;
end;
end.
放一个ADODataSet1,
ConnectionString 设为：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=N:\OutFiles\;Extended Properties=dBASE IV;Persist Security Info=False //根据你的 DBF数据表所在路径更改Data Source
CommandText设为：
select * from STOCK //根据你的数据表名更改再放一个DataSource1，将它的DataSet属性设为:ADODataSet1
再放一个DBGrid1，将其DataSource属性设为：DataSource1
再放一个Button1,在它的单击事件中写如下代码：
ADODataSet1.Open;
在窗口关闭事件中写如下代码关闭打开的数据表：
ADODataSet1.Close;
楼上的不行,不能通过,还是提示:
---------------------------
Pzhmactest
---------------------------
外部数据库驱动程序 (8961) 中的意外错误。.
---------------------------
确定
---------------------------
楼上的,这样不行的:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=N:\OutFiles\;Extended Properties=dBASE IV;Persist Security Info=False //根据你的 DBF数据表所在路径更改Data Source
还是错!!!!
先查看一下你自己的連接字符串,你是用向導建立還是直接寫的,最好用向導建立一個.如果直接寫要注意引號問題.我上述程序都是通過的.你不妨參考下:http://topic.csdn.net/u/20100601/08/b0a844a5-6e48-44ce-9714-b4761e9af8f3.html
可以直接操作啊，Delphi本身的控件就足够了
我不想用下面的方法：
天啊！把ConnectionString换成'Driver=Microsoft Visual FoxProDriver;SourceDB='+TagStr+';SourceType=DBF'终于可以了！因为这个方法得用高版本的vfpodbc.dll，因为客户的这个驱动版本低，这样一来我得给客户升级odbc驱动程序，看看能不能有什么更好的方法，请大家共赏分享之！
那就设置ODBC咯。或设置BDE咯（这样一来你得在客户那装BDE了）。