Dao(Data Access Object)

最終更新日10 Jan 2014 05:30

Fold

Table of Contents

Recordのフィールドへのアクセスの仕方

フォームのマクロからテーブルにアクセスするにはDAOってやつを使わないといけないらしい。
RecordSetでちょこちょこやるよりも,SQL文で実行した方が強力だし簡単！！

セットアップ

MFCでプログラム作るときはUnicodeの文字セットを使うこと！じゃないと、取得したデータが文字化けになってしまうよ。
ただし、ODBCから扱う場合はUnicodeにしなくても大丈夫みたい。

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("テーブル名", dbOpenTable)
do something!
RS.Close
DB.Close
'メモリの開放
'Set RS = Nothing
Set DB = Nothing

SQL文の実行の仕方

VBA
MFC

 Dim DB As DAO.Database
 Dim SQL As String
 SQR = "UPDATE テーブル"
 DB.Execute (SQL)

注意！

CRecordsetを使っている場合は、念のためExecuteSQLを読んだ後はCRecordset.Close()をしたほうがいい。
ExecuteSQLした後に、CRecordsetをOpenしようとすると実行エラーになるから。

RecordSetの扱い

Record Open

vba
MFC

> Set RS = DB.OpenRecordset("テーブル名", dbOpenDynaset)

注意！

" SELECT * FROM テーブル名"のように、SELECTの前に半角英数を入れるのはもっての他！！
dbcore.cppの3242行目でエラーになります。
理由は、

_tcsnicmp(m_strSQL, _afxSelect, lstrlen(_afxSelect)-1) != 0

_tcsnicmpとは、文字列１と文字列１を先頭から文字数分比較して、同じだったら0を返す関数。
_afxSelectの中には"SELECT"が入っているのだけれど、ここでm_strSQL(自分の渡したSQLクエリ)の先頭が" SELEC"みたいになってたら、違う文字列ですよ！って判定されちゃうのだ。