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;