DBへ連続の為に、Conection Stringの作成

①　ディスクトップ上で 右クリック->新規作成->テキストファイル　を作成  

②　このファイルを拡張子 xx.udl として保存 (xxは御自分で名前付け) その後で右クリックで開く

③　プロバイダで Microsoft OLE DB Provider for SQL server を選択
　　　1. サーバー名を入力　(Local) でも良い

　　　2. Window 認証の時 Windows NTの統合セキュリティを使用するにチェック
　　　3. サーバー上のデータベースを選択

④　接続のテストで成功でOK

⑤　この後メモ帳でこのファイルを開くと接続文字Connection Stringを取得できる

 

また、今日はVBAでSQLServer2005と連続するときに、エラーが出てきました。

 

「実行時エラー '-2147467259(800004005)':
[DBNETLIB][ConnectionOpen (Connect().]SQL Server　が存在しないか、アクセスが拒否されました。」

調べると、原因が以下です

Microsoft SQL Server 2005 Express Edition (SQL Server Express) は、通常は名前付きインスタンスとして

インストールされます。インストール時に名前付きインスタンスを指定しなかった場合は、既定の名前付きインスタンスである

SQLExpress が使用されます。

 

それで、SQLServer2005のConnection Stringが以下です

 

Private Const g_cnsServerName = "ZZY-0B0FFE7537F/SQLEXPRESS"
Private Const g_cnsDBName = "CTCBKJ"
Private Const g_cnsUserName = "blueNet"
Private Const g_cnsPassword = "blueNet123"

Public Sub CONVERT_DATA()

    Dim con As New ADODB.Connection         ' SQLServer
    Dim rs  As ADODB.Recordset          ' SQLServer
    Dim strConnectString As String

    ' connect to SQLServer
    strConnectString = "Provider=SQLOLEDB;Data Source=" & g_cnsServerName _
                        & ";Initial Catalog=" & g_cnsDBName _
                        & ";Connect Timeout=15" _
                        & ";User ID=" & g_cnsUserName _
                        & ";Password=" & g_cnsPassword _
                        & ""

On Error GoTo Err_DBConnectOpen

    con.Open strConnectString

    'close DB
    con.Close
    Set con = Nothing

Exit Sub

'error
Err_DBConnectOpen:
    MsgBox Err.Description
   
    'close Connection
    If con.State <> ADODB.adStateClosed Then
        con.Close
    End If
    Set con = Nothing

End Sub