At a Loss

[InTheBeginning]

Would someone mind explaining to me why I am receiving an error message "Microsoft Access Database Engine: No value given for one or more required parameters." on this code

:banghead:
recordsStr = ""
sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size FROM Computers " &_
"WHERE Speed <= 2 AND CPU <> 1 AND HDD_Size < 300 ORDER BY Room_Num;"
Set objConnection = CreateObject("ADODB.Connection")
dataSource = "provider=Microsoft.ACE.OLEDB.12.0;" & _
"data source=C:\Scripts\Computers.accdb"
objConnection.Open dataSource
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open sqlStr, objConnection
objRecordSet.MoveFirst :banghead:
' 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"),15) & _
vbTab & pad(objRecordSet.Fields.Item("HDD_Size"),15) & vbCrLf
obj.RecordSet.MoveNext
Loop
objRecordSet.Close
objConnection.Close
WScript.Echo recordsStr
function pad(ByVal strText, ByVal len)
pad = Left(strText & Space(len), len)
end Function

:banghead: this is where I am recieving my headaches. but error pinpoints at this statement

objRecordSet.Open sqlStr, objConnection. No value given for one or more required parameters."


Thanks in advance

 

[pbaldy]

Is it CPU or Num_CPUs?

 

[InTheBeginning]

Num_CPUs is the field

 

[MarkK]

Possibly this line ...

sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size FROM Computers " &_
"WHERE Speed <= 2 AND CPU <> 1 AND HDD_Size < 300 ORDER BY Room_Num;"

... contains a field name that does not exist in the table, is interpreted as a parameter, that parameter is not assigned a value, and it fails. Just guessing, but copy that SQL into the query designer and see what happens.

 

[pbaldy]

The question wasn't a hint?

"WHERE Speed <= 2 AND CPU <> 1 AND HDD_Size < 300 ORDER BY Room_Num;"

 

[InTheBeginning]

Hint.....It was, obviously I've hit my head too much against the brick wall. I made the change but now I get another error stating 'obj required' at the object move.next line

 

[InTheBeginning]

Ah, I didn't see the period in between obj and Recordset. removed it and got the output I was looking for. Thanks again pbaldy.

lagbolt - thanks for the reply, looks like pbaldy saw the missinglink

 

[pbaldy]

Happy to help. Sometimes you can stare at a simple thing for hours and never see it.