Hello, ADO.NET(VB.NET) World!
Posted on 9月 2nd, 2012 by cx20
ADO.NET(VB.NET)
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 |
ソースコード（VB.NET + ADO.NET + OLE DB + Jet データベース）
Imports System
Imports System.Data.OleDb
Class Hello
Shared Sub Main()
Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=hello.mdb;"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OleDbConnection = New OleDbConnection(conStr)
Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, con)
con.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class |
Imports System
Imports System.Data.OleDb
Class Hello
Shared Sub Main()
Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=hello.mdb;"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OleDbConnection = New OleDbConnection(conStr)
Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, con)
con.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class
ソースコード（VB.NET + ADO.NET + OLE DB + ACE データベース）
Imports System
Imports System.Data.OleDb
Class Hello
Shared Sub Main()
Dim conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=hello.accdb;"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OleDbConnection = New OleDbConnection(conStr)
Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, con)
con.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class |
Imports System
Imports System.Data.OleDb
Class Hello
Shared Sub Main()
Dim conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=hello.accdb;"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OleDbConnection = New OleDbConnection(conStr)
Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, con)
con.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class
ソースコード（VB.NET + ADO.NET + SQL Server）
Imports System
Imports System.Data.SqlClient
Class Hello
Shared Sub Main()
Dim conStr As String = "SERVER=(local);" _
& "DATABASE=master;" _
& "UID=sa;" _
& "PWD=P@ssW0rd"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As SqlConnection = New SqlConnection(conStr)
Dim cmd As SqlCommand = New SqlCommand(sqlStr, con)
con.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class |
Imports System
Imports System.Data.SqlClient
Class Hello
Shared Sub Main()
Dim conStr As String = "SERVER=(local);" _
& "DATABASE=master;" _
& "UID=sa;" _
& "PWD=P@ssW0rd"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As SqlConnection = New SqlConnection(conStr)
Dim cmd As SqlCommand = New SqlCommand(sqlStr, con)
con.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class
ソースコード（VB.NET + ADO.NET + Oracle）
Imports System
Imports System.Data.OracleClient
Class Hello
Shared Sub Main()
Dim conStr As String = "Data Source=ORCL;User ID=scott;Password=tiger"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message FROM DUAL"
Dim con As OracleConnection = New OracleConnection(conStr)
Dim cmd As OracleCommand = New OracleCommand(sqlStr, con)
con.Open()
Dim reader As OracleDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class |
Imports System
Imports System.Data.OracleClient
Class Hello
Shared Sub Main()
Dim conStr As String = "Data Source=ORCL;User ID=scott;Password=tiger"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message FROM DUAL"
Dim con As OracleConnection = New OracleConnection(conStr)
Dim cmd As OracleCommand = New OracleCommand(sqlStr, con)
con.Open()
Dim reader As OracleDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class
ソースコード（VB.NET + ADO.NET + ODBC + MySQL）
Imports System
Imports System.Data.Odbc
Class Hello
Shared Sub Main()
Dim conStr As String = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OdbcConnection = New OdbcConnection(conStr)
Dim cmd As OdbcCommand = New OdbcCommand(sqlStr, con)
con.Open()
Dim reader As OdbcDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class |
Imports System
Imports System.Data.Odbc
Class Hello
Shared Sub Main()
Dim conStr As String = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd"
Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"
Dim con As OdbcConnection = New OdbcConnection(conStr)
Dim cmd As OdbcCommand = New OdbcCommand(sqlStr, con)
con.Open()
Dim reader As OdbcDataReader = cmd.ExecuteReader()
While reader.Read()
Console.WriteLine( reader.GetName(0) )
Console.WriteLine( "---------------------" )
Console.WriteLine( reader(0) )
End While
reader.Close()
con.Close()
End Sub
End Class
コンパイル方法（32bit OLE DB 使用時）
C:¥> vbc Hello.vb /platform:x86 |
C:¥> vbc Hello.vb /platform:x86
コンパイル方法（上記以外）
実行結果
Message
---------------------
Hello, ADO.NET World! |
Message
---------------------
Hello, ADO.NET World!
Tags: ADO.NET
Categories: .NET, ADO.NET
