为什么我的留言簿应用程序中的数据没有保存到数据库中

Question

我正在创建一个需要留言簿的应用程序。。数据库中的数据显示在网站上，但我从网站输入的任何数据都不会自动放入数据库。

这是我的密码。。

Protected Sub ButSign_Click(sender As Object, e As EventArgs) Handles ButSign.Click
 Dim strDSN As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & " 
Data source=C:USERSSHAUNA WATSONDESKTOPPROJECT COPIESFINALAPP_DATAFACTORY.MDF"
 Dim strSQL As String = (((("INSERT INTO Guestbook " & "( Name,Address,Email,Comments)" & "VALUES ('")
 + TxtName.Text.ToString() & " ',' ") + TxtAddress.Text.ToString() & " ', '") + TxtEmail.Text.ToString() & " ',' ") + TxtComments.Text.ToString() & " ')"

    ' set Access connection and select strings 
    ' Create oleDbDataAdapter 
    Dim myConn As New OleDbConnection(strDSN)
    'Create ole Db Command And call ExecuteNonQuery to execute 
    ' a SQL statement 
    Dim myCmd As New OleDbCommand(strSQL, myConn)
    Try
        myConn.Open()
        myCmd.ExecuteNonQuery()
    Catch exp As Exception
        Console.WriteLine("Error: {0}", exp.Message)
    End Try
    myConn.Close()
    ' open Thans.aspx page after adding entries to the guest book 
    Response.Redirect("GuestbookThanks.aspx")
End Sub

我只是想知道是否有人能发现我可能错过的东西！

Answer 1

您可以尝试将代码更改为：

    myConn.Open()
    Dim myCmd As New OleDbCommand
    With myCmd
        .Connection = myConn
        .CommandType = CommandType.Text
        .CommandText = "INSERT INTO Guestbook (Name,Address,Email,Comments) VALUES (@Name,@Address,@Email,@Comments)"
        .Parameters.Add("@Name", OleDbType.VarChar).Value = TxtName.Text
        .Parameters.Add("@Address", OleDbType.VarChar).Value = TxtAddress.Text
        .Parameters.Add("@Email", OleDbType.VarChar).Value = TxtEmail.Text
        .Parameters.Add("@Comments", OleDbType.VarChar).Value = TxtComments.Text
    End With
    myCmd.ExecuteNonQuery()
    myConn.Close()

不要将其放入Try Block。如果你得到一个错误，只需发布它，我们就会看到错误是什么。