code:

---

	$DATABASE   = "\\a06\logon\inventory\inventory.mdb"
	$DSN	    = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DATABASE"
	$Connection = CreateObject("ADODB.Connection")
? @error @serror	
	$Command    = CreateObject("ADODB.Command")
? @error @serror	
	$Recordset  = CreateObject("ADODB.Recordset")
? @error @serror	
? "inventory $Connection"
	if $Connection
? @error @serror "I'm in"							;Check for connection object	
		$Connection.ConnectionString 	= $DSN

---

code:

---

...
0The operation completed successfully.
0The operation completed successfully.
0The operation completed successfully.
inventory
...

---

code:

---

	$DATABASE   = "\\a06\logon\inventory\inventory.mdb"
	$DSN	    = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DATABASE"
	$Connection = CreateObject("ADODB.Connection")
	$Command    = CreateObject("ADODB.Command")
	$Recordset  = CreateObject("ADODB.Recordset")
;	if $Connection							;Check for connection object	
		$Connection.ConnectionString 	= $DSN
		$Connection.Open()					;Open connection to database
? @error @serror
		$Command.ActiveConnection 	= $Connection
		$Recordset.CursorType		= 3
		$Recordset.LockType		= 3
		$Recordset.ActiveCommand 	= $Command

? @error @serror
		$Command.CommandText 		= "SELECT * FROM [tbl_Users]     WHERE NTAccount='@userid'"
		$Recordset.Open($Command)
? @error @serror
		If $Recordset.RecordCount < 1
			$Recordset.AddNew
			$Recordset.Fields("NTAccount").Value 		= @USERID
			$Recordset.Fields("FirstName").Value 		= $firstname
			$Recordset.Fields("LastName").Value 		= $lastname
			$Recordset.Fields("OrgCode").Value 		= $OrgCode
			$Recordset.Fields("PositionNumber").Value 	= $positionnum
			$Recordset.Fields("PhoneNumber").Value 		= $phoneno
			$Recordset.Fields("RoomNumber").Value 		= $roomno
			$Recordset.Fields("Office").Value 		= "Area$area"
			$Recordset.Update
? @error @serror
			endif
		$Recordset.Close()

---

code:

---

...
0The operation completed successfully.
0The operation completed successfully.
-2147352567COM exception error "Open" (ADODB.Recordset - The connection cannot b
e used to perform this operation. It is either closed or invalid in this context
.) [-2147352567/80020009]
...

---

code:

---

; write to mytable
$db = "mypathto\mydatabase.mdb"
$cn = createobject("adodb.connection")
$cn.connectionstring = "data source=$db; provider=microsoft.jet.oledb.4.0;persist security info=false"
$cn.open()
$rs = $cn.execute("insert into mytable (SysTag,SysNam,SysOwner) values ('$tag','$cname','$uname')")
IF @error <> 0
	$inserterr=@error
	$insertflag = 0
ELSE
	$insertflag = 1
ENDIF
$cn.close()
$cn = 0
;  

---

code:

---

	$DATABASE   			= "$logon\inventory\inventory.mdb"
	$Connection 			= CreateObject("ADODB.Connection")
	$Connection.ConnectionString 	= "Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DATABASE"
	$Connection.Open()
	if not @error							;Check for connection object
		$Command    			= CreateObject("ADODB.Command")
		$Command.ActiveConnection 	= $Connection
		$Recordset  			= CreateObject("ADODB.Recordset")
		$Recordset.CursorType		= 3
		$Recordset.LockType		= 3
		$Recordset.ActiveCommand 	= $Command					

		$Command.CommandText 		= "SELECT * FROM [tbl_Users]     WHERE NTAccount='@userid'"
		$rc=$Recordset.Open($Command)
? @serror
		If $Recordset.RecordCount < 1
			$Recordset.AddNew
			$Recordset.Fields("NTAccount").Value 		= @USERID
			$Recordset.Fields("FirstName").Value 		= $firstname
			$Recordset.Fields("LastName").Value 		= $lastname
			$Recordset.Fields("OrgCode").Value 		= $OrgCode
			$Recordset.Fields("PositionNumber").Value 	= $positionnum
			$Recordset.Fields("PhoneNumber").Value 		= $phoneno
			$Recordset.Fields("RoomNumber").Value 		= $roomno
			$Recordset.Fields("Office").Value 		= "Area$area"
			$Recordset.Update

---