1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
|
" codeBody "
strSubject = verzoek. Vorm („Onderwerp“)
strNightDate = verzoek. Vorm („NightDate“)
strPersonAddedOn = verzoek. Vorm („PersonAddedOn“)
strComputerName = verzoek. Vorm („ComputerName“)
strLoggedBy = verzoek. Vorm („LoggedBy“)
strAllNights = verzoek. Vorm („AllNights“)
'cre�ër verbindingsvoorwerp
Plaats MesIns=CreateObject („ADODB.Command“)
MesIns.ActiveConnection=objConn
MesIns.com mandtext = „neemt in (Onderwerp, PersonAddedOn, NightDate, ComputerName, LoggedBy, AllNights) op WAARDEN Nightly_Table (? ? ? ? ? ?)“
MesIns.Parameters.Append MesIns.CreateParameter („@Subject“, 200, 1, 255, strSubject)
MesIns.Parameters.Append MesIns.CreateParameter („@PersonAddedOn“, 200, 1, 255, strPersonAddedOn)
MesIns.Parameters.Append MesIns.CreateParameter („@NightDate“, 200, 1, 255, strNightDate)
MesIns.Parameters.Append MesIns.CreateParameter („@ComputerName“, 200, 1, 255, strComputerName)
MesIns.Parameters.Append MesIns.CreateParameter („@LoggedBy“, strLoggedBy 200, 1, 255,)
MesIns.Parameters.Append MesIns.CreateParameter („@AllNights“, 200, 1, 255, strAllNights)
MesIns.Execute
|