我必须通过 VS2008 和 ADO.NET 向我的访问 DBMS 添加新记录如何？

Question

这是我的代码：

Imports System.Data
Public Class frmNieuweGebruiker

Private Sub frmNieuweGebruiker_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'verbinding maken met databank
    Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=I:\Geïntegreerde proef\ApplicatieOntwikkeling\GIP.mdb"
    Dim strSQL As String = "SELECT * FROM GEBRUIKER"
    Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConnection)
    'databank gebruiker info ophalen.
    dataAdapter.Fill(frmAanmeldingsscherm.dtGEBRUIKER)
    dataAdapter.Dispose()
End Sub

Private Sub btnGebruikersnaamBevestigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGebruikersnaamBevestigen.Click
    Dim strGebruikersnaam As String
    Dim strWachtwoord As String
    Dim drNieuweGebruiker As DataRow = frmAanmeldingsscherm.dtGEBRUIKER.NewRow()

    strGebruikersnaam = txtGebruikersnaam.Text

    If txtWachtwoord.Text <> txtWachtwoordBevestigen.Text Or txtWachtwoord.Text = "" Or txtWachtwoordBevestigen.Text = "" Then
        MsgBox("U hebt een fout ingegeven." + vbNewLine + "Probeer nogmaals.")
        txtWachtwoord.Text = ""
        txtWachtwoordBevestigen.Text = ""
    Else
        strWachtwoord = txtWachtwoord.Text

        drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam
        drNieuweGebruiker("Wachtwoord") = strWachtwoord

        frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker)

        frmMenu.Show()
        frmAanmeldingsscherm.txtGebruikersnaam.Text = strGebruikersnaam
        Me.Close()
    End If

End Sub

End Class

当我告诉他这样做时，他给出了一个错误报告：

drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam
drNieuweGebruiker("Wachtwoord") = strWachtwoord
frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker)

我只需要向我的数据库添加一个用户......

Answer 1

首先确保 Gebruikersnaam 和 Wachtwoord 作为 DataColumn 存在于 dtGEBRUIKER 表中。

当您说您在这些行上遇到错误时：

drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam 
drNieuweGebruiker("Wachtwoord") = strWachtwoord
frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker)

哪一行？什么错误？