怎样定义一个ADO变量？？

Question

ADO的连接，DELPHI不用编写的呀
你要走什么东西，我们都不知道，你举个列子行吗？

Answer 1

比如建立数据库连接可用ADOConnection控件，但我不用它，而是自己写一个这样的变量。

Answer 2

use comobj;
private
conn:variant;
rst:variant;
....
begin
conn:=createoleobject('adodb.connection');
rst:=createoleobject('adodb.recordset');
...
end;如果还不了解，可以参考vb书籍

Answer 3

这个东西啊？应该这样啊？
conn:TADOConnection;
ds:TADODataset;
conn:=TADOConnection.create(nil);
ds:=TADOConnection.create(nil);
也可以把nil用self代替。

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  adoConn:TADOConnection;
  adoDS:TADODataSet;
begin
   adoConn:=TADOConnection.Create(self);
   adoConn.ConnectionString:='Provider=SQLOLEDB.1;Password=pwd;Persist Security Info=True;User ID=username;Initial Catalog=databasename;Data Source=servername';
   adoConn.LoginPrompt:=false;
   adoConn.Open;   adoDS:=TADODataSet.Create(self);
   adods.Connection:=adoConn;
   adods.CommandText:='select * from tableName';
   adods.Open;end;