PC-SYS-UPDATE-LEEHSIEHJUI/SYS-UPDATE/SQL_Module.vb

Imports System.Data.SqlClient
Module SQL_Module
    Public ConString, ConString4 As String : Public AccessConString As String : Public SQL1 As String : Public SQL2 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand
    Public dr As SqlDataReader : Public da As New SqlDataAdapter
    Friend Sub ConnOpen()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Friend Sub ConnOpenFTP()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString4 : conn.Open() : End If
    End Sub
    Friend Sub CmdSet_For_DGV()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
    End Sub
    Friend Sub CmdSet_For_dr()
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
    End Sub

    Friend Sub SQL_版本號()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_FTP資料夾路徑分配()
        ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_FTP伺服器登入位置()
        ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & SYS_UPDATE.伺服器區域_cb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_連線字串_國外()
        ConString4 = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-IP-DATE01;Persist Security Info=True;User ID=GCMIP01;Password=Df85deS52w;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_FTP伺服器IP()
        ConnOpenFTP() : SQL1 = "SELECT  位址  FROM  PHP連線  WHERE  (名稱 LIKE N'YS') AND (類別 LIKE N'VB')" : CmdSet_For_dr()
    End Sub
End Module