读书人

ADO连接DSN的小异常, 有代码

发布时间: 2012-03-07 09:13:51 作者: rapoo

ADO连接DSN的小错误, 有代码.
// 使用DELPHI 7.0, 以下代码产生异常。DSN数据源db1, 指向db1.mdb文件,其中有tab1表,这个表并没有什么特殊性,我就随便建了两个文本字段,还有一个自动编号。这个异常似乎与数据库的内容没有关系。

uses DB, ADODB;

var
Table: TADOTable;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table := TADOTable.Create(self);
Table.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=db1 ';
Table.CursorType := ctStatic;
Table.TableName := 'tab1 ';
end;

procedure TForm1.FormClick(Sender: TObject);
begin
Table.Open();
end;



[解决办法]
哦....那你换ADOQuery吧,它可以的,我刚才D6下试了。ODBC数据源名test

uses DB,ADODB;

var
Table: TADOquery;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table := TADOquery.Create(self);
Table.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=test ';
Table.CursorType := ctStatic;
table.SQL.Text := 'select * from 表名 ';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table.Open;
datasource1.DataSet := table;
end;

读书人网 >.NET

热点推荐