以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个函数那里有问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44202)

--  作者:yedaoan
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/12/25 12:08:00
--  
你这里是全局代码 还是自定义函数?  只有在全局代码 中才可以这样 写
--  作者:yedaoan
--  发布时间:2013/12/25 12:42:00
--  

这样啊,我换个地方,试试


--  作者:jiskin
--  发布时间:2013/12/25 13:51:00
--  
看着很高级啊 看不懂