こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

アクセス2000VBA DAOをADOに書き換えてください

アクセス2000VBA DAOをADOに書き換えてください
下記プログラムをADOに書き換えてください。(DAT1、DAT2はモジュールにて定義してあります)

Option Compare Database
Dim DBS As Database
Dim QDF As QueryDef
Dim RST As DAO.Recordset
Dim COUNT1

Private Sub Form_Load()

On Error Resume Next

DAT2 = [Forms]![伝票]![HAKKOU1]
Set DBS = CurrentDb
Set QDF = DBS.QueryDefs("発行")
With QDF
.Parameters("DAT1") = DAT2 ’もしかしたら DAT2 ではエラーがでるかもしれません。
Set RST = .OpenRecordset() ’正しい記述を教えてください
.Close
End With
With RST
COUNT1 = !指示書
.Close
End With

投稿日時 - 2010-07-13 21:15:18

QNo.6036304

暇なときに回答ください

質問者が選んだベストアンサー

Googleででも、「ACCESS ADO」で照会するとコード例が出てくる。
比べれば差はわかるはず。
http://www.accessclub.jp/ado/06.html
http://www.happy2-island.com/access/gogo04/capter01301.shtml
など。
ーー
または{ADO DAOとの違い Access」で照会する
http://msdn.microsoft.com/ja-jp/library/cc948691.aspx など

投稿日時 - 2010-07-14 00:03:09

お礼

今後の参考にさせて頂きます。ありがとうございました

投稿日時 - 2010-09-20 17:36:55

ANo.2

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

DAOとADOを比較する
http://www.tsware.jp/labo/labo_23.htm

同じロジックで性能比較した結果があります。
説明サイトも多数、こういうのを探してみてください。

投稿日時 - 2010-07-14 06:38:53

お礼

今後の参考にさせて頂きます。ありがとうございました

投稿日時 - 2010-09-20 17:37:41

ANo.1

DAOとADOの違いがわからない???。

せめて、
どっから手をつけていいかわからない、とか
どの行が問題で投稿したのか、とか
はっきりさせてください。

回答者は便利屋ではないんですから。

それでも回答例はあると思います・・・・。

投稿日時 - 2010-07-13 21:26:55

あなたにオススメの質問