我试图更新“IF THEN”语句中的一个SQL数据库,但我得到:ExecuteNonQuery:连接属性尚未初始化。即使连接打开
ExecuteNonQuery:连接属性尚未初始化。
当我运行我的代码。
Private m_cn As New SqlConnection
If oldcost <> newcost Then
'Dim myconnect As New SqlClient.SqlConnection
m_cn.ConnectionString = "Data Source=localhost;Initial Catalog=tires;Integrated Security=True"
m_cn.Open()
Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
'm_cn.Open()
mycommand.CommandText = "INSERT INTO tire_price_changes (change_date, old_cost, old_retail,new_cost,new_retail,tire_id) VALUES (@change_date, @Nold_cost, @old_retail, @new_cost, @new_retail, @tire_id)"
Try
mycommand.Parameters.Add("@change_date", SqlDbType.Date).Value = tiredate
mycommand.Parameters.Add("@old_cost", SqlDbType.NVarChar).Value = oldcost
mycommand.Parameters.Add("@old_retail", SqlDbType.VarChar).Value = oldretail
mycommand.Parameters.Add("@new_cost", SqlDbType.VarChar).Value = newcost
mycommand.Parameters.Add("@new_retail", SqlDbType.NVarChar).Value = newretail
mycommand.Parameters.Add("@tire_id", SqlDbType.NVarChar).Value = m_introwposition
mycommand.ExecuteNonQuery()
MsgBox("Success")
Catch ex As System.Data.SqlClient.SqlException
MsgBox(ex.Message)
End Try
End If
您需要将连接附加到命令对象,如'mycommand.Connection = m_cn'。 –
埃德,那工作...谢谢!我不知道为什么我为我的帖子得到-1,但是...... :( –
我也没有明白:你有一个有针对性的问题和一个代码示例,并且包含了错误信息。一个投票,它看起来像你现在在这个问题的积极领土:) –