ProductFunctionTester/MySqlMoudule.vb

@@ -1,4 +1,4 @@
-Imports MySql.Data.MySqlClient
+Imports MySql.Data.MySqlClient
 Module MySqlMoudule
 
     Private Const LocalHostIP As String = "192.168.0.250"
@@ -68,24 +68,25 @@ Module MySqlMoudule
             DBClose()
             Return False
         End Try
+        End
     End Function
 
     Public Function DBQueryScalar(cmdStr As String) As String
+        Dim result As String
+
         Try
             Database_Use()
             sqlCmd.CommandText = cmdStr
             sqlCmd.Connection = sqlCon
-            Dim objResult As Object = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
+            result = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
 
-            If objResult Is Nothing OrElse IsDBNull(objResult) Then
+            Return result
-                Return "False"
-            End If
-            Return objResult.ToString()
 
         Catch ex As Exception
             MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
             Return "False"
         End Try
+        End
     End Function
 
     Public Function DBQueryReader(cmdStr As String) As Integer

ProductFunctionTester/PostgreSQLMoudule.vb

@@ -1,4 +1,4 @@
-Imports Npgsql
+Imports Npgsql
 
 Module PostgreSQLModule
     Private pgSqlCon As NpgsqlConnection = New NpgsqlConnection("Host=mes-db.postgres.database.azure.com;Username=jionmt@mes-db;Password=jmtdb6919!!pg;Database=mes-jion-data")
@@ -51,25 +51,25 @@ Module PostgreSQLModule
     End Function
 
     Public Function pgDBQueryScalar(cmdStr As String) As String
+        Dim result As String
+
         Try
             If pgDBOpen() Then
                 MsgBox("DB 연결을 진행할 수 없습니다.", vbCritical)
-                Return "False"
+                Return 0
             End If
 
             sqlCmd.CommandText = cmdStr
             sqlCmd.Connection = pgSqlCon
-            Dim objResult As Object = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
+            result = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
 
-            If objResult Is Nothing OrElse IsDBNull(objResult) Then
+            Return result
-                Return "False"
-            End If
-            Return objResult.ToString()
 
         Catch ex As Exception
             MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
             Return "False"
         End Try
+        End
     End Function
 
     Public Function pgDBQueryReader(cmdStr As String) As Integer

ProductFunctionTester/SpectrumModule.vb

@@ -10,7 +10,7 @@
             mySpec = New Ivi.Visa.Interop.FormattedIO488
 
             mySpec.IO = myMgr.Open(SpecID)
-            mySpec.IO.Clear()
+            'mySpec.IO.Clear()
             mySpec.IO.Timeout = ToCount
 
             strQueryRes = SpecQueryStr("*IDN?")