redblack
Legacy Member
Ik heb volgende code geschreven voor een database te vullen, maar er wordt een fout gegeven met de execute non query.
Private Function vullen_tabel_klant()
ds = New DataSet
objconn = New OleDbConnection(strconn)
strsql = "INSERT INTO Klant"
strsql += "(Klantnr,Naam,Voornaam,Leeftijd,Adres,Postcode,Gemeente,Email,Wachtwoord)"
strsql += " VALUES (@klantnr,@naam,@voornaam,@leeftijd,@adres,@postcode,@gemeente,@email,@wachtwoord)"
objcmd = New OleDbCommand(strsql, objconn)
objcmd.Connection.Open()
objcmd.Parameters.Add("@klantnr", txtnummer.Text)
objcmd.Parameters.Add("@naam", Server.HtmlEncode(txtnaam.Text))
objcmd.Parameters.Add("@voornaam", Server.HtmlEncode(txtvoornaam.Text))
objcmd.Parameters.Add("@leeftijd", txtleeftijd.Text)
objcmd.Parameters.Add("@adres", Server.HtmlEncode(txtadres.Text))
objcmd.Parameters.Add("@postcode", txtpostcode.Text)
objcmd.Parameters.Add("@gemeente", Server.HtmlEncode(txtgemeente.Text))
objcmd.Parameters.Add("@email", txtemail.Text)
objcmd.Parameters.Add("@wachtwoord", Server.HtmlEncode(txtwachtwoord.Text))
objcmd.ExecuteNonQuery()
objcmd.Connection.Close()
End Function
Private Function vullen_tabel_klant()
ds = New DataSet
objconn = New OleDbConnection(strconn)
strsql = "INSERT INTO Klant"
strsql += "(Klantnr,Naam,Voornaam,Leeftijd,Adres,Postcode,Gemeente,Email,Wachtwoord)"
strsql += " VALUES (@klantnr,@naam,@voornaam,@leeftijd,@adres,@postcode,@gemeente,@email,@wachtwoord)"
objcmd = New OleDbCommand(strsql, objconn)
objcmd.Connection.Open()
objcmd.Parameters.Add("@klantnr", txtnummer.Text)
objcmd.Parameters.Add("@naam", Server.HtmlEncode(txtnaam.Text))
objcmd.Parameters.Add("@voornaam", Server.HtmlEncode(txtvoornaam.Text))
objcmd.Parameters.Add("@leeftijd", txtleeftijd.Text)
objcmd.Parameters.Add("@adres", Server.HtmlEncode(txtadres.Text))
objcmd.Parameters.Add("@postcode", txtpostcode.Text)
objcmd.Parameters.Add("@gemeente", Server.HtmlEncode(txtgemeente.Text))
objcmd.Parameters.Add("@email", txtemail.Text)
objcmd.Parameters.Add("@wachtwoord", Server.HtmlEncode(txtwachtwoord.Text))
objcmd.ExecuteNonQuery()
objcmd.Connection.Close()
End Function