←←←/Access2007とVB

VB接続とSQL命令


Imports System.Data.OleDb
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\***.accdb)
Dim SQLCm As OleDbCommand = Cn.CreateCommand
Dim Adapter As New OleDbDataAdapter(SQLCm)
Dim Table As New DataTable
'SQL命令
Adapter.Fill( Table )
'データグリッドに表示
DataGridView1.DataSource = Table
Table.Dispose()
Adapter.Dispose()
SQLCm.Dispose()
cn.Dispose()

--------------------------------------------------------------
ExecuteNonQueryメソッドを実行すると
データベースに新しいテーブルを追加することができる
作成: ("CREATE TABLE テスト( A Int, B CHAR)" , oCn )
削除: ("DROP TABLE　テスト" , oCn )
の後に
  oCom.ExecuteNonQuery()


Dim con As New OleDbConnection
Dim rmd As New OleDbCommand
Dim path As String = "C:\***.accdb"


Try
     With con
            .ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Path"
            .Open() 
     End With
     With cmd

            .CommandText="CREATE TABLE テスト( コード INT, 製品名 CHAR(40))"

            .Connection = con 

     End With
     cmd.ExecuteNonQuery()
     con.Close()
Cathch ex As Exception


End Try