即効テクニック |
●概要● 構文 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