Archive for 2月 21st, 2013

  1. Hello, ADO.NET(Cobra) World!

    Posted on 2月 21st, 2013 by cx20

    ADO.NET(Cobra)

    ADO.NET（ActiveX Data Objects .NET）は、ADO の後継で .NET ベースの DBMS 接続用 API である。
    .NET データプロバイダを介することで様々な DBMS への接続が可能となっている。
    .NET Framework 標準で使用できる .NET データプロバイダとしては、以下のようなプロバイダがある。

    データプロバイダ名 説明
    System.Data.SqlClient Microsoft SQL Server
    System.Data.OleDb OLE DB
    System.Data.Odbc ODBC
    System.Data.OracleClient Oracle

    ソースコード（Cobra + ADO.NET + OLE DB + Jet データベース）

    Hello.cobra
    raw download
    use System
use System.Data
use System.Data.OleDb
 
class Program
    def main is shared
        conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb;"
        sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
 
        con = OleDbConnection(conStr)
        cmd = OleDbCommand(sqlStr, con)
        con.open()
 
        reader = cmd.executeReader()
        while reader.read()
            Console.writeLine( reader.getName(0) )
            Console.writeLine( "---------------------" )
            Console.writeLine( reader.getValue(0) )
 
        reader.close()
        con.close()

    ソースコード（Cobra + ADO.NET + OLE DB + ACE データベース）

    Hello.cobra
    raw download
    use System
use System.Data
use System.Data.OleDb
 
class Program
    def main is shared
        conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb;"
        sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
 
        con = OleDbConnection(conStr)
        cmd = OleDbCommand(sqlStr, con)
        con.open()
 
        reader = cmd.executeReader()
        while reader.read()
            Console.writeLine( reader.getName(0) )
            Console.writeLine( "---------------------" )
            Console.writeLine( reader.getValue(0) )
 
        reader.close()
        con.close()

    ソースコード（Cobra + ADO.NET + SQL Server）

    Hello.cobra
    raw download
    use System
use System.Data
use System.Data.SqlClient
 
class Program
    def main is shared
        conStr = "SERVER=(local);DATABASE=master;UID=sa;PWD=P@ssW0rd;"
        sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
 
        con = SqlConnection(conStr)
        cmd = SqlCommand(sqlStr, con)
        con.open()
 
        reader = cmd.executeReader()
        while reader.read()
            Console.writeLine( reader.getName(0) )
            Console.writeLine( "---------------------" )
            Console.writeLine( reader.getValue(0) )
 
        reader.close()
        con.close()

    ソースコード（Cobra + ADO.NET + Oracle）

    Hello.cobra
    raw download
    use System
use System.Data
use System.Data.OracleClient
 
class Program
    def main is shared
        conStr = "Data Source=ORCL;User ID=scott;Password=tiger"
        sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message FROM DUAL"
 
        con = OracleConnection(conStr)
        cmd = OracleCommand(sqlStr, con)
        con.open()
 
        reader = cmd.executeReader()
        while reader.read()
            Console.writeLine( reader.getName(0) )
            Console.writeLine( "---------------------" )
            Console.writeLine( reader.getValue(0) )
 
        reader.close()
        con.close()

    ソースコード（Cobra + ADO.NET + ODBC + MySQL）

    Hello.cobra
    raw download
    use System
use System.Data
use System.Data.Odbc
 
class Program
    def main is shared
        conStr = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd"
        sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
 
        con = OdbcConnection(conStr)
        cmd = OdbcCommand(sqlStr, con)
        con.open()
 
        reader = cmd.executeReader()
        while reader.read()
            Console.writeLine( reader.getName(0) )
            Console.writeLine( "---------------------" )
            Console.writeLine( reader.getValue(0) )
 
        reader.close()
        con.close()

    コンパイル方法（32bit OLE DB 使用時）

    C:¥> cobra -compile -sharp-args:"/platform:x86" Hello.cobra

    コンパイル方法（上記以外）

    C:¥> cobra -compile Hello.cobra

    実行結果

    Message
---------------------
Hello, ADO.NET World!