如何用ADO连接远程服务器上的SQL2000数据库。 本人想知道在DELPHI中怎样在客户端通过IP地址访问到服务器中的SQL2000数据库的内容!!!!!!!请给出用ODBC和ADO两种连接的代码和具体做法。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1、新建工程,在ADO组件中选ADOConnection,添加到Form2、在Form中添加一按钮。为其添加OnClick事件3、在OnClick中加入测试数据库连接的代码。procedure TForm1.BitBtn1Click(Sender: TObject);begin Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP'; Adoconnection1.Connected := true ; if (Adoconnection1.Connected) then ShowMessage('Connect OK!');end; 1、新建工程,在ADO组件中选ADOConnection,添加到Form2、在Form中添加一按钮。为其添加OnClick事件3、在OnClick中加入测试数据库连接的代码。procedure TForm1.BitBtn1Click(Sender: TObject);begin Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP'; Adoconnection1.Connected := true ; if (Adoconnection1.Connected) then ShowMessage('Connect OK!');end;BDE连接方式就不要考虑了吧。如果实在想要的话就在BDE Administrator中建立一个SQL别名,服务器中填入远程SQL服务器IP。 ip地址连接是不是这样???????procedure TForm1.BitBtn1Click(Sender: TObject);begin Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;server=ipaddress;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP'; Adoconnection1.Connected := true ; if (Adoconnection1.Connected) then ShowMessage('Connect OK!');end; 是的,把你的ipaddress换成IP地址就可以了。 用ODBC和ADO两种连接都是这样吗??????????如果都是一样的话,那么在写程序的时候他们有什么区别啊?????请高手指点!!!!!!!!!!!!!!!!!! 用odbc的话,先在控制面版-》管理工具-》odbc添加数据源,只要你在这里测试连接数据库成功,在delphi环境下就可以连接数据库,在Tdatabase的AliasName属性可以找到你添加的数据源,然后你再在Tdatabase的DatabaseName输入一个名字,这个名字就可以用在table,query等控件的databasename属性。。这样只要你的Tdatabase能连接数据库,table,query就可以访问数据库了。为了连接不用输入用户名和密码,可以参考以下代码:with Database1 do begin AliasName:='aaa';//odbc数据源名称 DatabaseName:='aaabase';//自己随便起个名字 LoginPrompt:=False; Params.Clear; Params.add('USER NAME=用户名'); Params.add('PASSWORD=密码'); end; try Database1.Open; except raise Exception.Create('不能数据库连接'); end; ado:Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名称;Data Source=数据库所在计算名称BDE:DATABASE NAME=数据库名称SERVER NAME=S数据库所在计算名称USER NAME=登陆数据库用户OPEN MODE=READ/WRITESCHEMA CACHE SIZE=8BLOB EDIT LOGGING=LANGDRIVER=SQLQRYMODE=SQLPASSTHRU MODE=SHARED AUTOCOMMITDATE MODE=0SCHEMA CACHE TIME=-1MAX QUERY TIME=300MAX ROWS=-1BATCH COUNT=200ENABLE SCHEMA CACHE=FALSESCHEMA CACHE DIR=HOST NAME=APPLICATION NAME=NATIONAL LANG NAME=ENABLE BCD=FALSETDS PACKET SIZE=4096BLOBS TO CACHE=64BLOB SIZE=32PASSWORD=密码 (可以为空) 在stringgrid中,有没有单元格引发事件的? 求助:又一个三层架构的问题,急!!!!!!!!!!!!!!!!! 为什么我关闭A窗口去刷新B窗口的Adoquery时,数据更新不了,是不是存在什么缓存问题? 请高手查错指点..谢谢!! 给大家推荐一个关于三层开发的好帖子 控件之间的细微区别 关于QReport报表的问题,高手帮忙,急死人了。解决了问题的再开贴给100分 原创: COM实现过程 power by foxnt IDHTTP 如何清除StringGrid内原有的数据? 急用问题. 不可用的类造型????
2、在Form中添加一按钮。为其添加OnClick事件
3、在OnClick中加入测试数据库连接的代码。procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP';
Adoconnection1.Connected := true ;
if (Adoconnection1.Connected) then ShowMessage('Connect OK!');
end;
2、在Form中添加一按钮。为其添加OnClick事件
3、在OnClick中加入测试数据库连接的代码。procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP';
Adoconnection1.Connected := true ;
if (Adoconnection1.Connected) then ShowMessage('Connect OK!');
end;BDE连接方式就不要考虑了吧。
如果实在想要的话就在BDE Administrator中建立一个SQL别名,服务器中填入远程SQL服务器IP。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;server=ipaddress;User ID=sa;Initial Catalog=Uniplus;Data Source=ERP';
Adoconnection1.Connected := true ;
if (Adoconnection1.Connected) then ShowMessage('Connect OK!');
end;
如果都是一样的话,那么在写程序的时候他们有什么区别啊?????
请高手指点!!!!!!!!!!!!!!!!!!
with Database1 do
begin
AliasName:='aaa';//odbc数据源名称
DatabaseName:='aaabase';//自己随便起个名字
LoginPrompt:=False;
Params.Clear;
Params.add('USER NAME=用户名');
Params.add('PASSWORD=密码');
end;
try
Database1.Open;
except
raise Exception.Create('不能数据库连接');
end;
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名称;Data Source=数据库所在计算名称BDE:
DATABASE NAME=数据库名称
SERVER NAME=S数据库所在计算名称
USER NAME=登陆数据库用户
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
BLOB EDIT LOGGING=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
DATE MODE=0
SCHEMA CACHE TIME=-1
MAX QUERY TIME=300
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
HOST NAME=
APPLICATION NAME=
NATIONAL LANG NAME=
ENABLE BCD=FALSE
TDS PACKET SIZE=4096
BLOBS TO CACHE=64
BLOB SIZE=32
PASSWORD=密码 (可以为空)