Option Explicit
Dim objAccess
Dim objDB
Dim strSql
'Accessオブジェクトを作成します
Set objAccess = CreateObject("Access.Application")
'Access画面を表示します
objAccess.Visible = True
'既存のMDBファイルを開きます
objAccess.OpenCurrentDatabase("c:\happy\island.mdb")
'DBオブジェクトを作ります
Set objDB = objAccess.CurrentDb
'①レコード更新のSQLを定義
strSQL = "UPDATE 住所録テーブル " & _
" SET 漢字氏名 = '結城圭介' " & _
" ,カナ氏名 = 'ユウキケイスケ' " & _
" ,性別 = 1 " & _
" WHERE レコードキー = 1 "
'②レコードの更新のSQLを実行します
objDB.Execute strSQL
'③レコード追加のSQLを定義
strSQL = "INSERT INTO 住所録テーブル " & _
" (漢字氏名 " & _
" ,カナ氏名 " & _
" ,性別) " & _
"VALUES ('埼京線之介' " & _
" ,'サイキョウセンノスケ' " & _
" ,1) "
'④レコード追加のSQLを実行します
objDB.Execute strSQL
'データベースをクローズします
objDB.Close
'MDBファイルを閉じます
objAccess.CloseCurrentDatabase
'各種オブジェクトの破棄
Set objDB = Nothing
Set objAccess = Nothing
|
へジャンプします）