我可以将数据插入表中，但什么也没插入 [英] I can insert data into the table but nothing inserted

问题描述

请参阅下面提到的查询，问题是，我想将数据插入表中，但什么也没插入，请解决此问题.

Please see the Below mentioned query, the problem is, I want insert the data into the table but nothing inserted, Please solve this problem.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim insql As String = "INSERT INTO patient (recpno,name,age,phone,date,refby,address,testcode,testname,amount) VALUES (@number1,@text2,@number3,@number4,@text5,@text6,@text7,@text8,@text9,@number10)"

        Dim cmd As SqlCommand = New SqlCommand(insql, sqlconn)
        Try

            sqlconn.Open()

            cmd.Parameters.AddWithValue("@number1", TextBox1.Text)
            cmd.Parameters.AddWithValue("@text2", TextBox2.Text)
            cmd.Parameters.AddWithValue("@number3", TextBox3.Text)
            cmd.Parameters.AddWithValue("@number4", TextBox4.Text)
            cmd.Parameters.AddWithValue("@text5", TextBox5.Text)
            cmd.Parameters.AddWithValue("@text6", TextBox6.Text)
            cmd.Parameters.AddWithValue("@text7", TextBox7.Text)
            cmd.Parameters.AddWithValue("@text8", TextBox8.Text)
            cmd.Parameters.AddWithValue("@text9", TextBox9.Text)
            cmd.Parameters.AddWithValue("@number10", TextBox10.Text)


            Dim rowsins As Double = cmd.ExecuteNonQuery

            MessageBox.Show(rowsins.ToString & rowsins.ToString & "row added")
            sqlconn.Close()
        Catch ex As Exception

        End Try
    End Sub
End Class

推荐答案

尝试调试代码以查看所有文本框均具有合法值.

拾取查询并使用此处设置的参数编写一个Select查询.执行此查询以确保该数据确实存在一行.

Try debugging your code to see all your textboxes have legitimate values.

Pick up the query and use the parameters set here to write a Select query. Execute this query to ensure that a row really exists for this data.

我将再试一次，但发生了相同的事情

I will try again but same thing is happen

Dim insql As String = "INSERT INTO patient (recpno,name,age,phone,date,refby,address,testcode,testname,amount) VALUES (@number1,@text2,@number3,@text4,@text5,@number6,@text7,@text8,@text9,@number10)"

        Dim cmd As SqlCommand = New SqlCommand(insql, sqlconn)
        Try

            sqlconn.Open()

            cmd.Parameters.AddWithValue("@number1", recieptxt.Text)
            cmd.Parameters.AddWithValue("@text2", nametxt.Text)
            cmd.Parameters.AddWithValue("@number3", agetxt.Text)
            cmd.Parameters.AddWithValue("@text", addresstxt.Text)
            cmd.Parameters.AddWithValue("@text5", datetxt.Text)
            cmd.Parameters.AddWithValue("@number6", phonetxt.Text)
            cmd.Parameters.AddWithValue("@text7", refbytxt.Text)
            cmd.Parameters.AddWithValue("@text8", testcodetxt.Text)
            cmd.Parameters.AddWithValue("@text9", testnametxt.Text)
            cmd.Parameters.AddWithValue("@number10", amounttxt.Text)


            Dim rowsins As Double = cmd.ExecuteNonQuery
              sqlconn.Close()

        Catch ex As Exception
            MessageBox.Show(rowsins.ToString & rowsins.ToString & " row added")
        End Try
   End Sub

一无所有您的代码有误.很可能是您输入了错误的sqlconn连接字符串或错误的表.

看到异常.改写成这样的异常捕获:

异常捕获
msgbox(例如消息)
结束尝试

there''s nothing wrong with your code. most probably you got the wrong sqlconn connection string or you got the wrong table.

to see the exception. rewrite to exception catch like this:

Catch ex as Exception
msgbox(ex.message)
End Try

这篇关于我可以将数据插入表中，但什么也没插入的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！