Search - GetADONetToCDSX

Search - GetADONetToCDSX - List

[Delphi VCL] DelphiCDSService2010 DL : 0: delphi调用C#Webservice访问数据库 //查询数据 procedure TForm1.Button1Click(Sender: TObject) var ls_Table: string ls_Service: Service1Soap begin ls_Service := Buf_GetBuleService ls_Table := Customers ClientDataSet1.XMLData := ls_Service.Buf_GetADONetToCDSXml( Northwind ,ls_Table, select * from +ls_Table) end //保存数据 procedure TForm1.Button2Click(Sender: TObject) var ls_Table: string ls_Service: Service1Soap begin ls_Service := Buf_GetBuleService ls_Table := Customers if ClientDataSet1.State in [dsEdit,dsInsert] then ClientDataSet1.Post if ClientDataSet1.ChangeCount>0 then ls_Service.Buf_PutCDSXmlToADONet( Northwind ,ls_Table,ClientDataSet1.XMLData) end -procedure TForm1.Button1Click(Sender: TObject) var ls_Table: string ls_Service: Service1Soap begin ls_Service := Buf_GetBuleService ls_Table := Customers ClientDataSet1.XMLData := ls_Service.Buf_GetADONetToCDSXml( Northwind ,ls_Table, select* from +ls_Table) end procedure TForm1.Button2Click(Sender: TObject) var ls_Table: string ls_Service: Service1Soap begin ls_Service := Buf_GetBuleService ls_Table := Customers if ClientDataSet1.State in [dsEdit,dsInsert] then ClientDataSet1.Post if ClientDataSet1.ChangeCount>0 then ls_Service.Buf_PutCDSXmlToADONet( Northwind ,ls_Table,ClientDataSet1.XMLData) end
Update : 2025-02-17 Size : 494kb Publisher : yanghongbin