关于ADOConnection连接的问题的两个问题。

Question

第一个问题：
我双击ADOConnection，设置好相关内容。测试连接通过，程序也能连上数据库，把connection string复制出来是：
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=fdcxs;Data Source=WWBOFFICE然后我把ADOConnection的Connection string清空，在程序开始的时候写入：
ADOConnection1.connected:=False;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=fdcxs;Data Source=WWBOFFICE';
ADOConnection1.connected:=True; 启动程序的时候就出现“用户'Administrator'登录失败”这是什么原因啊？
两个Connection string是一模一样的，为什么会这样。
该如何解决。第二个问题：
如何知道连接SQL Server不成功，只要程序里判断出来就行了，提示信息是自己写的内容。

Answer 1

第一个
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=fdcxs;Data Source=WWBOFFICE 
因为安全原因，在connectionstring中没有明文显示密码值。必须手工加上，或在相关设置中选择允许明文显示密码。
第二个。
try
 adoconnection.connect .
except
 showmessage('妈妈的，又没连上')
end。

Answer 2

kao，楼主信誉分这么低啊。
给分吧，加加信誉分，呵呵。

Answer 3

please try:
用 open替换connected:=True;
2、if connected<>true then
showmessage('没打开');

Answer 4

这两个问题合到一起这样写就可以了
try
With ADOConnection1 do begin
LoginPrompt:=False;
ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=计算机名'
Connected:=True;
end;
except
ShowMessage('不能与数据库连接!');
end;

Answer 5

第一个问题：
我双击ADOConnection，设置好相关内容。测试连接通过，程序也能连上数据库，把connection string复制出来是：
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=fdcxs;Data Source=WWBOFFICE
改成（手工把password=XXXXXX加进去)
第一个问题：
我双击ADOConnection，设置好相关内容。测试连接通过，程序也能连上数据库，把connection string复制出来是：
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=XXXXXX；Initial Catalog=fdcxs;Data Source=WWBOFFICE
第二个问题：
if connected<>true then
   showmessage('没打开');

Answer 6

以上几位的方法我都用了，还是出现“用户'Administrator'登录失败”。会不会跟我的win2000 server登录有关啊？

Answer 7

回： taiguang(银狐) 
SQL Server登录不用密码

Answer 8

双击ADOConnection，设置好相关内容（主要是把“保存密码”哪个复选框打个勾）试试？应该没有问题的，如果要方便的话就做用INI连接吧

Answer 9

给你一个用SQL用户名和密码登陆的函数（不是Windows身份验证的那种）
Function MakeSQLConnectStr(Host,UserID,PWD,DBName:String) : String;
begin
  Result := 'Provider=SQLOLEDB.1;Extended Properties="Driver={SQL Server};Server='+Host+';';
  Result := Result + 'Database='+DBName+';UID='+UserID+';PWD='+Trim(PWD)+'"';
end;ADOConnection.ConnectionString := MakeSQLConnectStr('192.0.0.1','sa','pass','Master');
try
  ADOConnection.Connection := True;
Except
  Showmessage('连接失败');
end;

Answer 10

为什么老是会出现“用户'Administrator'登录失败”？