Блог

Один из аспектов моего проекта заключается в сравнении номера детали, введенного оператором, с заранее определенным списком номеров деталей в столбце базы данных. Прямо сейчас моя программа сообщает мне, что каждый номер детали, введенный в электронную таблицу (50 ), не соответствует ни одному из них в базе данных, что, как я проверил, неверно. Я проверил, что и номер элемента электронной таблицы, и номер элемента базы данных имеют строковый тип данных. Я дважды проверил, что моя логика цикла хороша, и мне кажется, что она должна работать. Насколько мне известно, ни в ячейках базы данных, ни в ячейках электронной таблицы нет скрытых символов. На данный момент я совершенно не понимаю, почему моя программа не обнаруживает совпадений между электронной таблицей и базой данных. Ниже приведен подраздел, содержащий код для проверки соответствия номеров деталей:

 Sub CheckPN()
  'Connect to the E2 database
   Call SetPNConnection
  'Open a recordset
   Set PNRecordset = New ADODB.Recordset
   PNRecordset.Open "EstimRpt", PNConnection, adOpenKeyset, adLockOptimistic, adCmdTable
   PNSQLCmd = "SELECT DISTINCT [PartNo] FROM EstimRpt;"
  'Loop through data, comparing part numbers to E2 database part number records
   TotalBadPNCount = 0
   With PNRecordset
      For DataRowCount = 2 To TrackingLastRow
         PNCount = 0
         Part_Number = Tracking.Sheets("Operator Data").Range("A" amp; DataRowCount).Value
        'MsgBox "The datatype for " amp; Part_Number amp; " is " amp; VarType(Part_Number) amp; "."
         Do Until .EOF
           'MsgBox "The datatype for " amp; .Fields("PartNo").Value amp; " is " amp; VarType(.Fields("PartNo").Value) amp; "."
            If Part_Number = .Fields("PartNo").Value Then
           'If .Fields("PartNo").Value = Part_Number Then
               MsgBox Part_Number amp; " is a match."
               PNCount = PNCount   1
            End If
            .MoveNext
         Loop
         If PNCount < 1 Then
            MsgBox "The P/N " amp; Part_Number amp; " entered in cell A" amp; DataRowCount amp; " is incorrect.  Please correctly enter the P/N and re-run the program."
            TotalBadPNCount = TotalBadPNCount   1
         End If
      Next DataRowCount
      If TotalBadPNCount >= 1 Then
         Exit Sub
      End If
   End With
   PNRecordset.Close
   Set PNRecordset = Nothing
   PNConnection.Close
   Set PNConnection = Nothing
End Sub
  

Кроме того, я бы хотел, чтобы вся программа прекратила выполнение, если номер детали не совпадает, а не только непосредственный подраздел. В настоящее время только этот подраздел завершается, если номер детали не совпадает.

Спасибо за помощь по обоим этим вопросам.

Иордания

Я бы предложил не использовать цикл для сравнения записей из вашего пользовательского набора данных с вашей постоянной таблицей. Вместо этого загрузите отправленный пользователем набор данных во временную таблицу в вашей БД и используйте SQL для сравнения 2 таблиц.

Вы можете попробовать что-то в этом роде:

 'Load spreadsheet into temp table
<your code here>

'open recordset in order to compare PartNos
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset

sSQL = "select count(*) as [count] from temp " _ 
        amp; " where temp.PartNo not in (select distinct EstimRpt.PartNo from EstimRpt)"
Set rs = db.OpenRecordset(sSQL)

ctRecords = rs![Count]

'if records are found in temp table that do not exist 
'in the perm table, then end execution of everything.
if ctRecords > 0 then
    End
else
    'run the rest of your code
    <your code here>
end if

'Drop temp table
<your code here>
  

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

Вместо:

 Do Until .EOF
  

Мне нужно:

 Do Until .EOF = True
  

Мне также нужно было добавить следующее сразу после объявления цикла For:

 .MoveFirst
  

Теперь мой код повторяется правильно.