Delphi如何用ADOconnection+Ini动态连接SQL Server2000数据库

[wolf_tanks]

现有app.ini文件如下:
[database]
dbname=test
serverip=.
user=sa
password=
问题1:serverip=. .代表默认的SQL Server2000？
目标:通过单击一个按钮，实现显示数据表的内容
procedure TForm1.Button1Click(Sender: TObject);
var
myinifile:Tinifile;
filename,v_u,v_i,v_d,v_p:string;
begin
with ADOQuery1 do
begin
Filename:=ExtractFilePath(Paramstr(0))+'app.ini';
myinifile:=Tinifile.Create(Filename);

v_u:=myinifile.readstring('database','user','');
v_i:=myinifile.readstring('database','serverip','');
v_d:=myinifile.readstring('database','dbname','');
v_p:=myinifile.readstring('database','password','');

adoconnection1.Connected:=false;
adoconnection1.Close;
adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=true;User ID='v_u)+';Initial Catalog='+v_i+';Data Source='+v_d+';password='+v_p;
adoconnection1.Connected:=true;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select* from test');
adoquery1.Open;
end;
end;
麻烦各位朋友帮我看看

[haitao]

粗看了一下，好像是可以这么做的

'select * from test'

ip的“.”，是指本机的sqlserver

[wolf_tanks]

编译 弹出警示对话框 ：project xx3 are rasied exception class EOleException with message'无效的授权说明'。Process stopped. Use Step or Run to continue

[haitao]

本机的sqlserver的帐号密码是不是sa+空密码？或者改为一个非空的密码试一试？

[rainychan2009]

[Quote=引用 2 楼 wolf_tanks 的回复:]
编译 弹出警示对话框 ：project xx3 are rasied exception class EOleException with message'无效的授权说明'。Process stopped. Use Step or Run to continue
[/Quote]
这个提示一般是没有找到SQL服务器，确认下登陆数据库的相关信息有没有搞错

[wolf_tanks]

SQL Server 除了启动服务管理器管理，还需要其他方面的设置嚒？

[pilicat]

楼主的连接字符串构成有问题，应修改为：

adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=true;User ID='+v_u+';Initial Catalog='+v_i+';Data Source='+v_d+';password='+v_p;

[lyhoo163]

给你一段代码：
ConnectionString:='Provider=SQLOLEDB.1;'+
'Password='+Password+';'+
'Persist Security Info=True;'+
'User ID='+UserName+';'+
'Initial Catalog='+DatabaseName+';'+
'Data Source='+ServerName;
DataModule1.ADOCon.Connected:=False;
DataModule1.ADOCon.ConnectionString:=ConnectionString;
DataModule1.ADOCon.Connected:=True;

[wjbwjb]

adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=true;User ID='+v_u+';Initial Catalog='+v_d+';Data Source='+v_i+';password='+v_p;

[kye_jufei]

檢查一下你的連接字符串。。。

[wolf_tanks]

我已经把这个问题搞定了！~谢谢各位支持！

[stone_czy]

怎么解决的？求方法或代码！！

[hs2sofia]

用户名不要用系统的sa,重新用自己创建的用户名就可以了，这个我也碰到过，用自己建立的用户连接就搞定了