fix: 쿼리 문에 금일 날짜 조건 추가
This commit is contained in:
parent
807e56c508
commit
8eb71fff9d
@ -1906,7 +1906,8 @@ Public Class Main_Form
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
For i = 0 To tableName.Length - 1
|
For i = 0 To tableName.Length - 1
|
||||||
DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'"
|
DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" &
|
||||||
|
" AND DATE(TestDate) = CURDATE()"
|
||||||
Dim DupYn As Int16 = DBQueryScalar(DBCmd)
|
Dim DupYn As Int16 = DBQueryScalar(DBCmd)
|
||||||
|
|
||||||
If DupYn > 0 Then
|
If DupYn > 0 Then
|
||||||
@ -4873,8 +4874,8 @@ NormalEnd:
|
|||||||
|
|
||||||
GoTo RunSuccess
|
GoTo RunSuccess
|
||||||
|
|
||||||
Else
|
Else
|
||||||
MsgBox("지그를 연결한 후 동작하여 주십시오.", vbCritical, Program_Name & Program_Version)
|
MsgBox("지그를 연결한 후 동작하여 주십시오.", vbCritical, Program_Name & Program_Version)
|
||||||
FailMain()
|
FailMain()
|
||||||
GoTo NormalEnd
|
GoTo NormalEnd
|
||||||
End If
|
End If
|
||||||
|
Loading…
x
Reference in New Issue
Block a user