VB.Net

Question

你能告诉我我使用的代码有什么问题吗？每次我执行这个，它都会抛出异常（无法连接到数据库）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim conn As New System.Data.OleDb.OleDbConnection()

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\socnet.accdb"

Dim sql As String = String.Format("INSERT INTO login     VALUES('{username}','{password}','{secques}','{secans}')", txt_username.Text, txt_passwd.Text, txt_secquestion.Text, txt_secansw.Text)

            Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql)

            'Open Database Connection
            sqlCom.Connection = conn
            conn.Open()
            Dim icount As Integer = sqlCom.ExecuteNonQuery
            MessageBox.Show(icount)
            MessageBox.Show("Successfully registered..", "Success", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception
            MessageBox.Show("Failed to connect to Database..", "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

        cmd_submit2_Click(sender, e)

    End If
End Sub

我正在使用 Access 2013 和 VS 2015 Community，如果有帮助的话。谢谢。

Answer 1

您应该对命令使用参数化方法。参数化查询消除了 Sql 注入的可能性，如果您的字符串值格式不正确，您将不会收到错误。

请注意，如果您不在异常块中执行任何操作，那么最好将其删除并让异常自行显示或至少显示 Exception.Message 值，以便您了解实际情况错误。

最后，每个一次性对象都应使用 Using 语句创建，以确保正确关闭和处置此类对象（特别是 OleDbConnection）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim sql As String = "INSERT INTO login VALUES(@name, @pass, @sec, @sw)"
    Using conn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\socnet.accdb")
    Using sqlCom = New System.Data.OleDb.OleDbCommand(sql, conn)
         conn.Open()
         sqlCom.Parameters.Add("@name", OleDbType.VarWChar).Value = txt_username.Text
         sqlCom.Parameters.Add("@pass", OleDbType.VarWChar).Value = txt_passwd.Text
         sqlCom.Parameters.Add("@sec", OleDbType.VarWChar).Value = txt_secquestion.Text
         sqlCom.Parameters.Add("@sw", OleDbType.VarWChar).Value =  txt_secansw.Text 
         Dim icount As Integer = sqlCom.ExecuteNonQuery
    End Using
    End Using
End Sub

请记住，在 INSERT INTO 语句中省略字段名称需要您为登录 table 中存在的每个字段提供值，并按照 table 预期的确切顺序（因此最好插入字段名称）

例如，如果您的 table 只有 4 个已知字段：

Dim sql As String = "INSERT INTO login (username, userpass, secfield, secfieldsw) " & _ 
                    "VALUES(@name, @pass, @sec, @sw)"

VB.Net - 使用 OleDb 将数据插入 Access 数据库

VB.Net - Inserting data to Access Database using OleDb

oledb

ms-access