スポンサーリンク
ロフトネットストア
スポンサーリンク
フェリシモ【定期便】新規購入キャンペーン アフィリエイトプログラム

DB接続 INSERT (VS2005/VS2008)

未分類

‘コネクションストリングを用意
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()

コメント

スポンサーリンク
カタログ通販ベルーナ(Belluna)
スポンサーリンク
タイトルとURLをコピーしました