strSubject = Antrag. Bilden („Thema“)
strNightDate = Antrag. Bilden („NightDate“)
strPersonAddedOn = Antrag. Bilden („PersonAddedOn“)
strComputerName = Antrag. Bilden („Computerbezeichnung“)
strLoggedBy = Antrag. Bilden („LoggedBy“)
strAllNights = Antrag. Bilden („AllNights“)
'Verbindungsobjekt verursachen
MesIns=CreateObject („ADODB.Command“) einstellen
MesIns.ActiveConnection=objConn
MesIns.com mandtext = „Einsatz in Nightly_Table (Thema, PersonAddedOn, NightDate, Computerbezeichnung, LoggedBy, AllNights) WERTE (? ? ? ? ? ?)“
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“, 200, 1, 255, strLoggedBy)
MesIns.Parameters.Append MesIns.CreateParameter („@AllNights“, 200, 1, 255, strAllNights)
MesIns.Execute
|