Я должен добавить новую запись в мою СУБД доступа через VS2008 и ADO.NET, как? - PullRequest
Новая
       35

Я должен добавить новую запись в мою СУБД доступа через VS2008 и ADO.NET, как?

0 голосов
/ 19 января 2011

Это мой код: 

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

Конечный класс

Он сообщает об ошибке, когда я говорю ему сделать это: 

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

и я простонужно добавить пользователя в мою базу данных ...

1 Ответ

0 голосов
/ 19 января 2011

Во-первых, убедитесь, что Gebruikersnaam и Wachtwoord существуют как столбцы данных в таблице dtGEBRUIKER.

Когда вы говорите, что получаете сообщение об ошибке в этих строках: 

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

Какая линия?А какая ошибка?

...