delphi常用数据库连接

1.DM:

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var con:string;
begin
try
con:='Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=QXWeb;Data Source=AQQ';
ADOConnection1.ConnectionString :=CON;
ADOConnection1.Connected :=true;
except
end;
end;

2.另一个文件 ：

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR
 sql1:string;
begin
   sql1:='select b.uid,g.gid from BUser b,gonggao g';
    DataModule2.ADOQuery1.Close;
    DataModule2.ADOQuery1.SQL.Add(sql1);
    DataModule2.ADOQuery1.Open;
end;