插入命令不插入数据库？

Question

你好，

有人可以告诉我这段代码中做错了什么吗

Protected Sub insert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Insert.Click
    Dim mydb As New OleDbConnection
    mydb = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= |datadirectory|database.mdb;Persist Security Info=True")
    mydb.Open()
    Dim sqlstring = "INSERT INTO [maintable] ([field1], [field2]) VALUES (@textbox1, @textbox2);"
    Dim mydbcommand As New OleDbCommand(sqlstring, mydb)
    TextBox1.Text = mydbcommand.Parameters.Add("@textbox1", OleDbType.VarChar).Value
    TextBox2.Text = mydbcommand.Parameters.Add("@textbox2", OleDbType.VarChar).Value 
    mydbcommand.ExecuteNonQuery()
    mydb.Close()
    TextBox1.Text = ""
    TextBox2.Text = ""

End Sub

Answer 1

我认为你应该使用

mydbcommand.Parameters.Add("@textbox1", OleDbType.VarChar).Value = TextBox1.Text
mydbcommand.Parameters.Add("@textbox2", OleDbType.VarChar).Value = TextBox2.Text 

而不是

 TextBox1.Text = mydbcommand.Parameters.Add("@textbox1", OleDbType.VarChar).Value
 TextBox2.Text = mydbcommand.Parameters.Add("@textbox2", OleDbType.VarChar).Value 

尝试它并告诉我你是否仍然面临问题