code:

---

call "function.udf"
$previousstate = SetOption( "WrapAtEOL", "ON" )
$objconn=dbconnopen('provider=microsoft.jet.oledb.4.0;data source=c:\program files\kixtart\kixdatabase\swinv.mdb')
? "objconn: @error @serror"
$recordset=dbrecordsetopen($objconn,"select * from inventory")
? "recordset: @error @serror"
;$retcode=dbrecordsetclose($recordset)
;$retcode=dbconnclose($objconn)
;? "retcode: @error @serror"  

---

code:

---

"DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=database.mdb"

---

code:

---

$objconn=dbconnopen("DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=c:\program files\kixtart\kixdatabase\swinv.mdb")  

---

dbconnopen() succeeds, but dbrecordsetopen() fails with same error

code:

---

$objconn=dbconnopen('DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ="c:\program files\kixtart\kixdatabase\swinv.mdb"')

---

code:

---

; notes: - sql reserved names include date and time.
;        - changed db field names date to currentdate and time to currenttime
;        - sql string values should be in 'single quotes', *not* "double quotes"
;
;*********** make a db connection *************************
$db = "c:\program files\kixtart\kixdatabase\swinv.mdb"

$cn = createobject("adodb.connection")

$cn.connectionstring = "data source=$db; provider=microsoft.jet.oledb.4.0;persist security info=false"

$cn.open()
;
;*********************** get the inventory data and write it to the db ***********
$array = GetUninstallInfo()
$vardate=@date
$vartime=@time
$varwksta=@wksta
For Each $varapp in $array
	$rs = $cn.execute("insert into inventory (computername,program,currentdate,currenttime) values ('$varwksta','$varapp','$vardate','$vartime')")
	;? "insert : @error @serror"

next
;
;************************ read it back from the db ****************
$rs = $cn.execute('select * from inventory') 

while not $rs.eof()

  ? $rs.fields("currentdate") ":" $rs.fields("currenttime") "-" $rs.fields("computername") " " $rs.fields("program")

  $rs.movenext

loop
;***************** clean up and go home ***********************************
$cn.close()
$cn = 0

exit 1
;******************************
Function GetUninstallInfo()
	dim $Index, $Key, $RC, $Value, $RootKey
	dim $progs[0]
	$Index = 0

	$RootKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

	$Key = EnumKey($RootKey, $Index)
	While @Error = 0
		ReDim PRESERVE $progs[$Index]
		$RC = EnumValue($RootKey + $Key, 1)
		If @Error = 0
			$Value = ReadValue($RootKey + $Key, "DisplayName")
			If $Value = ""
				$Value = ReadValue($RootKey + $Key, "QuietDisplayName")
				If $Value = ""
					$Value = $Key
				EndIf
			EndIf
		Else
			$Value = $Key
		EndIf
		$progs[$Index] = $Value
		$Index = $Index + 1
		$Key = EnumKey($RootKey, $Index)
	Loop
	$GetUninstallInfo = $progs
EndFunction

  

---

IF (SELECT COUNT(*) FROM table WHERE attribute='aaa') THEN
  UPDATE attribute(s)
ELSE
  INSERT new row