Archive for the ‘OLE DB’ Category

  1. Hello, OLE DB(C++) World!

    Posted on 3月 27th, 2012 by cx20

    OLE DB(C++)

    OLE DB（Object Linking and Embedding Database）は、マイクロソフトが提唱した COM（Component Object Model）ベースの API 仕様である。
    OLE DB の概念は「OLE DB プロバイダ」（データ提供者）と「OLE DB コンシューマ」（データ消費者）からなる。（サーバーやクライアントという用語を使わないのは、n 層の場合に、必ずしもその意味にならない為。）
    データソースの差異は OLE DB プロバイダによって吸収される為、OLE DB コンシューマの手順にしたがってプログラムを作成すれば、基本的な差異を意識せず、プログラムすることができる。
    OLE DB プロバイダとしては、以下のようなプロバイダがある。

    プロバイダ名 表示名 説明
    MSDASQL Microsoft OLE DB Provider for ODBC ODBC データベース
    Microsoft.Jet.OLEDB.4.0 Microsoft OLE DB Provider for Microsoft Jet Microsoft Jet データベース
    Microsoft.ACE.OLEDB.12.0 Microsoft Office 12.0 Access Database Engine OLE DB Provider Microsoft Access データベース
    SQLOLEDB Microsoft OLE DB Provider for SQL Server Microsoft SQL Server
    SQLNCLI10 SQL Server Native Client 10.0 Microsoft SQL Server
    MSDAORA Microsoft OLE DB Provider for Oracle Oracle データベース

    ソースコード（VC + OLE DB + Jet データベース）

    hello.cpp
    raw download
    #include <atldbcli.h>
 
int _tmain( int argc, TCHAR* argv[] )
{
    CoInitialize(NULL);
    USES_CONVERSION;
 
    CDataSource ds;
    CSession ses;
    CCommand<CDynamicAccessor> rs;
 
    WCHAR szCon[] = L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb";
    WCHAR szSQL[] = L"SELECT 'Hello, OLE DB World!' AS Message";
 
    ds.OpenFromInitializationString( szCon );
    ses.Open( ds );
    rs.Open( ses, szSQL );
    while( rs.MoveNext() == S_OK )
    {
        _tprintf( _T("%sn"), OLE2T( rs.GetColumnName(1) ) );
        _tprintf( _T("--------------------n") );
        _tprintf( _T("%sn"), (LPCTSTR)rs.GetValue(1) );
    }
    ses.Close();
    ds.Close();
 
    CoInitialize(NULL);
 
    return 0;
}

    ソースコード（VC + OLE DB + ACE データベース）

    hello.cpp
    raw download
    #include <atldbcli.h>
 
int _tmain( int argc, TCHAR* argv[] )
{
    CoInitialize(NULL);
    USES_CONVERSION;
 
    CDataSource ds;
    CSession ses;
    CCommand<CDynamicStringAccessor> cmd;
 
    WCHAR szCon[] = L"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=hello.accdb";
    WCHAR szSQL[] = L"SELECT 'Hello, OLE DB World!' AS Message";
 
    ds.OpenFromInitializationString( szCon );
    ses.Open( ds );
    cmd.Open( ses, szSQL );
 
    while( cmd.MoveNext() == S_OK )
    {
        _tprintf( _T("%sn"), OLE2T( cmd.GetColumnName(1) ) );
        _tprintf( _T("--------------------n") );
        _tprintf( _T("%sn"), (LPCTSTR)cmd.GetString(1) );
    }
    ses.Close();
    ds.Close();
 
    CoInitialize(NULL);
 
    return 0;
}

    ソースコード（VC + OLE DB + SQL Server）

    hello.cpp
    raw download
    #include <atldbcli.h>
 
int _tmain( int argc, TCHAR* argv[] )
{
    CoInitialize(NULL);
    USES_CONVERSION;
 
    CDataSource ds;
    CSession ses;
    CCommand<CDynamicAccessor> rs;
 
    WCHAR szCon[] = L"PROVIDER=SQLOLEDB;SERVER=(local);DATABASE=master;UID=sa;PWD=P@ssW0rd";
    WCHAR szSQL[] = L"SELECT 'Hello, OLE DB World!' AS Message";
 
    ds.OpenFromInitializationString( szCon );
    ses.Open( ds );
    rs.Open( ses, szSQL );
    while( rs.MoveNext() == S_OK )
    {
        _tprintf( _T("%sn"), OLE2T( rs.GetColumnName(1) ) );
        _tprintf( _T("--------------------n") );
        _tprintf( _T("%sn"), (LPCTSTR)rs.GetValue(1) );
    }
    ses.Close();
    ds.Close();
 
    CoInitialize(NULL);
 
    return 0;
}

    ソースコード（VC + OLE DB + Oracle）

    hello.cpp
    raw download
    #include <atldbcli.h>
 
int _tmain( int argc, TCHAR* argv[] )
{
    CoInitialize(NULL);
    USES_CONVERSION;
 
    CDataSource ds;
    CSession ses;
    CCommand<CDynamicAccessor> rs;
 
    WCHAR szCon[] = L"PROVIDER=MSDAORA;Data Source=ORCL;User ID=scott;Password=tiger";
    WCHAR szSQL[] = L"SELECT 'Hello, OLE DB World!' AS Message FROM DUAL";
 
    ds.OpenFromInitializationString( szCon );
    ses.Open( ds );
    rs.Open( ses, szSQL );
    while( rs.MoveNext() == S_OK )
    {
        _tprintf( _T("%sn"), OLE2T( rs.GetColumnName(1) ) );
        _tprintf( _T("--------------------n") );
        _tprintf( _T("%sn"), (LPCTSTR)rs.GetValue(1) );
    }
    ses.Close();
    ds.Close();
 
    CoInitialize(NULL);
 
    return 0;
}

    コンパイル＆リンク方法（Visual C++）

    C:¥> cl hello.cpp

    実行結果

    Message
--------------------
Hello, OLE DB World!

  2. Hello, ADO World!

    Posted on 3月 23rd, 2012 by cx20

    ADO

    ADO（ActiveX Data Objects）は、マイクロソフト社が開発した COM ベースの DBMS 接続用 API である。
    OLE DB プロバイダを介することで様々な DBMS への接続が可能となっている。
    OLE DB プロバイダとしては、以下のようなプロバイダがある。いくつかが OS 標準で付属している他、追加インストールが可能である。

    プロバイダ名 表示名 説明
    MSDASQL Microsoft OLE DB Provider for ODBC ODBC データベース
    Microsoft.Jet.OLEDB.4.0 Microsoft OLE DB Provider for Microsoft Jet Microsoft Jet データベース
    Microsoft.ACE.OLEDB.12.0 Microsoft Office 12.0 Access Database Engine OLE DB Provider Microsoft Access データベース
    SQLOLEDB Microsoft OLE DB Provider for SQL Server Microsoft SQL Server
    SQLNCLI10 SQL Server Native Client 10.0 Microsoft SQL Server
    MSDAORA Microsoft OLE DB Provider for Oracle Oracle データベース

    ソースコード（VBScript + ADO + OLEDB + Jet データベース）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.hello.mdb"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    ソースコード（VBScript + ADO + OLEDB + ACE データベース）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=.hello.accdb"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
End Sub

    ソースコード（VBScript + ADO + OLEDB + SQL Server）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=SQLOLEDB;" & _
         "SERVER=(local);DATABASE=master;", _
         "sa", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    ソースコード（VBScript + ADO + OLEDB + Oracle）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDAORA;Data Source=ORCL", "scott", "tiger"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message FROM DUAL")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    ソースコード（VBScript + ADO + ODBC + SQL Server）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={SQL Server};" & _
        "SERVER=(local);DATABASE=master;", _
        "sa", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    ソースコード（VBScript + ADO + ODBC + Oracle）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={Microsoft ODBC for Oracle};Server=ORCL", _
        "scott", "tiger"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message FROM DUAL")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    ソースコード（VBScript + ADO + ODBC + MySQL）

    Hello.vbs
    raw download
    Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={MySQL ODBC 5.1 Driver};Server=localhost", _
        "root", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

    実行方法（Windows）

    C:¥> CScript //Nologo Hello.vbs

    実行結果

    Message
-----------------
Hello, ADO World!