小弟自己写了个程序玩,用的DELPHI + SQL Server 2000,用的ADO连接数据库。服务器放在我单位的(服务器有固定的IP地址,系统是WINXP Professional SP2)。我在家用ADSL上网,可以访问数据库。但是我在我朋友家里就不能连上数据库,请问这是怎么回事?帮忙解决一下把!
解决方案 »
- 哪位同学能用Delphi完成一下这个程序
- 请教高手:动态创建的窗体之间互相访问引起内存错误怎么解决?
- 15、18位身份证号码如何获取出生日期与性别?
- 原有用fastreport3写的代码到了fastreport4下面怎么改啊?
- 为什么我的IDL2PAS程序要提示:无法定位程序输入点@CORBA_ANY@len$xqv于动态连接库ORB_BR.DLL上?
- 有关传送数据的问题
- 有没有人知道什么是“线程安全”?????
- 哪儿可以找到power info 3000
- delphi和c++builder那个更好
- 一个关于拨号网络的问题
- 小问题,高手请进 打印预览显示比例的设置?
- 请各位前辈推荐一些适合入门的Delphi好书,谢谢!!!
安装 mdac 2.8 试一下,可能客户端的文件版本太低的原因!!!可是我把我笔记本抱到我朋友家上网都连不上,可是我把笔记本拿回来在自己家就可以连上!
不知道这是什么原因了
var ADOConStr: string;
begin
frmDM.ADOcon.Close;
ADOConStr := 'Provider=SQLOLEDB.1;Password="test";Persist Security Info=True;User ID=sa;Initial Catalog=DataTest;Data Source=215.60.80.148';
ADOConStr := ADOConStr + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=215.60.80.148 ;Use Encryption for Data=False;Tag with column collation when possible=False';
frmDM.ADOCon.ConnectionString := ADOConStr;
frmMain.ADOConStr := ADOConStr; try
begin
frmDM.ADOCon.Open;
with frmDM.adotData1 do
begin
if Locate('username', edit2.Text, [loCaseInsensitive]) then
begin
if trim(frmDM.adotData1.FieldValues['Password']) = md5(edit3.Text) then
begin
frmMain.Show;
frmMain.User := trim(frmDM.adotAgent.FieldValues['username']);
frmLogin.Hide;
end
else
showmessage('密码不对,请重新输入');
end
else
showmessage('该用户名不存在');
end;
end
except
showmessage('连接数据库失败!');
end
end;
结果他始终提示“连接数据库失败”