【文件属性】:
文件名称:Delphi通过WebService访问数据库
文件大小:494KB
文件格式:RAR
更新时间:2013-02-02 02:18:14
Delphi WebService ClientDataSet
Delphi通过WebService访问数据库.
1.查询数据
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;
2.更新数据
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;
【文件预览】:
DelphiCDSService.sln
DelphiClient
----Unit1.dfm(2KB)
----Project1.exe(1.17MB)
----Unit1.pas(2KB)
----Service1.~pas(3KB)
----Unit1.dcu(6KB)
----Service1.dcu(3KB)
----Project1.~dpr(188B)
----Project1.res(876B)
----Unit1.~dfm(2KB)
----Unit1.~pas(1KB)
----Project1.dof(3KB)
----Project1.dpr(219B)
----Project1.cfg(434B)
----Service1.pas(3KB)
DelphiCDSService.gpState
DelphiCDSService
----App_Data()
----obj()
--------Debug()
----bin()
--------DelphiCDSService.dll(17KB)
--------DelphiCDSService.pdb(30KB)
----Service1.asmx.cs(2KB)
----Service1.asmx(98B)
----DelphiCDSService.csproj.user(1KB)
----Web.config(1KB)
----DelphiCDSService.csproj(4KB)
----DNDDSToCDS.cs(27KB)
----Properties()
--------AssemblyInfo.cs(1KB)
DelphiCDSService.suo
网友评论
- 些的不错,学习了
- 没有,服务端不是Delphi的
- 实现简单的连接可以参考
- 先谢谢了,学习了
- 一个简单的webservice访问数据库的例子,适合初学者参考使用
- 一般般,不是很实用,无法更新及复杂操作
- 很不错,经测试有效
- 不错, 是个新思路, 值得研究. 更新数据需要优化,不要传整个数据集,应该只上传更改的记录集.
- 参考了一下啊,多表更新的例子没有,也没提供事物处理
- 写的不错,学习了
- 非常不错,是个很有用的东西。
- 这是必须掌握的技术了,学习了,感谢提供!
- 很有用,帮助很大
- 我晕,这个是.NET 写的服务端,DELPHI 写的客户端,没用
- 这是一个Delphi2005以上的高版本做的,应该比Delphi6好用一些,但对D6、D7作用不大。
- 恩 值得学习哈 不需要搞.xtr文件,delphi 调用挺方便的
- 很不错,可以学习研究下这种方式实现数据交互
- 基础知识,学习一下!
- 有点不太懂,我是菜鸟。
- 兄弟的东东不错,挺好的。