如何动态创建adoquery,并且建立connection?

Question

如何动态创建adoquery,并且建立connection?

Answer 1

MyCnt := TAdoConnection.Create(nil);MyQry := TAdoQuery.Create(nil);
MyQry.Connection := MyCnt;

Answer 2

同楼上,注意包含adodb,db两个单元文件即可
同时定义变量
var
 adoconnectiong1:Tadoconnection;
 adoquery1:Tadoquery1;

Answer 3

uses AdoDb,Db; Var AdoDb1 : TAdoConnection; 
     MySql : TAdoQuery; 
     ConStr :String; 
 Begin 
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
     'C:\123.mdb;Persist Security Info=False;';
    AdoDb1 := TAdoConnection.Create(owner);
    AdoDb1.ConnectionString := ConStr;
    AdoDb1.LoginPrompt := False;
    AdoDb1.Connected  := True;    MySql := TAdoQuery.Create(owner);
    MySql.Connection := AdoDb1;
    MySql.Sql.Text := 'Select * FROM XX'; 
    MySql.OPen; 
    
    AdoDb1.Destroy; 
    MySql.Destroy; 
  end;

Answer 4

本来想过来领一点分，可是Goldteerfei(九月samatha)说的很详细了，
偶就不要了。

Answer 5

...... Begin 
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
     'C:\123.mdb;Persist Security Info=False;';
    AdoDb1 := TAdoConnection.Create(owner);
    AdoDb1.ConnectionString := ConStr;
    .........
有高人回复到如上所示，且不知当中的'C:\123.mdb为绝对路径，不知如何才能更变为相对路径，、
我的想法是想让其打包进好一点。高手有何建议敬请讲来，小弟在此洗耳恭听了。....

Answer 6

uses AdoDb,Db; Var AdoDb1 : TAdoConnection; 
     MySql : TAdoQuery; 
     ConStr :String; 
     AppPath :String;
 Begin 
  AppPath := ExtractFilePath(Application.ExeName);
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ AppPath +'\123.mdb;Persist Security Info=False;';
    AdoDb1 := TAdoConnection.Create(owner);
    AdoDb1.ConnectionString := ConStr;
    AdoDb1.LoginPrompt := False;
    AdoDb1.Connected  := True;    MySql := TAdoQuery.Create(owner);
    MySql.Connection := AdoDb1;
    MySql.Sql.Text := 'Select * FROM XX'; 
    MySql.OPen; 
    
    AdoDb1.Destroy; 
    MySql.Destroy; 
  end;相对路径

Answer 7

uses AdoDb,Db; Var AdoDb1 : TAdoConnection; 
     MySql : TAdoQuery; 
     ConStr :String; 
 Begin 
    AdoDb1 := TAdoConnection.Create(self);
    AdoDb1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\123.mdb;Persist Security Info=False;';
    AdoDb1.LoginPrompt := False;
    AdoDb1.Connected  := True;
   MySql := TAdoQuery.Create(self);
    MySql.Connection := AdoDb1;
MySql.Sql.Text := 'Select * FROM XX'; 
    MySql.OPen; 
    
    AdoDb1.Free;
    MySql.Free; 
end;