小平台在C#和VB下用法

 '功能:保存数据
    '参数：dataxml，Userxml
    '返回值：bool
    '创建人：彭松
    '创建时间：2013-12-18
    Function SavUserInfo(ByVal DataXml As String, ByVal UserXml As String) As String

        Dim xmlDOM As New XmlDocument
        Dim xmlDOMUser As New XmlDocument
        Dim xmlNodeList As XmlNodeList
        Dim xmlNodeGUID As XmlNodeList
        Dim intRowCounts As Int16
        '1. 获取并处理实体的数据 (DataXml) 
        MyDB.SaveXml(DataXml)
        xmlDOM.LoadXml(DataXml)



        '2. 获取并处理实体的数据 (UserDataXml)
        If UserXml <> "" And UserXml <> "null" Then
            xmlDOMUser.LoadXml(UserXml)
            xmlNodeList = xmlDOMUser.SelectNodes("myxml/mysub")
            xmlNodeGUID = xmlDOMUser.SelectNodes("myxml/myGUID")
            Dim userGUID As String = xmlNodeGUID(0).InnerText
            intRowCounts = xmlNodeList.Count

            For i As Integer = 0 To intRowCounts - 1
                Dim subGUID As String = xmlNodeList(i).ChildNodes(0).FirstChild.Value
                Dim subName As String = xmlNodeList(i).ChildNodes(1).FirstChild.Value
                Dim passedScore As String = xmlNodeList(i).ChildNodes(2).FirstChild.Value
                Dim score As String = xmlNodeList(i).ChildNodes(3).FirstChild.Value

                '校验是否存在用户填写的成绩比科目的总成绩大
                Dim param = New With {.subguid = subGUID}
                Dim objS As SSubject = CPQuery.From("select top 1 * from [s_subject] where SubGUID=@subguid", param).ToSingle(Of SSubject)()
                If objS.WholeScore < score Then
                    Return "<xml result=""false"" errormessage=""填写数据过大，请与重新填写！""></xml>"
                End If

                '保存用户的考试成绩到s_User2Subject表
                Dim paramOne = New With {.subguid = subGUID, .userguid = userGUID}
                Dim objSub As SSubject = CPQuery.From("select top 1 * from [s_User2Subject] where SubGUID=@subguid and UserGUID=@userguid", paramOne).ToSingle(Of SSubject)()
                If objSub Is Nothing Then
                    Dim strSql As String = "  insert into s_User2Subject (User2SubGUID ,UserGUID ,SubGUID ,Score ) values(NEWID (),@userguid,@subguid,@score)"
                    Dim parameters = New With {.userguid = userGUID, .subguid = subGUID, .score = score}
                    '如果执行出错.ExecuteNonQuery方法将抛出异常.而不是返回-1
                    Try
                        CPQuery.From(strSql, parameters).ExecuteNonQuery()
                        Return "<xml result=""true"" keyvalue=""""></xml>"
                        '执行成功的业务逻辑
                    Catch ex As System.Exception
                        '执行失败的错误处理
                        Return "<xml result=""false"" errormessage=""运行时异常，请与管理员联系！""></xml>"
                    End Try

                End If



            Next

        End If

        Return "<xml result=""true"" keyvalue=""""></xml>"
    End Function

这是vb的保存数据，主要是dataxml，和userxml。其中dataxml可以由appForm自动收集，userxml需要自己解析，然后调用小平台进行保存

转载于:https://www.cnblogs.com/elevenlang/p/3482441.html