FTP-DGAC-SYS-LEEHSIEHJUI/FTP-DGAC-SYS/SQL_Module.vb

Imports System.Data.OleDb
Imports System.Data.SqlClient
Module SQL_Module
    '---------------資料庫連線字串宣告--------------------------------------------------------------------------------------------------------------------------------------------------------
    Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand
    Public Acdr As OleDbDataReader
    Public ConString, ConString1, ConString2, ConString3, ConString4, IP位置, 模式 As String
    Public AccessConString As String : Public SQL1, SQL2, SQL3, SQL4, SQL5, SQL6, SQL7, SQL8, SQL9, SQL10 As String
    Public conn As New SqlConnection : Public cmd As New SqlCommand
    Public dr As SqlDataReader : Public da As New SqlDataAdapter
    Friend Sub SQL_連線字串_國外()
        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-IP-DATE02;Persist Security Info=True;User ID=GCMIP02;Password=F52dfgS5ZVD;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_檢測()
        ConString1 = "Data Source=" & IP位置 & ";Initial Catalog=SQLConfirm;Persist Security Info=True;User ID=b70340;Password=" & 模式 & ";Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub ConnOpen()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Friend Sub ConnOpen_檢測()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : 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  名稱, IP, 端口, 模式, 模式 AS 次數  FROM  伺服器檢測" : CmdSet_For_DGV()
    End Sub
End Module