Dit is uiteindelijk de werkende code:
Code:
var
pNaam, pEMail, pTelefoon,
pCertificaat, pBijzonderheden: BdpParameter;
CommandText:=
'INSERT INTO WebEcoLeden ' +
'(Naam, EMail, Certificaat, Telefoon, Bijzonderheden) ' +
' VALUES (?, ?, ?, ?, ?)'; // vraagtekens zijn de variablen
pNaam:= BdpParameter.Create('@Naam', bdptype.String);
pNaam.Value:= TObject(TextBox_Naam.Text);
Parameters.Add(pNaam);
pEMail:= BdpParameter.Create('@EMail', bdptype.String);
pEMail.Value:= TObject(TextBox_EMail.Text);
Parameters.Add(pEMail);
pCertificaat:= BdpParameter.Create('@Certificaat', bdptype.String);
pCertificaat.Value:= TObject(DropDownList_Certificaat.SelectedValue);
Parameters.Add(pCertificaat);
pTelefoon:= BdpParameter.Create('@Telefoon', bdptype.String);
pTelefoon.Value:= TObject(TextBox_Telefoon.Text);
Parameters.Add(pTelefoon);
pBijzonderheden:= BdpParameter.Create('@Bijzonderheden', bdptype.String);
pBijzonderheden.Value:= TObject(TextBox_Bijzonderheden.Text);
Parameters.Add(pBijzonderheden);
Bookmarks