HX-PGS-ERP-SYS-SIU/0、MyModule/模組/SQL_連線字串.vb

Module SQL_連線字串
    Friend Sub SQL_連線字串_測試()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_正式()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_圖片資料庫()
        ConString2 = "Data Source=" & 登入人IP & ";Initial Catalog=" & 圖片庫 & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_本機()
        Dim Str As String = Application.StartupPath
        AccessConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Str & "/HabitData.mdb;Jet OLEDB:Database Password=Qaz!@#123;Persist Security Info=False;User ID=Admin"
    End Sub
    Friend Sub SQL_連線字串_正式_工程SQL()
        ConString1 = "Data Source=" & 登入人IP & ";Initial Catalog=PROJECT-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_測試_工程SQL()
        ConString1 = "Data Source=" & 登入人IP & ";Initial Catalog=PROJECT-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_正式_管理SQL()
        ConString3 = "Data Source=" & 登入人IP & ";Initial Catalog=HX-PGS-MSN;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_測試_管理SQL()
        ConString3 = "Data Source=" & 登入人IP & ";Initial Catalog=HX-PGS-MSN;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_測試_LINE_SQL()
        ConString4 = "Data Source=" & 登入人IP & ";Initial Catalog=HX-LINE-AUTO;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_正式_LINE_SQL()
        ConString4 = "Data Source=" & 登入人IP & ";Initial Catalog=HX-LINE-AUTO;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
End Module