RobertBell
New member
- Local time
- Today, 10:20
- Joined
- Oct 20, 2013
- Messages
- 2
Ive been starring at this page for hours trying to figure out this error. The script itself I have yet to make look pretty but I'm getting an error i cannot figure out. Says no value given for one or more required parameters. Any help would be amazing. Ive already looked and the values in the table are identical to the ones in the script.
'==========================================================================
' NAME: ComputersReplace.vbs
'
' AUTHOR: Robert Bell
' DATE : 10/20/2013
'
' COMMENT: Use 32 bit ODBC Microsoft Access Driver
'
'==========================================================================
recordsStr = ""
sqlStr = ("SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HHD_Size FROM Computers WHERE Speed <= 2.1 AND Num_CPUs = 1 AND HHD_Size <= 300 ORDER BY Room_Num")
dataSource = "provider=Microsoft.ACE.OLEDB.12.0;" _
& "data source=C:\Scripts\Computers.accdb"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open dataSource
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open sqlStr , objConnection
objRecordSet.MoveFirst
' Display Headers
recordsStr = "Computer Room_Num" & _
" Speed Num_CPUs OS_Type " & _
" HDD_Size" & vbCrLf & _
"============================================================" & _
"=============================" & vbCrLf
Do Until objRecordSet.EOF
recordsStr = recordsStr & objRecordSet.Fields.Item("Computer") & _
vbTab & pad(objRecordSet.Fields.Item("Room_Num"),15) & _
vbTab & pad(objRecordSet.Fields.Item("Speed"),15) & _
vbTab & pad(objRecordSet.Fields.Item("Num_CPUs"),15) & _
vbTab & pad(objRecordSet.Fields.Item("OS_Type"),12) & _
vbTab & pad(objRecordSet.Fields.Item("HDD_Size"),15) & vbCrLf
objRecordSet.MoveNext
Loop
objRecordSet.Close
objConnection.Close
WScript.Echo recordsStr
function pad(ByVal strText, ByVal len)
pad = Left(strText & Space(len), len)
end Function
'==========================================================================
' NAME: ComputersReplace.vbs
'
' AUTHOR: Robert Bell
' DATE : 10/20/2013
'
' COMMENT: Use 32 bit ODBC Microsoft Access Driver
'
'==========================================================================
recordsStr = ""
sqlStr = ("SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HHD_Size FROM Computers WHERE Speed <= 2.1 AND Num_CPUs = 1 AND HHD_Size <= 300 ORDER BY Room_Num")
dataSource = "provider=Microsoft.ACE.OLEDB.12.0;" _
& "data source=C:\Scripts\Computers.accdb"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open dataSource
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open sqlStr , objConnection
objRecordSet.MoveFirst
' Display Headers
recordsStr = "Computer Room_Num" & _
" Speed Num_CPUs OS_Type " & _
" HDD_Size" & vbCrLf & _
"============================================================" & _
"=============================" & vbCrLf
Do Until objRecordSet.EOF
recordsStr = recordsStr & objRecordSet.Fields.Item("Computer") & _
vbTab & pad(objRecordSet.Fields.Item("Room_Num"),15) & _
vbTab & pad(objRecordSet.Fields.Item("Speed"),15) & _
vbTab & pad(objRecordSet.Fields.Item("Num_CPUs"),15) & _
vbTab & pad(objRecordSet.Fields.Item("OS_Type"),12) & _
vbTab & pad(objRecordSet.Fields.Item("HDD_Size"),15) & vbCrLf
objRecordSet.MoveNext
Loop
objRecordSet.Close
objConnection.Close
WScript.Echo recordsStr
function pad(ByVal strText, ByVal len)
pad = Left(strText & Space(len), len)
end Function