도트 검사 함수에서 ldm 모델 db 테이블 따로 작성
This commit is contained in:
parent
1b587f1cfd
commit
0e3c8585f9
@ -1530,8 +1530,17 @@ DataFail:
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Function prodSerialDot(prodSerial As String) As Boolean
|
Private Function prodSerialDot(prodSerial As String) As Boolean
|
||||||
|
Dim table As String
|
||||||
|
|
||||||
|
If LDMUseCompare Then
|
||||||
|
table = ApplyLdmDB
|
||||||
|
Else
|
||||||
|
table = applyCartDB
|
||||||
|
End If
|
||||||
|
|
||||||
If TDUseCompare = True Or LDMUseCompare = True Then
|
If TDUseCompare = True Or LDMUseCompare = True Then
|
||||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
|
|
||||||
|
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & table & " WHERE Product_SN = '" & prodSerial & "'"
|
||||||
|
|
||||||
If DBQueryReader(DBCmd) Then
|
If DBQueryReader(DBCmd) Then
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user