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


  共有3193人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/25 12:08:00 [只看该作者]

你这里是全局代码 还是自定义函数?  只有在全局代码 中才可以这样 写

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


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:713 积分:5196 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2013/12/25 13:51:00 [只看该作者]

看着很高级啊 看不懂

 回到顶部