8460

Public Function sqlserveropen() As Boolean


        Try
            '接続する端末名
            Dim ServerName As String = "192.168.10.31"
            '接続するデータベース名
            Dim DBName As String = "crownjewel_dev"


            'ユーザ名
            Dim UserID As String = "nbs"
            'パスワード
            Dim Password As String = "basicnew"
            If dbgflg = True Then 'デバッグ環境で実行
                'ServerName = "192.168.10.42"
                ServerName = "192.168.10.31"
                'DBName = "crownjewel_AM0830"
                DBName = "crownjewel_dev"
                'DBName = "crownjewel_Kaitori"
                Password = "basicnew"
            End If


            gcns = New System.Data.SqlClient.SqlConnection()
            'SQL Server認証を利用して接続
            gcns.ConnectionString = _
              "Data Source = " & ServerName & _
              ";Initial Catalog = " & DBName & _
              ";User ID = " & UserID & _
              ";Password = " & Password & _
              ";MultipleActiveResultSets=True"
            gcns.Open()


        Catch ex As Exception
            MsgBox("SQLserverの接続に失敗しました。")
            End
        End Try
    End Function