如何访问远程数据库?? 如何访问远程数据库?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可用 Ado 或 DbExpress 這類控件, 就可簡單聯接!!! AdoConnection连接数据库AdoTableAdoQueryAdoStoredProc...来访问数据 如对方IP是192.168.0.3文件在c:\data下请给出例子数据库用sql server 数据库为SQL Server的话, 就不用管文件在什么地方, 只要有权限就行了举例如下:with ADOConnection1 dobegin Close; LoginPrompt := False; ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.0.3'; Open; ADOQuery1.Connection := ADOConnection1; with ADOQuery1 do begin Close; SQL.Clear; SQL.Text := 'select * .....'; Open; ..... Close; end; Close;end; 上面的代码是用户名sa, 密码为空, 下面的代码若sa的密码为111则替换为如下代码 ConnectionString := 'Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.0.3'; procedure Tfrm_Data.DataModuleCreate(Sender: TObject);var f: TIniFile; server,user,password,connstr: string; Myform:Tfrm_Connect; tep:integer;begin screen.Cursor:=crHourGlass; try connstr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='; f:=TiniFile.Create(ExtractFilePath(paramstr(0))+'Connect.ini'); server:=f.ReadString('NetSetting','Server',''); user:=f.ReadString('NetSetting','UserName',''); try password:=f.ReadString('NetSetting','Password',''); except password:=''; end; connstr:=connstr+user; connstr:=connstr+';password='+password; connstr:=connstr+';Initial Catalog=Material;Data Source='+server; ADO_Connect.Connected:=false; ADO_Connect.ConnectionString:=connstr; ADO_Connect.Connected:=true; except screen.Cursor := crArrow; MyForm:=Tfrm_Connect.create(self); MyForm.ShowModal; Myform.Free; system.Halt; end;end; 对方IP是192.168.0.3IP是远程的吗????? 什么类型的数据库?如果是sqlserver,ocracle没什么问题,连接字符串中用ip就可以了。连接access就比较麻烦了。网上有这样的文章。http://www.cnzzz.com/download/S/1472.asp access 可以用clientDateSet来连接啊 为什么不用ODBC连接?在ODBC中添加你的数据库,在ADOConnection的connectionString中建立连接即可。 数据集操作的问题 在学习线程的时候关于主线程的概念 求助!了解htonl函数转换标准网络字序的大侠请进 想定义一个一维的SafeArray(安全数组),如何建立,如何置数组元素值,求救,100分! 请问,为什么我的所有office工具打开的相关文档都成了只读文件呢? 一个关于QUICKREP的问题 如何判断一个项目中的窗体是否打开?不要说一个一个窗体的判断,希望有更好的方法,在线等待! 招聘Delphi 兼职程序员 有人见过一本介绍POS的书? delphi如何判断一字符串是不是合法网址? 如何在过程中定义常量!!!或如何在定义变量时给个默认数值 控件使用经验交流,来者有分。【精华】
AdoQuery
AdoStoredProc
...
来访问数据
数据库用sql server
举例如下:
with ADOConnection1 do
begin
Close;
LoginPrompt := False;
ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.0.3';
Open;
ADOQuery1.Connection := ADOConnection1;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'select * .....';
Open;
.....
Close;
end;
Close;
end;
ConnectionString := 'Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.0.3';
var
f: TIniFile;
server,user,password,connstr: string;
Myform:Tfrm_Connect;
tep:integer;
begin
screen.Cursor:=crHourGlass;
try
connstr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
f:=TiniFile.Create(ExtractFilePath(paramstr(0))+'Connect.ini');
server:=f.ReadString('NetSetting','Server','');
user:=f.ReadString('NetSetting','UserName','');
try
password:=f.ReadString('NetSetting','Password','');
except
password:='';
end;
connstr:=connstr+user;
connstr:=connstr+';password='+password;
connstr:=connstr+';Initial Catalog=Material;Data Source='+server; ADO_Connect.Connected:=false;
ADO_Connect.ConnectionString:=connstr;
ADO_Connect.Connected:=true; except
screen.Cursor := crArrow;
MyForm:=Tfrm_Connect.create(self);
MyForm.ShowModal;
Myform.Free;
system.Halt;
end;end;
http://www.cnzzz.com/download/S/1472.asp
在ODBC中添加你的数据库,在ADOConnection的connectionString中建立连接即可。