delphi如何访问远程数据库? delphi如何访问远程数据库SQL server?服务器端和客户端应该如何配置? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 利用ADOConnection组件,通过IP连接就可以了或者建立.udl文件,给adoconnection.ConnectionString赋值可以动态连接。如Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=databasename;Data Source=10.12.111.33 可以真正的实现远程登陆,和不同局域网内的登陆,远程主机要有指定的公网ip就的了。我的远程登陆是这样,没问题的:procedure TForm_server.Button2Click(Sender: TObject);varservername,databasename,ad,password:string;connect:string;begin check; servername:=combobox1.Text; databasename:=combobox2.Text; ad:=edit1.Text; password:=edit2.Text; form1.ADOConnection1.Close; connect:='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=false;User ID='+ad+';Initial Catalog='+databasename+';Data Source='+servername; form1.ADOConnection1.ConnectionString:=connect; form1.ADOConnection1.CommandTimeout :=10; try form1.ADOConnection1.Open; form1.ADOConnection1.Connected:=true; form_server.login:=true; //showmessage('服务器连接成功!'); form_server.Close; except messagedlg('服务器连接失败,请检查网络设备是否正常工作,或输入信息是否有误!'+#13+#13+'系统将在2秒后自动关闭。',mtWarning,[mbOk],0); sleep(2000); //form_server.login:=true; //form_server.Hide; //application.Terminate; //application.run; form1.Close; end;end; 用ADOConnection连,知道服务器ip和数据库sa密码就好了! 同意pilicat(delphi迷) 的说法。 delphi grid 报表求救 请问!!! DELPHI控件问题!!!! 如何模拟win+D组合键,让所有窗体最小化? 关于打印的问题? 高手赐教:delphi开发平台,在一个主窗体上怎么才能打开两个子窗体,也就是:打开一个子窗体之后不关掉,同时在打开一个子窗体 工程文件丢失 报表打印求救??????/ 一个自定义异常类的问题,请各位帮忙看看(在线) 数据库SQL问题,很菜,大虾们请帮忙 一个小问题,70分绝对超值 关于ADO的连接的问题? 用Delphi开发基于SQL Server2000的多客户应用程序
我的远程登陆是这样,没问题的:
procedure TForm_server.Button2Click(Sender: TObject);
var
servername,databasename,ad,password:string;
connect:string;
begin check;
servername:=combobox1.Text;
databasename:=combobox2.Text;
ad:=edit1.Text;
password:=edit2.Text; form1.ADOConnection1.Close; connect:='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=false;User ID='+ad+';Initial Catalog='+databasename+';Data Source='+servername; form1.ADOConnection1.ConnectionString:=connect; form1.ADOConnection1.CommandTimeout :=10; try
form1.ADOConnection1.Open;
form1.ADOConnection1.Connected:=true;
form_server.login:=true;
//showmessage('服务器连接成功!');
form_server.Close;
except
messagedlg('服务器连接失败,请检查网络设备是否正常工作,或输入信息是否有误!'+#13+#13+'系统将在2秒后自动关闭。',mtWarning,[mbOk],0);
sleep(2000);
//form_server.login:=true;
//form_server.Hide;
//application.Terminate;
//application.run;
form1.Close;
end;
end;