请问:Delphi+SQLserver奇怪问题!
Delphi+SQLserver,我做了数据库连接的测试和注册的窗口,注册,就是把连接数据库信息如数据库服务器名称,IP,登录名,密码写到注册表中,下次便读这信息登录,如下:
try
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\microsoft\msSQLServer\client\connectto',true);
reg.WriteString('DSQuery','DBNETLIB');
reg.WriteString(Trim(ed_server.Text),'DBNETLIB,'+Trim(ed_ip.text)+',1433');
reg.CloseKey;
reg.OpenKey('\software\EquipMgr',true);
reg.WriteString('ServerName',Trim(ed_server.text));
reg.writestring('LoginName',Trim(ed_name.text));
reg.writestring('LoginPwd',addkey(ed_pwd.text));
reg.CloseKey;
reg.free;
except
messagebox(handle,'注册失败!','提示',mb_ok+mb_iconinformation);
//注册失败就要删除上面注册表的添加的键
{
//.......
}
exit;
end;
问题:当我写入注册表后,再去连接数据库就连接不上,错误提示:[DBNETLIB](ConnectionOpen(conection())..]SQL server 不存在或拒绝访问. 就连不上了,当我删除
reg.WriteString('DSQuery','DBNETLIB');
reg.WriteString(Trim(ed_server.Text),'DBNETLIB,'+Trim(ed_ip.text)+',1433');
这两个键之后,便就马上可以连接上!
请问:这是为什么,应该怎么改呀,谢谢各位。。。