Y-Ssin
21 April 2010, 20:07
Ik ben bezig met een programma te schrijven, met een database connectie waar je simpelweg gegevens kan toevoegen, bekijken, verwijderen en wijzigen. Ik gebruik daarvoor een acces(2003) database .mdb
Ik doe mijn data acces in aparte klassen.
In mijn klassen "Klanten" heb ik dus een sub om nieuwe klanten toe te voegen:
Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & My.Settings.connstring & "'"
Dim comm As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Public Sub saveklant()
Dim conn As New OleDb.OleDbConnection(connstring)
conn.Open()
comm.Connection = conn
comm.CommandText = "INSERT INTO tbl_klanten (aanspreking, naam, voornaam, bedrijf, maatschappelijke_zetel, gsm, e-mail_adres, gebruiker) VALUES ('" & _aanspreking & "','" & _naam & "','" & _voornaam & "','" & _bedrijf & "','" & _zetel & "','" & _GSM & "','" & _email & "', '" & _gebruiker & "')"
comm.ExecuteNonQuery()
conn.Close()
End SubDie property's zyn boven aangemaakt.
De code van mijn form om de gegevens toe te voegen:
Private Sub btnsaveclient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveclient.Click
Dim k As New Klanten
k.aanspreking = cboAanspreking.Text
k.naam = txtnaam.Text
k.voornaam = txtvoornaam.Text
k.bedrijf = txtbedrijf.Text
k.zetel = txtzetel.Text
k.GSM = txtgsm.Text
k.email = txtemail.Text
k.gebruiker = My.Settings.ingelogd
k.saveklant()
MsgBox("U hebt een nieuwe klant aangemaakt: " & k.aanspreking & " " & k.naam & " " & k.voornaam & "", MessageBoxIcon.Information, "Taskbuddy - Klant aangemaakt")
Me.Close()
End Sub
Nu krijg ik elke keer als ik run, de gegevens invul en op de button klik een syntax error: "De instructie INSERT bevat een syntaxisfout."
Ik heb eindeloos zitten nakijken naar de namen van mijn tabel en van mijn kollommen, naar haakjes, aanhaaltekens, maar ik heb niets gevonden, dit zou moeten werken maar dat doet het niet. :S
Is er iemand die me hiermee kan helpen?
Ik doe mijn data acces in aparte klassen.
In mijn klassen "Klanten" heb ik dus een sub om nieuwe klanten toe te voegen:
Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & My.Settings.connstring & "'"
Dim comm As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Public Sub saveklant()
Dim conn As New OleDb.OleDbConnection(connstring)
conn.Open()
comm.Connection = conn
comm.CommandText = "INSERT INTO tbl_klanten (aanspreking, naam, voornaam, bedrijf, maatschappelijke_zetel, gsm, e-mail_adres, gebruiker) VALUES ('" & _aanspreking & "','" & _naam & "','" & _voornaam & "','" & _bedrijf & "','" & _zetel & "','" & _GSM & "','" & _email & "', '" & _gebruiker & "')"
comm.ExecuteNonQuery()
conn.Close()
End SubDie property's zyn boven aangemaakt.
De code van mijn form om de gegevens toe te voegen:
Private Sub btnsaveclient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveclient.Click
Dim k As New Klanten
k.aanspreking = cboAanspreking.Text
k.naam = txtnaam.Text
k.voornaam = txtvoornaam.Text
k.bedrijf = txtbedrijf.Text
k.zetel = txtzetel.Text
k.GSM = txtgsm.Text
k.email = txtemail.Text
k.gebruiker = My.Settings.ingelogd
k.saveklant()
MsgBox("U hebt een nieuwe klant aangemaakt: " & k.aanspreking & " " & k.naam & " " & k.voornaam & "", MessageBoxIcon.Information, "Taskbuddy - Klant aangemaakt")
Me.Close()
End Sub
Nu krijg ik elke keer als ik run, de gegevens invul en op de button klik een syntax error: "De instructie INSERT bevat een syntaxisfout."
Ik heb eindeloos zitten nakijken naar de namen van mijn tabel en van mijn kollommen, naar haakjes, aanhaaltekens, maar ik heb niets gevonden, dit zou moeten werken maar dat doet het niet. :S
Is er iemand die me hiermee kan helpen?