Access VBA ノート(サンプルコード)

Hide Tamura の Access VBA ノート

Access-VBA [SQL] テーブルにレコードを挿入 INSERT INTO ~ VALUES

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',207)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub

--------------------------------------------------------------

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品(商品名,在庫数) VALUES('絵本',300)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [DAO] 一時的なクエリを作成しレコードセットに格納 CreateQueryDef("", SQL) OpenRecordset()

Sub 一時的なクエリを作成しレコードセットに格納()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim RS As DAO.Recordset
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "SELECT * FROM tbl商品;"
    
    Set QD = DB.CreateQueryDef("", SQL)
    Set RS = QD.OpenRecordset(dbOpenDynaset)
    
    Do Until RS.EOF
        Debug.Print RS(0), RS(1)
        RS.MoveNext
    Loop
    
    RS.Close
    Set RS = Nothing: Set QD = Nothing: Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



 

Access-VBA [DAO] アクションクエリの実行 (一時的なクエリの作成) Execute CreateQueryDef("", SQL)

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',207)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub

------------------------------------------------------
 
Sub 一時的なクエリを作成してクエリを実行()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',17)"
    
    '一時的なクエリを作成してクエリを実行する
    Set QD = DB.CreateQueryDef("", SQL)
    QD.Execute
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ




 

Access-VBA [DAO] クエリの削除 QueryDefs.Delete

Sub Deleteクエリ()
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    
    DB.QueryDefs.Delete "Q在庫大"
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [DAO] クエリの作成 CreateQueryDefメソッド

Sub クエリ作成()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim MySQL As String
    
    Set DB = CurrentDb
    
    MySQL = "SELECT * FROM tbl商品 WHERE 在庫数>50"

    Set QD = DB.CreateQueryDef("Q在庫大", MySQL)
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



 

 

Access-DB [DAO] テーブルの削除 TableDefs.Delete

Sub Delete商品テーブル()
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    
    DB.TableDefs.Delete "tbl商品"
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-DB [DAO] テーブルの作成 CreateTableDef CreateField Fields.Append TableDefs.Append

Sub test1()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    TD.Fields.Append TD.CreateField("商品名", dbText, 20)
    TD.Fields.Append TD.CreateField("在庫数", dbLong)
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub

--------------------------------------------------------
 
Sub test2()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim FD As DAO.Field
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    Set FD = TD.CreateField("商品名", dbText, 20)
    TD.Fields.Append FD
    
    Set FD = TD.CreateField("在庫数", dbLong)
    TD.Fields.Append FD
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub

--------------------------------------------------------

Sub test3()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim FD As DAO.Field
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    Set FD = TD.CreateField
    FD.Name = "商品名"
    FD.Type = dbText
    FD.Size = 20
    TD.Fields.Append FD
    
    Set FD = TD.CreateField
    FD.Name = "在庫数"
    FD.Type = dbLong
    TD.Fields.Append FD
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub


FD.Type  dbText, dbLong, dbDouble, dbBoolean, dbDate


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [SQL] テーブルから新しいテーブルを作る(コピー)  SELECT ~ INTO ~ FROM ~

Sub copy写真テーブル()
    Dim DB As DAO.Database
    Set DB = CurrentDb
    
    DB.Execute "SELECT * INTO tbl写真2 FROM tbl写真;"
    
    Set DB = Nothing
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Access-VBA [DAO] 参照設定

2007 参照設定必要なし
Microsoft Office 12.0 Access database engine Object Library

2003 参照設定必要なし
Microsoft DAO X.X Object Livrary

------------------------------------------------------

Access2000 2002 参照が必要
Microsoft DAO X.X Object Livrary


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [DAO] データベース接続

カレントデータベースの以外の場合

Sub Test()
    Dim DB As DAO.Database
    Set DB = OpenDatabase(CurrentProject.Path & "\Sample.mdb")
    
    MsgBox Dir(DB.Name)
    
    DB.Close
    Set DB = Nothing
End Sub

--------------------------------

カレントデータベースの場合

Sub Test()
    Dim DB As DAO.Database
    Set DB = CurrentDb
    
    MsgBox Dir(DB.Name)
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ






記事検索
Access VBA 担当 Hide Tamura
■VBA Expert
VBA Expert Standard Crown
ExcelVBA Standard
Access VBA Standard
Excel2002 VBA Standard
■MICROSOFT OFFICE USER SPECIALIST
Microsoft Excel version2002 Expert
Microsoft Excel version2002


最新記事
Excelで作る経営計画
Excelで利益計画を立てましょう!会社にいくらの利益が必要で、その為の売上高は?

Excelで作る経営計画
Excel 関数 ノート
Excel関数を中心に、Excelの便利機能や、意外としらない使い方など書いていきます。

Excel 関数 ノート
Excel VBAノート
Hide Tamura の個人的なVBAノートです。

頻繁に使うVBAコードなどを記録しコピペして使う為に作りました。お役に立てるようでしたら、お使いください。

アクセスカウンター

    • ライブドアブログ