Re: OleDbDataReader

Article View: be.comp.programming

Article #5569

Back to be.comp.programming Previous Next

#5569

From: billyke
Date: Sat, 03 May 2003 11:43

37 lines
2411 bytes

Stel dat VoegToe() een functie is die je aanroept om het record weg te
schrijven, als parameters geef je de benodigde velden door (ik ga er van uit
dat er geen enkel optioneel is), ik weet ook niet de exacte datatypes van de
velden.

Sub VoegToe(pers_Code As String, pers_Naam As String, pers_Voornaam As
String, pers_Uurloon As Double, pers_Indienstname As Date, pers_Afd_Code As
String)

'Dan zou het SQL-statement er als volgt uitzien:

Dim sSQLStatement As String = "INSERT INTO tblPersoneel(pers_Code,
pers_Naam, pers_Voornaam, pers_Uurloon, pers_Indienstname, pers_Afd_Code)
values('" & pers_Code & "', '" & pers_Naam & "', '" & pers_Voornaam & "', "
& pers_Uurloon & ", #" & pers_Indienstname & "#, '" & per_Afd_Code & "')"

'Het is ook aangeraden om nog een extra functie rond alle strings te zetten
die de single quotes gaat ontdubbelen, anders krijg je fouten indien iemand
een ' in zijn naam heeft staan.
'bijvoorbeeld
'Private Function CleanSQL(sValue As String)
'    sValue = Replace(sValue, "'", "''")
'End Function



'Rest van de code

End Sub

>
> Christian,
>
> De SQL code van het Insert-statement is invalid, voor de rest zou alles
> moeten werken lijkt me.
>
>

Technical Details

Message-ID: <b90a3c$55v$1@reader11.wxs.nl>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-09!sn-xit-08!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!rip!news.webusenet.com!cox.net!aotearoa.belnet.be!news.belnet.be!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail

References:

<r%Lsa.72726$t_2.6583@afrodite.telenet-ops.be> <b902v3$r8$1@reader11.wxs.nl> <PDMsa.72760$t_2.6810@afrodite.telenet-ops.be> <b909d4$4p8$1@reader11.wxs.nl>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,8304d649f693abf3
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-05-03 04:45:20 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-09!sn-xit-08!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!rip!news.webusenet.com!cox.net!aotearoa.belnet.be!news.belnet.be!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail
From: "billyke" <gert.verstappen@gmx.net>
Newsgroups: be.comp.programming
Subject: Re: OleDbDataReader
Date: Sat, 3 May 2003 13:43:15 +0200
Organization: Planet Internet
Lines: 40
Message-ID: <b90a3c$55v$1@reader11.wxs.nl>
References: <r%Lsa.72726$t_2.6583@afrodite.telenet-ops.be> <b902v3$r8$1@reader11.wxs.nl> <PDMsa.72760$t_2.6810@afrodite.telenet-ops.be> <b909d4$4p8$1@reader11.wxs.nl>
NNTP-Posting-Host: u212-239-201-175.adsl.pi.be
X-Trace: reader11.wxs.nl 1051962284 5311 212.239.201.175 (3 May 2003 11:44:44 GMT)
X-Complaints-To: abuse@planet.nl
NNTP-Posting-Date: 3 May 2003 11:44:44 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165

Reply to Parent Message