0

これは私のコードです：

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)

データベースにユーザーを追加する必要があります...

4

1 に答える 1

0

まず、GebruikersnaamとWachtwoordがdtGEBRUIKERテーブルのDataColumnsとして存在することを確認します。

これらの行でエラーが発生したと言う場合：

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

どの行ですか？そして、どのようなエラーですか？

于 2011-01-19T10:34:30.453 に答える