データベースプログラミングの流れ

1. コネクションの確立
   Dim cn As New ADODB.Connection
   
   
2. レコードセットの定義
   Dim rs As New ADODB.Recordset
   
   
3. 変数の定義
   　　　[例]
   

   	Dim i As Integer（数値の変数）
   
   	Dim i As String（文字列の変数）
   
   
   	* iは変数名なので,自由に設定できる
   	

   
   
4. SQL 文の発行（テーブルの操作等を行う場合のみ）
   
   • 変数の定義を行う
     

     Dim mysql As String

     * mysql は変数名なので,自由に設定できる
     
     
   • データベースを開く
     

           
     
           　　'データベースを開く準備
           
     Set cn = CurrentProject.Connection
       
           
     rs.Open "テーブル名", cn,adOpenKeyset
           
     rs.Open "テーブル名",cn,adOpenKeyset,adLockOptimistic(読み書き可）
           
     rs.Open "テーブル名",cn,adLockReadOnly(読み込み可）
     
     
         

     
     
   • SQL 文を発行する
     

     mysql = "SQL文"

     *アクションクエリ（テーブル作成,レコードの更新,追加,削除）を実行する場合は別途定義が必要
     
     
   • SQL文の一例
     まず,テーブル名2とテーブル名3を結合条件1で内部結合し,その結果とテーブル名1を結合条件2で内部結合する.
     

     SELECT フィールド名
     FROM テーブル名1 INNER JOIN
     
      (テーブル名2 INNER JOIN テーブル名3 ON 結合条件1)
     ON (結合条件2)

     
     
   • データをまとめて削除する（アクションクエリ）

     	
           	
     '定義
              
     Dim com As New ADODB.Command
              
     Dim mysql As String
     
     
           	
     
           	
     'SQL ステートメントの定義
              
     mysql = "delete from table2"
     
     
           	
     
           	
     'SQL ステートメントを実行
                 
     com.ActiveConnection = cn
                 
     com.CommandText = mysql
                 
     com.Execute
     
     
           	
     
           	
     '終了処理
             
     Set com = Nothing
     
     
         

   
   
5. プログラミング
   
   
6. データベースを閉じる
   

            rs.Close
   
            Set rs = Nothing(メモリの内容をクリア）
   
       

7. コネクションを閉じる
   

             cn.Close
   
             Set cn = Nothing(メモリの内容をクリア）
       

プログラム上でのSQL文の書き方

mySQL = "SQL文"

mySQL = "SQL文" & _
        "SQL文" & _
        "SQL文"

mySQL = "SQL文'" & 文字データの変数 & "'" &_
        "SQL文" & 数値データの変数 & _
        "SQL文"

"'" & zip & "','" & pref & "','" & address & "','" & tel & "'," & _
"'" & mail & "'," & kokoid & ",'" & gakka & "'," & gakunen & "," & _

• 事前に変数を定義する必要がある 　

  Dim mySQL As string

• 句と句の間に必ず空白を入れる

プログラム上でのSQL文発行例

mySQL = "INSERT INTO t_kaitousu VALUES ( "　
For po = 1 To 30
  mySQL = mySQL & "'" & arr_kaitousu(po) & "',"
Next po　
mySQL = Left(mySQL,Len(mySQL) - 1)
mySQL = mySQL & " );"
cn.Execute mySQL

データベースプログラミングテクニック

　　
1. レコードの移動

   先頭	rs.MoveFirst
   ひとつ前のレコード	rs.MovePrevious
   次のレコード	rs.MoveNext
   最後のレコード	rs.MoveLast

   
   
2. データを追加する
       [例]

           '変数の定義 
   　         Dim no As Integer
              Dim name As String
           'データの追加
   　         rs.Addnew
              !NO   = no  (変数noの値をrsテーブルのNOフィールドに入れる）
              rs!NAME = name
              rs.Update
        

3. データを1行ずつ削除する
       [例]

   Do Until rs.EOF
   　　       rs.Delete
     　       rs.MoveNext
   　         Loop

4. データをまとめて削除する
       [例]
   

           '変数の定義
   　         Dim com As New ADODB.Command
              Dim mysql As String
         
          'SQL文の発行
   　        mysql = "delete from table1"
   
          'SQL文の実行
   　        com.ActiveConnection = cn
             com.CommandText = mysql
             com.Execute
          

   　
5. 既存のデータの有無を確認する方法
   　 既存のデータの有無を確認したいテーブルにデータが入っているかどうかをSQL文（カウント関数）を発行して確認する
       [例]
   　

   　　'定義
   　　　Dim rs As New ADODB.Recordset
   
   　　　Dim mysql As String
   
   　　'SQL文の発行
   　　　mysql = "Select Count(*) As カウント from table2"
   
   　　'SQL文を実行
   　　　rs.Open mysql,cn,adOpenKeyset,adLockOptimistic
   
   　　'データの有無を確認
   　　　If rs!カウント > 0 then
     　　　　　　…
   　　　End If
   

   
   
   
6. コネクションとレコードセット
   　Connectionは,ひとつのデータベースについてひとつ
   　Recordsetは,用途に応じて分ける