Получение ошибки в Do Loop

Question

Это небольшой код кода, который имеет ошибку, которую я имею. Заявление SQL в begginning это

sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size 
FROM Computers WHERE Num_CPUs = 1 OR Speed < 2.1 OR HDD_Size < 300 ORDER BY Room_Num" 


Do Until objRecordSet.EOF 
    recordsStr = recordsStr & objRecordSet.Fields.Item("Computer").Value & _ 
    vbTab & pad(objRecordSet.Fields.Item("HostName").Value,12) & _ 
    vbTab & pad(objRecordSet.Fields.Item("Room_Num").Value,14) & _ 
    vbTab & objRecordSet.Fields.Item("CPU_Type").Value & _ 
    vbTab & objRecordSet.Fields.Item("Speed").Value & _ 
    vbTab & objRecordSet.Fields.Item("Num_CPUs").Value & _ 
    vbTab & objRecordSet.Fields.Item("Bit_Size").Value & _ 
    vbTab & pad(objRecordSet.Fields.Item("OS_Type").Value,12) & _ 
    vbTab & objRecordSet.Fields.Item("Memory").Value & _ 
    vbTab & objRecordSet.Fields.Item("HDD_Size").Value & vbCrLf 
objRecordSet.MoveNext 

Имея ошибку во второй строке:

recordsStr = recordsStr & objRecordSet.Fields.Item("Computer").Value & _ 

Ошибка:

элемент не может быть найден в коллекции, соответствующий запрашиваемое имя или порядковый номер.

Ok как-то я установил, что ошибка, теперь получает новую на строке кода, что я даже не трогать ...

Set objConnection = CreateObject("ADODB.Connection") 
objConnection.Open dataSource 
Set objRecordSet = CreateObject("ADODB.Recordset") 
objRecordSet.Open sqlStr , objConnection 
objRecordSet.MoveFirst 

Получение ошибки в линии

objRecordSet.Open sqlStr , objConnection 

Несоответствие типа данных в выражении критериев

Answer 1

В запросе:

sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size 
FROM Computers WHERE Num_CPUs = 1 OR Speed < 2.1 OR HDD_Size < 300 ORDER BY Room_Num" 

Вы приносите с помощью следующих полей, computer, room_num, speed, num_cpus, os_type, and hdd_size Но ... в цикле Do вы пытаетесь получить Computer, Hostname, Room_Num, Cpu_Type, Speed, Num_CPUs, Bit_Size, OS_Type, Memory, HDD_Size

Обратите внимание, что здесь Hostname, bit_size, and memory нет в запросе , Вы не можете запрашивать их из своего набора записей, потому что они не находятся в вашем наборе записей, потому что их нет в вашем запросе. Попробуйте:

sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size, Hostname, Bit_size, memory 
FROM Computers WHERE Num_CPUs = 1 OR Speed < 2.1 OR HDD_Size < 300 ORDER BY Room_Num" 

И если предположить таковые имеются в вашем computers столе, он начнет работать.

Answer 2

Это должно показать, что ваше сообщение об ошибке (как правило) вызвано отсутствующими именами полей с ошибкой:

>> Set cn = CreateObject("ADODB.Connection") 
>> cn.Open "DSN=AdvWork" 
>> Set r = cn.Execute("SELECT TOP 1 AddressID FROM Person.Address") 
>> WScript.Echo r("AddressID").Value 
>> WScript.Echo r("AdressID").Value 
>> 
33 
Error Number:  3265 
Error Description: Item cannot be found in the collection corresponding to the requested name or ordinal. 

Первое «недостающее звено» - «HostName»; если вы посмотрите внимательно, вы найдете больше.