HOME > 即効テクニック > AccessVBA > データベース・データ保護 > テーブルにレコードを挿入する

即効テクニック

データベース・データ保護

テーブルにレコードを挿入する

(Access 2000/2002)
●概要●
構文 INSERT INTO テーブル名 
   VALUES(フィールド1の値,フィールド2の値,・・・);

INSERTステートメントを使用してテーブルにレコードを挿入します。VALUESキーワードの後のかっこ内には、新しいレコードのフィールドの値を「,」で区切って記述します。フィールドの値を記述する順番は、テーブルを作成したときに定義したフィールドの順で記述します。フィールドの値にNULL値を設定する場合は、「NULL」と記述します。
サンプルでは、まず[商品テーブル]テーブルを用意するサンプルを、コメントで紹介しています。その後が、[商品テーブル]テーブルにレコードを挿入するサンプルです。

●サンプル●
'テーブルを作成する
'Public Sub Sample()
'
'    Dim myDB As Database
'    Dim mySQL As String
'
'    'SQLステートメントを定義する
'    mySQL = "CREATE TABLE 商品テーブル " & _
'            "(商品コード NUMBER ,商品名 CHAR, 単価 NUMBER);"
'
'    'カレントデータベースを変数に代入する
'    Set myDB = CurrentDb
'    'SQLを実行する
'    myDB.Execute mySQL
'
'End Sub

'テーブルにレコードを挿入する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL1, mySQL2 As String

    'SQLステートメントを定義する
    mySQL1 = "INSERT INTO 商品テーブル VALUES" & _
            "(1001 ,'ストロベリー アイスクリーム',150);"
    mySQL2 = "INSERT INTO 商品テーブル VALUES" & _
            "(1002 ,'チョコミント アイスクリーム',NULL);"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL1
    myDB.Execute mySQL2

End Sub