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

Question

现有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;
麻烦各位朋友帮我看看 

Answer 1

粗看了一下，好像是可以这么做的'select * from test'ip的“.”，是指本机的sqlserver

Answer 2

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

Answer 3

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

Answer 4

这个提示一般是没有找到SQL服务器，确认下登陆数据库的相关信息有没有搞错

Answer 5

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

Answer 6

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

Answer 7

楼主的连接字符串构成有问题，应修改为：adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=true;User ID='+v_u+';Initial Catalog='+v_i+';Data Source='+v_d+';password='+v_p;

Answer 8

给你一段代码： 
  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;