ADO编程(50分)

  • 主题发起人 主题发起人 sdwflzg
  • 开始时间 开始时间
S

sdwflzg

Unregistered / Unconfirmed
GUEST, unregistred user!
TADOQuery控件用LoadFromFile调入的数据,怎样写入数据库?
 
大概是ApplyUpdates
 


你是不是要在客户端生产本地表,然后再提交到服务器上,哪这可完成你的要求。

用ADODataSet,把CommandType属性设为cmdFile,在CommaneText中设上本地的路径,如:H:/Pos/Data/Salelist.adtg 。

可用以下程序从服务端数据库中更新数据,
FileName:本地表名(H:/Pos/Data/Salelist.adtg );
ADODataSet:ADODataSet控件名;
SQLStr:更新数据用的查询SQL语句;

procedure TPosMainFrm.miRefreshClick(Sender: TObject);
var FileName:String;
begin
FileName:=AppPath+'Data/ItemDet.adtg';
GetFile(FileName,ADODataSet,SQLStr);
end;

procedure TPosMainFrm.GetFile(FileName:String;Cds:TAdoDataSet;Cmd:String);
begin
if not AdoConn.Connected then
begin
try
AdoConn.ConnectionString:=ConnString;
AdoConn.Connected:=true;
except
if EditConnectionString(AdoConn) then
begin
ConnString:=AdoConn.ConnectionString;
end
else Exit;
end;
end;
if Cds.Active then Cds.Close;
if FileExists(FileName) then DeleteFile(FileName);
Cds.CommandText:=Cmd;
Cds.CommandType:=CmdText;
Cds.Open;
Cds.SaveToFile(FileName);
Cds.LoadFromFile(FileName);
end;


用以下语句向服务端数据库进行提交:
AdsPosSale.UpdateBatch;
 
我提的稀里糊涂,回答的相当认真,可是为题还是没解决!
我再说一遍看怎样。
用ADO连接方式,从服务器(MS SQL 7.0),取得数据,存入本地一个文件中,
再用 TADOQuery控件的LoadFromFile调入的数据,并修改,怎样将数据写回数据库?
 
用以下语句向服务端数据库进行提交:
AdsPosSale.UpdateBatch;
 
接受答案了.
 
后退
顶部