시리얼번호가 없는 패킹 정보 삭제 오류 수정

MySqlModule.vb

@@ -1,5 +1,6 @@
 Imports MySql.Data  ' 데이터베이스 연동을 위한 네임스페이스 추가
-Imports MySql.Data.MySqlClient  ' MYSQL Server용 네임스페이스 추가
+Imports MySql.Data.MySqlClient
+Imports MySqlConnector  ' MYSQL Server용 네임스페이스 추가
 Module MySqlModule
     Private Const ServerIP As String = "192.168.0.250"
     Private Const DataBaseName As String = "jomtTesterDB"

frmMySqlTest.Designer.vb

@@ -344,7 +344,7 @@ Partial Class frmMySqlTest
         Me.Controls.Add(Me.btnReadDB)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmMySqlTest"
-        Me.Text = "PackingCodeRemover V2.0.0"
+        Me.Text = "PackingCodeRemover V2.0.1"
         Me.gb_pack.ResumeLayout(False)
         Me.gb_state.ResumeLayout(False)
         Me.gb_state.PerformLayout()

frmMySqlTest.vb

@@ -441,7 +441,7 @@ Public Class frmMySqlTest
 
     Private Sub delete_packingCode()
         Dim msg_cnt As Int16
-        Dim serial_data As String
+        Dim serial_data As String = Nothing
 
         msg_cnt = MsgBox("해당 패킹 및 전표 데이터를 삭제하시겠습니까?", vbExclamation + vbOKCancel)
         If msg_cnt = 1 Then
@@ -695,11 +695,16 @@ Public Class frmMySqlTest
 
     Private Function pack_delete(serial As String) As Boolean
 
-        dbcmd = "UPDATE " & sales_db &
-                  " SET PackingCode = 'null_" & txb_pack_code.Text & "'
+        If serial <> Nothing Then
+            dbcmd = "UPDATE " & sales_db &
+                      " SET PackingCode = 'null_" & txb_pack_code.Text & "'
                       , " & command_serial & " = NULL
                       , note = '" & serial & "' 
                   WHERE PackingCode = '" & txb_pack_code.Text & "'"
+        Else
+            dbcmd = "UPDATE " & sales_db & " SET PackingCode = 'null_" & txb_pack_code.Text & "' WHERE PackingCode = '" & txb_pack_code.Text & "'"
+        End If
+
         If DBCommand(dbcmd) Then
             Return True
         End If