From 0e3c8585f903c6aada50f00d967ea2683b1520d7 Mon Sep 17 00:00:00 2001 From: hyelinjung Date: Thu, 12 Feb 2026 17:04:01 +0900 Subject: [PATCH] =?UTF-8?q?=EB=8F=84=ED=8A=B8=20=EA=B2=80=EC=82=AC=20?= =?UTF-8?q?=ED=95=A8=EC=88=98=EC=97=90=EC=84=9C=20=20ldm=20=EB=AA=A8?= =?UTF-8?q?=EB=8D=B8=20db=20=ED=85=8C=EC=9D=B4=EB=B8=94=20=EB=94=B0?= =?UTF-8?q?=EB=A1=9C=20=EC=9E=91=EC=84=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MAXIMUM_FUNCTION_PROGRAM/mainForm.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb b/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb index e265109..1d512a6 100644 --- a/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb +++ b/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb @@ -1530,8 +1530,17 @@ DataFail: End Function 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 - 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