TUpdateSQL類如何用的呢?菜鳥的問題.

时间:2022-04-10 16:05:35
將TDdataSet類對象的UpdateObject屬性設為TUpdateSQL如何用呢?
運行時將TUpdateSQL類對象的Dataset屬性設為TDataset又如何用呢?
我用的時候總是出錯!
我是一只菜菜菜鳥,麻煩您告訴我的時候講詳細一點或是給我介紹一個地方去看下相關的資料。
對了,還有<<DELPHI開發人員指南>>這本書那有下,有位仁兄告訴一個地方可下載,可我下下來之后生死老打不開,哎!真是可恨!9X M啊...居然...

8 个解决方案

#1


我可是僅有的分都捐出來了!!!

#2


<D5开发人员指南>是PDF格式的,你要下载个PDF阅读工具。如Adobe 公司的

#3


我有下呀,我下的就是Adobe公司的Acrobat Reader 4.0英文版的

#4


我下到了中文版了,前兩個有人可以幫我嗎?

#5


UpdateSQL的主要功能是减少网络的数据流量,当所有的修改全部完成以后,一次性的更新到后端的数据库里去,你可以到Delphi自带的例子中去找找看,因为时间太久啦,我也记得不是很清楚了,有时间的话,我帮你写个例子?

#6


<<DELPHI開發人員指南>>这个在哪里有下的??

#7


好像很多人碰到这个问题,那我把再帖我的范例吧(通过UpdateSQL添加一条新纪录):

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Query.DatabaseName := 'DBDEMOS';
  Query.SQL.Clear;
  Query.SQL.Add('SELECT Orders.CustNo, Orders.OrderNo, Orders.EmpNo, Customer.Company '
                + ' FROM Orders,Customer '
                + ' Where Orders.CustNo = Customer.CustNo ') ;
  Query.RequestLive := True;

  UpdateSQL.InsertSQL.Clear;
  UpdateSQL.InsertSQL.Add('Insert into "orders.db"(CustNo, OrderNo, EmpNo)'
                          + 'values (:CustNo, :OrderNo, :EmpNo)');
  Query.UpdateObject := UpdateSQL;

  Query.Active := True;
end;


procedure TfrmMain.AddBtnClick(Sender: TObject);
begin
  Query.Insert;
  Query.FieldByName('CustNo').AsInteger := 1221;
  Query.FieldByName('OrderNo').AsInteger := 100;
  Query.FieldByName('EmpNo').AsInteger := 5;
  Query.FieldByName('Company').AsString := 'Company';
  Query.Post;
end;

#8


回resun:
http://cn.ilike.lycosasia.com/program/book/index.html處有<<DELPHI開發人員指南>>
http://pcbook.51soft.com處有Acrobat Reader 4.0中文版下

#1


我可是僅有的分都捐出來了!!!

#2


<D5开发人员指南>是PDF格式的,你要下载个PDF阅读工具。如Adobe 公司的

#3


我有下呀,我下的就是Adobe公司的Acrobat Reader 4.0英文版的

#4


我下到了中文版了,前兩個有人可以幫我嗎?

#5


UpdateSQL的主要功能是减少网络的数据流量,当所有的修改全部完成以后,一次性的更新到后端的数据库里去,你可以到Delphi自带的例子中去找找看,因为时间太久啦,我也记得不是很清楚了,有时间的话,我帮你写个例子?

#6


<<DELPHI開發人員指南>>这个在哪里有下的??

#7


好像很多人碰到这个问题,那我把再帖我的范例吧(通过UpdateSQL添加一条新纪录):

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Query.DatabaseName := 'DBDEMOS';
  Query.SQL.Clear;
  Query.SQL.Add('SELECT Orders.CustNo, Orders.OrderNo, Orders.EmpNo, Customer.Company '
                + ' FROM Orders,Customer '
                + ' Where Orders.CustNo = Customer.CustNo ') ;
  Query.RequestLive := True;

  UpdateSQL.InsertSQL.Clear;
  UpdateSQL.InsertSQL.Add('Insert into "orders.db"(CustNo, OrderNo, EmpNo)'
                          + 'values (:CustNo, :OrderNo, :EmpNo)');
  Query.UpdateObject := UpdateSQL;

  Query.Active := True;
end;


procedure TfrmMain.AddBtnClick(Sender: TObject);
begin
  Query.Insert;
  Query.FieldByName('CustNo').AsInteger := 1221;
  Query.FieldByName('OrderNo').AsInteger := 100;
  Query.FieldByName('EmpNo').AsInteger := 5;
  Query.FieldByName('Company').AsString := 'Company';
  Query.Post;
end;

#8


回resun:
http://cn.ilike.lycosasia.com/program/book/index.html處有<<DELPHI開發人員指南>>
http://pcbook.51soft.com處有Acrobat Reader 4.0中文版下