Silverlight 让客户端通过 SQL 获得数据 WCF服务端（一）

概述如何让客户端执行SQL，并能完成数据的更新。   可以构思数据处理命令体的想法：就是Window 下的CMD 命令处理一样的道理。你写ipconfig 系统就会获得IP的信息出来。    我们在服务端建立：    Public Function ExeDBCommand(ByVal pUserMark As String, ByVal pCommand As String) As String  

如何让客户端执行sql，并能完成数据的更新。

 

可以构思数据处理命令体的想法：就是Window 下的CMD 命令处理一样的道理。你写ipconfig 系统就会获得IP的信息出来。

 

 我们在服务端建立：

 

 Public Function ExeDBCommand(ByVal pUserMark As String,ByVal pCommand As String) As String

 

这个服务函数，

pUserMark 是用户标志，用来识别用户的信息。

pCommand 是个命令的载体。表示命令体，可以包括单命令或批命令。他也是一个 Json格式的树型结构。

 

返回 String也是一个Json格式的数据载体。

 

首先我们规定 pCommand的结构。如查询数据：

 

{"WebComandNode":

   ["78ec4db4a089404bb22d5a7845add80c",

      {"CommandList":

         [

           {"TDBSelectNode": ["40841478df294aef9c03f854fcbbc8d0",null,"Select * from Tsystables  "]},

          {"TDBSelectNode":["f09d03552c434da9897148b1a5d1b84e","Select * from TSysFIElds  "]}

         ]

       }

   ]

}

 

这里边是一个WebCommand 的命令，里面有CommandList 的命令单：

其中有两个命令：TDBSelectNode 是属于数据查询，查询中的sql是

“Select * from Tsystables  ”

“Select * from TSysFIElds  ”。

 按照这个的规定，我们写装载Json字符串的解析类，叫做 WebComandNode

来装载这些字符串。

如函数：

Private Function LoadDBcommand(ByVal pJson As String) As WebComandNode

来处理字符串转化为类。

 

 

 

装载后的 WEbComandNode 就是我们执行命令的依据，通过函数

 

DBCommandResolve 作为整个 命令体的解析执行。

如下面的函数，负责对命令体的执行

Private Function DBCommandResolve(ByVal pCommand As IOptionNode) As Boolean

 

IOptionNode 为WebComandNode的基本接口类。

 

既然是数据处理必须包含数据查，删，改这些命令通过区别分开。

 

If pCommand Is nothing Then Throw New ArgumentNullException("命令体不能为空") End If ' If Not String.IsNullOrEmpty(pCommand.Tag) Then ' Dim Result As StringBuilder '命令 *** 作分类 Select Case pCommand.GetType.name ' GetType' .OptionType '综合处理 Case GetType(WebComandNode).name ' E_CommandType.DBComposite If pCommand.Nodes IsNot nothing Then For Each ItemCmd In pCommand.Nodes Dim MyComp As New TCmdExeForDBCompe(ItemCmd) MyComp.ExeRun(JsHelper.MDatabase) '’DBCommandResolve(ItemCmd) Next Else '需要处理错误 Throw New ArgumentException("子命令为空") End If ' Case GetType(TDBSelectNode).name '查询 Dim DBSelectCmd As TDBSelectNode = TryCast(pCommand,TDBSelectNode) If DBSelectCmd IsNot nothing Then Dim MySel As New TCmdExeForDBSel(DBSelectCmd) MySel.ExeRun(JsHelper.MDatabase) ' ExeDBSelect(DBSelectCmd) '执行数据查询 *** 作并返回结果 Else Throw New ArgumentException("查询的命令体不能为空") End If Case GetType(TDbedittable).name '编辑 Dim dbuptableCmd As TDbedittable = TryCast(pCommand,TDbedittable) If dbuptableCmd IsNot nothing Then Dim Mytable As New TCmdExeFordbupdata(dbuptableCmd) Mytable.ExeRun(JsHelper.MDatabase) ' ExeDbedittable(dbuptableCmd) '执行数据查询 *** 作并返回结果 Else Throw New ArgumentException("查询的命令体不能为空") End If Case Else End Select

 

 

 

 

分别去执行数据 *** 作，然后返回值。存在每一个 WebComandNode 下的一个属性上。

 

 

 再次使用一个 DBCmdBack 函数，将WebComandNode 的结果信息转化为Json字符串，

 

 

 返回给客户端。

总结

以上是内存溢出为你收集整理的Silverlight 让客户端通过 SQL 获得数据 WCF服务端（一）全部内容，希望文章能够帮你解决Silverlight 让客户端通过 SQL 获得数据 WCF服务端（一）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。