HF-SYS-UPDATE-LEEHSIEHJUI/SYS-UPDATE/00、Module/Module1.vb

Imports System.Data.SqlClient
Module Module1
    '------------------連線用全域變數--------------------------------------------------------------------------------------------------------------------------------------------
    Public dr As SqlDataReader : Public cmd As New SqlCommand : Public conn, conn1 As SqlConnection : Public da As New SqlDataAdapter
    Public gUserName, connstring, connstring1, my_ip, SQL1, Target, 資料庫版本 As String
    Friend Sub ConnOpen()
        If conn IsNot Nothing Then
            conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = connstring : conn.Open() : End If
        Else
            conn = New SqlConnection(connstring) : conn.ConnectionString = connstring : conn.Open()
        End If
    End Sub
    Friend Sub CmdSet_For_dr()
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
    End Sub
End Module