allbluekos 2016-05-31 00:32 采纳率: 88.5%
浏览 1502
已采纳

已经保存成功但是不弹出提示框,请帮忙看看，谢谢！

 mycn.ConnectionString = "Data Source=" & ControlC.TextBox2.Text & ";Initial Catalog=" & ControlC.TextBox3.Text & ";uid=windmill;pwd=123"
        mycom.CommandText = "if exists(select PdOID  from PdO  where PdOID='" & TextBox3.Text & "') begin update PdO set pdoclientNM='" & TextBox4.Text & "', pdofilldate='" & DateTimePicker3.Value & "',pdoCFdate='" & DateTimePicker4.Value & "',pdoCLdate='" & DateTimePicker5.Value & "',pdofillMan='" & TextBox5.Text & "',pdoCFMan='" & TextBox6.Text & "',pdoCLMan='" & TextBox7.Text & "',pdoFLteam='" & TextBox8.Text & "' where PdOID='" & TextBox3.Text & "' end else begin insert into PdO values('" & TextBox3.Text & "','" & TextBox4.Text & "','" & DateTimePicker3.Value & "','" & DateTimePicker4.Value & "','" & DateTimePicker5.Value & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "') end"
        mycom.Connection = mycn

        Try
            mycn.Open()
            Dim mysqlreader As Data.SqlClient.SqlDataReader = mycom.ExecuteReader
            'mycom.ExecuteNonQuery()
            If mycom.ExecuteNonQuery() > 0 Then
                MessageBox.Show("数据保存成功！")
            End If
        Catch ex As Exception
        Finally
            mycn.Close()
        End Try
  • 写回答

1条回答 默认 最新

  • 夜空中最亮的那颗星 2016-06-01 15:34
    关注

    MessageBox.Show("数据保存成功！") 这句是弹框 删了就不会弹出提示框

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题？

悬赏问题

  • ¥15 HFSS 中的 H 场图与 MATLAB 中绘制的 B1 场 部分对应不上
  • ¥15 如何在scanpy上做差异基因和通路富集？
  • ¥20 关于#硬件工程#的问题，请各位专家解答！
  • ¥15 关于#matlab#的问题：期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707，使系统具有较小的超调量
  • ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
  • ¥30 截图中的mathematics程序转换成matlab
  • ¥15 动力学代码报错，维度不匹配
  • ¥15 Power query添加列问题
  • ¥50 Kubernetes&Fission&Eleasticsearch
  • ¥15 報錯：Person is not mapped，如何解決？