Foxtable(狐表)用户栏目专家坐堂 → 这个函数那里有问题


  共有3247人关注过本帖平板打印复制链接

主题:这个函数那里有问题

帅哥哟,离线,有人找我吗?
yedaoan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:1971 威望:0 精华:0 注册:2012/12/20 8:21:00
这个函数那里有问题  发帖心情 Post By:2013/12/25 12:06:00 [只看该作者]

Public Function Trans (Byval strSQL1 As String, Byval strSQL2 As String ,Byval strSQL3 As String ,Byval strSQL4 As String ,Byval strSQL5 As String  , _
                Byval strSQL6 As String ,Byval strSQL7 As String ,Byval strSQL8 As String ,Byval strSQL9 As String ,Byval strSQL10 As String ) As Boolean
Try
    Dim cmd  As New SQLCommand
    cmd.C
   
    cmd.CommandText = "Begin Transaction;" _
    & strSQL1 & ";" _
    & strSQL2 & ";" _
    & strSQL3 & ";" _
    & strSQL4 & ";" _
    & strSQL5 & ";" _
    & strSQL6 & ";" _
    & strSQL7 & ";" _
    & strSQL8 & ";" _
    & strSQL9 & ";" _
    & strSQL10 & ";" _
    & "Commit Transaction "
    cmd.ExecuteNonQuery
    Return True
Catch ex As Exception
    cmd.CommandText = "RollbackTrans"
    Return False
    MessageBox.Show("向服务器提交数据错误!","提示",MessageBoxButtons.OK)
End Try
End Function

 

报错如下图:

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部