|
This is just the pice of the script that will write to the database. But how to read
I hoop you will have they answer.
Thijs
--------------------------------------------
$db = CreateObject("ADODB.Connection")
$db.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ="+ $DBPath + $DBName)
$sSQL = "CREATE TABLE CD (id COUNTER, Naam TEXT(255) PRIMARY KEY, Serial TEXT(255), Beschrijving TEXT(255), Besturingssysteem TEXT(255))"
$rs = $db.Execute($sSQL)
$sSQL = "INSERT INTO CD (Naam, Serial, Beschrijving) VALUES ('"+ $naam +"', '"+ $serial +"', '" + $beschrijving + "')"
$rs = $db.Execute($sSQL)
;If $chkbestuur.Value + $chkbestuur2.Value + $chkbestuur3.Value + $chkbestuur4.Value = 1
;$sSQL = "CREATE TABLE CD (id COUNTER, Besturingssysteem TEXT(255))"
;$rs = $db.Execute($sSQL)
If $chkbestuur.Value = "\1"
$chkbestuur.Value = "Windows XP"
$sSQL = "INSERT INTO CD (Besturingssysteem) VALUES ('"+ $chkbestuur.Value +"')"
$rs = $db.Execute($sSQL)
EndIf
If $chkbestuur2.Value = 1
;$chkbestuur2.Value= "Windows 2000 Profesional"
$sSQL = "INSERT INTO CD (Besturingssysteem) VALUES ('Windows 2000 professional')"
$rs = $db.Execute($sSQL)
EndIf
If $chkbestuur3.Value = 1
$chkbestuur2.Value= "Windows 95/98/ME"
$sSQL = "INSERT INTO CD (Besturingssysteem) VALUES ('"+ $chkbestuur3.Value +"')"
$rs = $db.Execute($sSQL)
EndIf
If $chkbestuur4.Value = 1
$chkbestuur4.Value= "Windows NT 4.0"
$sSQL = "INSERT INTO CD (Besturingssysteem) VALUES ('"+ $chkbestuur4.Value +"')"
$rs = $db.Execute($sSQL)
EndIf
If $chkbestuur5.Value = 1
$chkbestuur5.Value= "Windows 2000 Server"
$sSQL = "INSERT INTO CD (Besturingssysteem) VALUES ('"+ $chkbestuur5.Value +"')"
$rs = $db.Execute($sSQL)
EndIf
;EndIf
; $sSQL = "CREATE TABLE CD (id COUNTER, Besturingssysteem TEXT(255))"
; $rs = $db.Execute($sSQL)
;
; Maken van een tabel
; $sSQL = "CREATE TABLE CD (id COUNTER, Naam TEXT(255) PRIMARY KEY, Serial TEXT(255), Beschrijving TEXT(255))"
; $rs = $db.Execute($sSQL)
;
;Input geven aan de boven gemaakte tabel
;Verwijderen van de Tabel
;$sSQL = "DROP TABLE AllComputers"
;$rs = $db.Execute($sSQL)
$lstnames.AddItem ("$naam " + "$beschrijving " + "$serial")
Sleep 1
$text.Text = ""
$text2.Text = ""
$text3.Text = ""
$chkbestuur.Value = 0
$chkbestuur2.Value = 0
$chkbestuur3.Value = 0
$chkbestuur4.Value = 0
$chkbestuur5.Value = 0
:End
EndFunction
| 
![[Confused]](images/icons/confused.gif){kind=icon}
