Tips181 - [ExcelでDAOとSQL] レコード位置を移動する

実行画面


Workbook_Openイベントでデータベースを開いておきます。
・「先頭へ」ボタン
On Error GoTo ErrExit
rs.MoveFirst
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「前へ」ボタン
On Error GoTo ErrExit
rs.MovePrevious
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「次へ」ボタン
On Error GoTo ErrExit
rs.MoveNext
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「最後へ」ボタン
On Error GoTo ErrExit
rs.MoveLast
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

Tips180 - [ExcelでDAOとSQL] レコード件数を取得する

レコード件数を調べるには、RecordCountプロパティを使います。
実行順
1)OpenDatabaseを使いデータベースファイルを開く
2)OpenRecordsetを使いテーブルを開く
3)MoveLastで最終レコードへ移動します。　これを行わないと正確なレコード総数が取得できません。4)RecordCountで取得し、セルに表示します。
5)Closeを使いデータベースを閉じます。
6)Set = Nothingで使われていたシステムリソースとメモリリソースを解放これで完了です。

実行シート

Tips179 - [ExcelでDAOとSQL] 全レコードを削除する その2

SQLのDELETE文を使い全てのレコードを削除します。

実行順
1)OpenDatabaseを使いデータベースファイルを開く
2)「DELETE * FROM テーブル名」のSQL文を作成します。
3)DB.ExecuteでSQLを実行します。
4)Closeを使いデータベースを閉じます。
5)Set = Nothingで使われていたシステムリソースとメモリリソースを解放
これで完了です。

実行前のテーブル


実行シート


実行し削除されたテーブル