アクセストップページ VBA、ADOとSQLでテーブルのデータを削除する

VBA、ADOとSQLでテーブルのデータを削除する

menu
はじめにMicroSoft Visual Basicエディターのメニューにある

ツールの参照設定で、「Microsoft ActiveX Data Objects ** Library」に

チェックを入れて「OK」ボタンを押して設定しておけば、

AccessでADOを使用することが出来ます。

ADOでテーブルのデータを削除する手順は以下の通りです。

1 ADOオブジェクトを生成する。

2 接続してSQLを実行する。

3 接続を終了する。


Dim mySQL1 As String

SQL文を入れておく文字列型変数mySQL1を宣言する。

Dim cn1 As New ADODB.Connection
Dim com1 As New ADODB.Command

ADOオブジェクトを生成する。

mySQL1 = "DELETE * FROM " & "ここに削除したいテーブル名"

テーブルの削除文のSQLを変数mySQL1に入れる。

Set cn1 = CurrentProject.Connection

接続を実行する。

com1.ActiveConnection = cn1
com1.CommandText = mySQL1
com1.Execute

テーブルを削除するSQL文を実行する。

Set com1 = Nothing
cn1.Close: Set cn1 = Nothing

接続を終了する。

ここではmySQL1 = "DELETE * FROM " & "ここに削除したいテーブル名"

として、テーブルの全データを削除します。

whereなどの条件式を入れることも出来ます。




アクセスを動画で楽に覚える方法はこちら>>






アクセスを動画で楽に覚える方法>>

 アクセス入門
・アクセスの構成
・アクセスのツールにプログラムを埋め込む
  
・アクセスのツールの基本操作
 ・アクセスでサブフォームの新規作成  
・アクセスでボタンとコンボボックスの新規作成  
・アクセスツールボックスでラベルとテキストボックス
  
・アクセスデザインビューとフォームビュー

・アクセスvba・条件分岐と繰り返し
  
・アクセスvba変数の種類
  
・アクセスフォーム・レポートの新規作成
  
・アクセス削除クエリの新規作成
・アクセスリレーションシップの新規作成  
・アクセスクエリの新規作成
  
・アクセステーブルでフィールドと・主キーの修正
  
・アクセステーブル作成

・アクセスの使い方
VBA
・アクセスVBAでパスワード画面
・VBAで時間操作(DateDiff関数,DatePart)

・VBAで時間操作(DateAdd関数,DateValue,TimeValue)
・VBAでエクセルの表をソート(Sortメソッド)
・VBAで時間操作(Time関数,・Hour,Minute,Second,Format)
・VBAで日付操作(Date関数,Year,Month,Day,
・Weekdayname,Format)

・VBAでエラー処理(On Error GoTo)
・VBAでコピー操作(copyメソッド)
・VBAで文字列操作(String関数,InStrRev)
・VBAで文字列操作(Len関数,Mid,Left,Right)
・VBAで文字列操作(UCase関数,LCase,StrConv)
・VBAで文字列操作(LTrim関数,RTrim,Trim,Replace)
・VBAで文字列操作(InStr関数)
・VBAで文字列操作(StrComp関数)
・VBAでFind メソッドを使って検索する方法
・VBA のcellsでエクセルのセルの位置を数字で指定する
・VBAでエクセルのsheetsの操作
・VBAで配列を扱う
・VBAでfileを操作する
・VBA、ADOとSQLでテーブルのデータを削除する
・VBA、ADOでAccessテーブルのレコードにアクセスする
・VBAでエクセルの書式を設定する

・VBAでテーブルやクエリのレコードをエクセルに入力
・VBAでエクセルのワークシートを追加
・アクセスVBAでインポートとエクスポート
データベース・SQL
・Update SETステートメントのSQL
・DELETE ステートメントのSQL
・INNER JOIN 内部結合のSQL
・LEFT JOIN 左外部結合のSQL
・RIGHT JOIN 右外部結合のSQL
・INSERT INTO ステートメントSQL
・SELECT DISTINCTで重複を削除SQL
・SELECTステートメントSQL
・SQLをDAOで使う
Copyright (C) 2011 All Rights Reserved.