动态链接SQL数据库的问题？？？

[coll112]

俺是一个在校生，想问一下如何在DELPHI6.0里实现动态链接SQL SERVER 2000数据库的问题？？？最好写出代码~~~请各位大侠帮忙！万分感谢！

[vzxq]

up

[qxj]

uses adodb;

var
myqry :Tadoquery;
begin
myqry :=TADOQuery.Create(nil);
try
myqry.ConnectionString :='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=localhost';
...
finally
myqry.free;
end;
end;

[kaguo]

procedure TForm1.Button1Click(Sender: TObject);
var ADOQuery:TADOQuery;
begin
ADOQuery:=TADOQuery.Create(nil);
try
ADOQuery.ConnectionString :='Provider=SQLOLEDB.1;Password=XXX;Persist Security Info=True;'
+'User ID=sa;Initial Catalog=DatabaseName;Data Source=ServerName';
ADOQuery.SQL.Add('Select * from TheTable');
ADOQuery.Active := true;
finally
ADOQuery.Active :=false;
ADOQuery.Free;
end;

end;

[qizhanfeng]

uses adodb;

var
myqry :Tadoquery;
begin
myqry :=TADOQuery.Create(nil);
try
myqry.ConnectionString :='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=库名;Data Source=服务器名';
...
finally
myqry.free;
end;
end;

[shitianj]

你使用的如果是ADO那么上面几个仁兄的方法已经足够你选择了；如果你是用的BDE的话，你只需把
DABABASE的NAME，DRIVERNAME，PARAMETER三个属性配置好就可以了最后一个参数是个TSTRINGS类型内容和ADO的登录模式几乎相同。这些属性你可以通过双击DATABASE后看到，先会静连，再动连就没问题了~祝你好运~！

[ztenv]

procedure TForm1.SpeedButton13Click(Sender: TObject);
resourcestring
s1='Provider=SQLOLEDB.1;Password=';
s2='User ID=';
s3='Initial Catalog=';
s4='Data Source=';
var
a,b,c,d:string;
f:textfile;
da:string;
flag:boolean;
begin
assignfile(f,getcurrentdir()+'\text\info');
reset(f);
readln(f,a);
readln(f,b);
readln(f,c);
readln(f,d);
closefile(f);
form1.ADOConnection1.Close;
form1.ADOConnection1.ConnectionString:=s1+a+';'+s2+b+';'+s3+c+';'+s4+d+';';
form1.ADOConnection1.Open;
end;

[readersm68]

俺是一个在校生。。。。。。。。。。。。。!
这么简单的问题！唉，现在的学生怎么没有一点。。。。。。。。。。。

~~~~落拓江湖，惊一见、恍如梦里。
~~~~还自叹，盗名空负，知音有几。
~~~~情似枯木当解雨，刀名割鹿能断水？
~~~~算人间，恩怨总相循，须快意。

[pingwing]

诸如楼上的，UP