VB.NETからAccessへDB接続し Insertを実行する　（VS2005/VS2008）

Access

2008.05.102023.06.05


'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\test.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'INSERTコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "INSERT INTO PurchaseHistory (intUserID, intProductID, dtPurchase) VALUES (2, 2, 2008/01/01)"

'データベースをオープン
db.Open()

'コマンドを実行
cmnd.ExecuteNonQuery()

'データベースをクローズ
db.Close()

'コネクションストリングを用意

Dim UserID As String = "Admin"

Dim Password As String = ""

Dim cnctStr As String

Dim MDBFile As String = "C:\test.mdb"

cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"

cnctStr &= "Data Source=""" & MDBFile & """;"

cnctStr &= "User ID=" & UserID & ";"

cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定

Dim db As New System.Data.OleDb.OleDbConnection

db.ConnectionString = cnctStr

'INSERTコマンドを作成

Dim cmnd As New System.Data.OleDb.OleDbCommand

cmnd.Connection = db

cmnd.CommandText = "INSERT INTO PurchaseHistory (intUserID, intProductID, dtPurchase) VALUES (2, 2, 2008/01/01)"

'データベースをオープン

db.Open()

'コマンドを実行

cmnd.ExecuteNonQuery()

'データベースをクローズ

db.Close()