如何访问远程数据库??
解决方案 »
- 如何将表中的数据逐一赋给LABEL?
- 如何实现如QQ在屏幕右下角弹出的通知窗口,
- 关于在delphi中数据库的连接,增,删,改,查功能的实现(代码)
- 如何用delphi 调用 java的方法 ?
- 我实在是没办法了!!idTcpServer/Client之间相互通不了信,报"Connection Closed Gracefully"的错,大家都来帮忙看一下代码!
- 菜鸟拜托各位大虾:怎样逐个查找并删除相同数据项 急!!
- 我想学游戏编程(delphi),不知道买什么样的入门书?
- 如何打印"n/m"形式的页号其中n为第几页,m为总页数?
- 我怎么能把查询来的内容添加到ComboBox1里去呢?
- 如何知道一个控件有那些属性???
- 如何在过程中定义常量!!!或如何在定义变量时给个默认数值
- 控件使用经验交流,来者有分。【精华】
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中建立连接即可。