[请教]如何在DELPHI里面实现定时自动读取数据库,并将数据传送给远端的数据库中? ( 积分: 100 )

  • 主题发起人 主题发起人 宇文天祥
  • 开始时间 开始时间

宇文天祥

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:如何在DELPHI里面实现定时自动读取数据库,并将数据传送给远端的数据库中?

或者能不能提供一些关于这方面的资料。

小弟初学DELPHI还请高手多多指点!在此小弟不胜感激!
 
请教:如何在DELPHI里面实现定时自动读取数据库,并将数据传送给远端的数据库中?

或者能不能提供一些关于这方面的资料。

小弟初学DELPHI还请高手多多指点!在此小弟不胜感激!
 
利用时间呀
 
可以这样了,利用时间或ID
1.先取本地表的最大时间或ID
2.删除程表中<最大时间或ID
3.删除本地表=最大时间或ID
4.取远程表中>最大时间或ID的记录加入本地表中
 
读取INI,下面的例子或许对你有帮助。
ini文件中这样
[database]
Provider=SQLOLEDB.1
Persist Security Info=False
username=sa
databasename=rsgl
servername=jw


procedure Trsgl_login.FormActivate(Sender: TObject);
var i:integer;
ini: TIniFile;
ServerName,S1: string;
UserName, PWD: string;
DatabaseName1:string;
lj:string;
begin
lj:=ExtractFilePath(paramstr(0))+'lmd.ini';
ini := TIniFile.Create(lj);
try
UserName := ini.ReadString('Database', 'UserName', '');
Pwd := ini.ReadString('Database', 'Password', '');
ServerName := ini.ReadString('Database', 'ServerName', '');
DatabaseName1:=ini.ReadString('Database','DatabaseName','');
finally
ini.Free;
end;
rsgl_data.rsgl_connect.Connected := false;
try

S1:='Provider=SQLOLEDB.1;'+
'Password='+PWD+';'+
'Persist Security Info=False;'+
'User ID='+UserName+';'+
'Initial Catalog='+DatabaseName1+';'+
'Data Source='+ServerName+';';
rsgl_data.rsgl_connect.ConnectionString:=S1;
rsgl_data.rsgl_connect.Connected := true;
except
showmessage('连接数据库服务器异常!');
end;
end;


//连接完后
读取数据很简单
放几个控件连接一下就可以实现了。
 
添加一个Timer组件,然后设置OnTimer事件和响应间隔
在OnTimer事件中执行你的更新处理
这能不能满足你的需求呀
 
可能我的意思大家没有理解到!
程序需要这样的功能:
服务器端自动定时读数据库中的数据,并传送数据给远端的客户端(客户端是一个或多个网络节点)。客户端一旦主动向服务器端发送数据请求时,服务器立即向客户端发送数据。当服务器端数据值超过预定的范围时,服务器端也应立即向客户端发送数据。

请各位大虾同情小生菜鸟,初学DELPHI,请多多指教!
 
添加一个Timer组件,然后设置OnTimer事件和响应间隔
 
后退
顶部