DELPHI测试中ADOConnection1的OLE加载错误

Question

我有ADOConnection1控件得到相关字符串，
测试1： 
   测试本地数据库方式得到字符串信息
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CRMDBZGXS;Data Source=127.0.0.1
提示成功，
测试2：  测试远程服务器时得到的字符串
Provider=SQLOLEDB.1;Password=admin12345;Persist Security Info=True;User ID=sa;Initial Catalog=CRMDBZGXS;Data Source=PC_SERVER0;但是出错了如图

Answer 1

在主程序未编译成EXE文件前，可以在我有ADOConnection1控件得到相关字符串
都正常，但是编译成EXE文件后
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CRMDBZGXS;Data Source=127.0.0.1
提示成功
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
但是在客户端时就加上服务器名： aserver   用户名： sa  密码：adminsa
测试2： 测试远程服务器时得到的字符串
Provider=SQLOLEDB.1;Password=admin12345;Persist Security Info=True;User ID=sa;Initial Catalog=CRMDBZGXS;Data Source=PC_SERVER0;但是出错了如图

Answer 2

PC_SERVER0的
本地IP地址为：127.0.0.1
远程IP地址：192.168.1.210

Answer 3

服务器名为：PC_SERVER0
本地IP地址为：127.0.0.1
远程IP地址：192.168.1.210
=========================================
Data Source=127.0.0.1
Data Source=PC_SERVER0
看一下上两行语句，我在程序中的FormCreate事件中若初始化为
Data Source=127.0.0.1 时或者Data Source=PC_SERVER0
若修改[127.0.0.1改成PC_SERVER0]或者[PC_SERVER0]改成[127.0.0.1]就出现如图错误

Answer 4

放一个连接组件 ADOConnection， 其它组件TADODataSet,TADOQuery等的connection指向ADOConnection就可以了. 你可以双击ADOConnection，使用它的向导。也可以使用下面的代码 function OpenADOConn:boolean; 
begin 
result:=false; 
try 
with ADOConnection do 
begin 
Connected:= false; 
Provider:= 'SQLOLEDB.1'; 
Properties['Data Source'].Value:= HostName; //服务器名 
Properties['Initial Catalog'].Value:= DatabaseName; //表名 
Properties['User ID'].Value:= UserID; //用户名 
Properties['password'].Value:= UserPWD; 密码 
LoginPrompt:= false; 
try 
Connected:= true; 
except 
begin 
Application.MessageBox('无法连结远程数据库！' 
,'注意', MB_OK); 
exit; 
end; 
end; 
end; 
finally 
end; 
result:=true; 
end; 

Answer 5

测试一下DEMO试试先》》》》》》》》》》》》》》》》

Answer 6

谢谢关注，
Provider:= 'SQLOLEDB.1';  
Properties['Data Source'].Value:= HostName; //服务器名  
Properties['Initial Catalog'].Value:= DatabaseName; //表名  
Properties['User ID'].Value:= UserID; //用户名  
Properties['password'].Value:= UserPWD; 密码  
你的这种方法可用》》》》》》》》》》》》》》》》》》》》
给分》》》》》》》》》》》》