allbluekos
allbluekos
采纳率88.5%
2015-06-30 00:58 阅读 1.8k
已采纳

第2个MSGBOX提示框没有弹出来,请帮忙看看。

代码如下:已经更新成功了,但是却没有提示。第一个msgbox在为空时候可以提示的。就是在TRY里面的不会提示。 换成MESSAGEBOX.SHOW也不行。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox8.Text = "" Or TextBox9.Text = "" Or MaskedTextBox1.Text = "" Then
MsgBox("Please input above")
End If
Dim mycn As New SqlClient.SqlConnection
Dim mycom As New SqlClient.SqlCommand
mycn.ConnectionString = "Data Source=192.168.0.215;Initial Catalog=blue;uid=sa;pwd=Wks123"
mycom.CommandText = " Update KnitC set Cleaner ='" & MaskedTextBox1.Text & "' where substring(filenm,1,4)='" & TextBox8.Text & "' and substring(filenm,charindex('.',FileNM)+1,LEN(fileNM)-charindex('.',fileNM))='" & TextBox9.Text & "'"
mycom.Connection = mycn
Try
mycn.Open()
Dim mysqlreader As Data.SqlClient.SqlDataReader = mycom.ExecuteReader
If mycom.ExecuteNonQuery > 0 Then
MsgBox("Save success")
Else
MsgBox("Save Fail")
End If

    Catch ex As Exception

    Finally
        mycn.Close()
    End Try
End Sub
  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

4条回答 默认 最新

  • 已采纳
    allbluekos allbluekos 2015-07-04 04:05

    直接把判断去掉 ,放到 catch ex as exception 里面 了。。实在是没有其他办法。。。说判断里面根本就不执行。

    点赞 评论 复制链接分享
  • bdmh bdmh 2015-06-30 01:14

    是不是报错了,直接跳到Catch里了

    点赞 评论 复制链接分享
  • allbluekos allbluekos 2015-06-30 06:42

    没有报错,数据库都已经成功更新了。就是没有提示“更新成功”

    点赞 评论 复制链接分享
  • allbluekos allbluekos 2015-07-02 00:57

    有人提示我,是这个地方错了,我是想判断更新数据条数大于0,就提示更新成功,否则失败。但是具体怎么错了,还是不懂啊,求解释
    If mycom.ExecuteNonQuery > 0 Then
    MsgBox("Save success")
    Else
    MsgBox("Save Fail")
    End If
    Catch ex As Exception

    Finally
        mycn.Close()
    End Try
    

    End Sub

    点赞 评论 复制链接分享

相关推荐