2009年4月9日木曜日

【VB】データベースへ接続するための準備(ADO.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'接続情報
Dim cn As New System.Data.OleDb.OleDbConnection

cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" _
& "data source=Order.mdb"

'接続
cn.Open()
MessageBox.Show("接続しました")
'切断
cn.Close()
MessageBox.Show("切断しました")

End Sub



SQLコマンドの宣言例
'選択コマンド
Dim cmd As New OleDbCommand
cmd.Connection = cn
cmd.CommandText = "select * from Foods"


実際にデータ取得
Dim dreader As OleDbDataReader
dreader = cmd.ExecuteReader
MessageBox.Show("取得しました")