strSubject = prośba. Forma ("Temat")
strNightDate = prośba. Forma ("NightDate")
strPersonAddedOn = prośba. Forma ("PersonAddedOn")
strComputerName = prośba. Forma ("ComputerName")
strLoggedBy = prośba. Forma ("LoggedBy")
strAllNights = prośba. Forma ("AllNights")
'tworzyć podłączeniowy przedmiot
Ustawiać MesIns=CreateObject ("ADODB.Command")
MesIns.ActiveConnection=objConn
MesIns.com mandtext = "wszywka w Nightly_Table (Temat, PersonAddedOn, NightDate, ComputerName, LoggedBy, AllNights) WARTOŚĆ (? ? ? ? ? ?)"
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
|