Location:
Search - GetADONetToCDSX
Search list
Description: 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
Platform: |
Size: 505856 |
Author: yanghongbin |
Hits: