→→→テーブルのデータを取得する

Dim oCom As OleDb.OledbCommand
Dim ord As OleDb.OleDbDataReader
Dim oCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
oCn.ConnectionString = "Provider=Microsoft.Jet.4.0;Data Source =" &
                                 "D:\***.mdb;Persist Security Info=False"
oCn.Open()
oCom = New OleDb.OleDbCommand("SELECT * FROM テスト" , oCn)

ord = oCom.Executereader
Do While( ord.Read() )
      Debug.Write( ord.GetInt32(0) & ControlChars.Tab )
      Debug.WriteLine( ord.GetString(1))
LOOP


ord.Close()
oCn.close()

---------------------------------------------
データベースに新しいテーブルを追加するには、テーブルを作成するSQL文(CREATE TABLE文)
でOleDbCommandオブジェクトを作成しExecuteNonQueryメソッドを実行


OleDbCommandオブジェクトを利用してデータベースに新しいレコードを追加できます
OleDbCommandオブジェクトを利用してデータベースのテーブルのレコードを更新できます
OleDbCommandオブジェクトはレコードを削除するSQL文を指定し生成します
OleDbCommandオブジェクトを利用してデータベースのテーブルからレコード数を取得できます
OleDbCommandオブジェクトを使って、値を変更して繰り返し使えるパラメータクエリを作成できます
OleDbCommandオブジェクトを使ってデータベースのフィールドの集計値を取得できます
OleDbCommandオブジェクトの最大値または最小値を取得できます


---------------------------------------------
Dim ocm As OleDbCommand
Try
     ocm = New OleDbCommand("SELECT ～", ocm )
     ocm.ExecuteNonQuery()
--------------------------------------------
Dim ocm As OleDbCommand
Dim Num As Integer
ocm = New OleDbCommand("SELECT SUM(単価) FROM 商品" , ocm)
Num = CInt ( ocm.ExecuteScalar )
-----------------------------------------------