致命错误期间遇到命令执行MySQL的VB [英] Fatal Error Encounter During Command Execution MySQL VB

问题描述

ijust完成我的code使用VB和MySQL插入数据，但是当我跑我的网页它似乎有一个错误致命错误期间遇到命令执行。请帮助一些如何解决这个问题。下面是我的code。

进口System.Data.SqlClient的
进口MySql.Data.MySqlClient
部分请求类    继承System.Web.UI.Page    昏暗的MessageBox作为对象    保护小组的Page_Load（发送者为对象，E作为EventArgs的）把手Me.Load
        txt1.Focus（）
        txt2.Focus（）
        txt3.Focus（）
        txt4.Focus（）
        txt5.Focus（）
        txt6.Focus（）
        txt7.Focus（）
        ddl1.Focus（）
        ddl2.Focus（）
        ddl3.Focus（）
        ddl4.Focus（）
    结束小组    保护小组btnsubmit_Click（发送者为对象，E作为EventArgs的）把手btnsubmit.Click
        '创建SQL连接，并获取基于员工ID从数据库中的数据        昏暗康恩作为新MySql.Data.MySqlClient.MySqlConnection        昏暗strConnectionString作为字符串= ConfigurationManager.ConnectionStrings（testConnectionString）。的ConnectionString        尝试
            conn.ConnectionString = strConnectionString
            conn.Open（）        抓住EX作为MySql.Data.MySqlClient.MySqlException
            MessageBox.Show（ex.Message）
        结束Try
        昏暗cr_id作为字符串
        'cr_id =CR004
        昏暗iReturn由于布尔
        使用的SQLConnection作为新的MySqlConnection（strConnectionString）
            使用的SqlCommand作为新的MySqlCommand（）
                sqlCommand.Connection =的SQLConnection
                随着的SqlCommand
                    .CommandText =INSERT INTO cr_record(idcr_record,Emplid,Nama,date,DeptDesc,email,change,reasonchange,problem,priority,reasondescription,systemrequest) VALUES (@IDCR,@Emplid,@Nama,@date,@DeptDesc,'@email,@change,@reasonchange,@problem,@priority,@reasondescription,@systemrequest)\"
                    .CommandTimeout = 5000000
                    .CommandType = Data.CommandType.Text                    .Parameters.AddWithValue（@ EMPLID，txt1.Text）
                    .Parameters.AddWithValue（@那抹，TextBox1.Text）
                    .Parameters.AddWithValue（@日，txt5.Text）
                    .Parameters.AddWithValue（@ DeptDesc，txt2.Text）
                    .Parameters.AddWithValue（@电子邮件，txt4.Text）
                    .Parameters.AddWithValue（@变，ddl2.Text）
                    .Parameters.AddWithValue（@ reasonchange，txt6.Text）
                    .Parameters.AddWithValue（@问题，ddl3.Text）
                    .Parameters.AddWithValue（@优先权，rbl1.Text）
                    .Parameters.AddWithValue（@ reasondescription，txt7.Text）
                    .Parameters.AddWithValue（@ systemrequest，ddl4.Text）
                结束与
                尝试
                    SQLConnection.Open（）
                    sqlCommand.ExecuteNonQuery（）
                    sqlCommand.ExecuteNonQuery（）
                    iReturn = TRUE
                    MSGBOX（添加成功）
                抓住EX作为个MySqlException
                    MSGBOX（ex.Message.ToString＆安培; Err.Description它将）
                    iReturn = FALSE
                最后
                    SQLConnection.Close（）
                结束Try
            使用完
        使用完
        返回
    结束小组末级


解决方案

你可能忘了加这个参数 @IDCR

  .Parameters.AddWithValue（@ IDCR，toyourvariable）
 

ijust finish my code for inserting data using the vb and mySQL but when i run my webpage it seem have an error Fatal Error Encounter During Command Execution . Please help some how to solve it. below is my code.

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient


Partial Class Request

    Inherits System.Web.UI.Page

    Dim MessageBox As Object

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        txt1.Focus()
        txt2.Focus()
        txt3.Focus()
        txt4.Focus()
        txt5.Focus()
        txt6.Focus()
        txt7.Focus()
        ddl1.Focus()
        ddl2.Focus()
        ddl3.Focus()
        ddl4.Focus()
    End Sub

    Protected Sub btnsubmit_Click(sender As Object, e As EventArgs) Handles btnsubmit.Click


        'Create sql connection and fetch data from database based on employee id

        Dim conn As New MySql.Data.MySqlClient.MySqlConnection

        Dim strConnectionString As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString

        Try
            conn.ConnectionString = strConnectionString
            conn.Open()

        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show(ex.Message)
        End Try
        '  Dim cr_id As String
        ' cr_id = "CR004"
        Dim iReturn As Boolean
        Using SQLConnection As New MySqlConnection(strConnectionString)
            Using sqlCommand As New MySqlCommand()
                sqlCommand.Connection = SQLConnection
                With sqlCommand




                    .CommandText = "INSERT INTO cr_record(idcr_record,Emplid,Nama,date,DeptDesc,email,change,reasonchange,problem,priority,reasondescription,systemrequest) VALUES (@IDCR,@Emplid,@Nama,@date,@DeptDesc,'@email,@change,@reasonchange,@problem,@priority,@reasondescription,@systemrequest)"
                    ' .CommandTimeout = 5000000
                    .CommandType = Data.CommandType.Text

                    .Parameters.AddWithValue("@Emplid", txt1.Text)
                    .Parameters.AddWithValue("@Nama", TextBox1.Text)
                    .Parameters.AddWithValue("@date", txt5.Text)
                    .Parameters.AddWithValue("@DeptDesc", txt2.Text)
                    .Parameters.AddWithValue("@email", txt4.Text)
                    .Parameters.AddWithValue("@change", ddl2.Text)
                    .Parameters.AddWithValue("@reasonchange", txt6.Text)
                    .Parameters.AddWithValue("@problem", ddl3.Text)
                    .Parameters.AddWithValue("@priority", rbl1.Text)
                    .Parameters.AddWithValue("@reasondescription", txt7.Text)
                    .Parameters.AddWithValue("@systemrequest", ddl4.Text)




                End With
                Try
                    SQLConnection.Open()
                    ' sqlCommand.ExecuteNonQuery()
                    sqlCommand.ExecuteNonQuery()
                    iReturn = True
                    MsgBox("Added Successfully")
                Catch ex As MySqlException
                    MsgBox(ex.Message.ToString & Err.Description)
                    iReturn = False
                Finally
                    SQLConnection.Close()
                End Try
            End Using
        End Using
        Return
    End Sub



End Class

解决方案

you probably forgot to add this parameter @IDCR

.Parameters.AddWithValue("@IDCR", toyourvariable)

这篇关于致命错误期间遇到命令执行MySQL的VB的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！