VBAで RecordSet を扱うには？

Dim rc as RecordSet

set rc = RecordSet("sample",)

こんな感じでいいと思うのですが、詳しくどなたか教えていただけませんか？

No.1 回答者： PrintScree 回答日時： 2006/02/03 12:37

使用しているソフトはAccessですか？

Accessという前提で…

Dim DB As Database
Dim Rs As Recordset

Set DB=CurrentDB()
Set Rs = DB.OpenRecordset("SELECT * FROM Sample", dbOpenDynaset)
While Not Rs.EOF
　Debug.Print Rs.Fields(0).Value
　Rs.MoveNext
WEnd
Rs.Close
DB.Close

Set Rs = Nothing
Set DB = Nothing

これで、分かりますか？(^^;

この回答への補足

ありがとうございました。

早速やってみましたが、エラーが出てきてできません。
　「ユーザー定義型が定義されていません。」と
Dim DB As Database
ここでとまってしまいます。

Help見たのですが、「オブジェクト ライブラリまたはタイプ ライブラリで定義する」とありました。

設定してみようとしたのですが、どれが必要なのかさっぱりわかりません。

補足日時：2006/02/03 18:47

No.2 ベストアンサー 回答者： O_cyan 回答日時： 2006/02/04 10:35

>エラーが出てきてできません。

「ユーザー定義型が定義されていません。」
#1の方が書いているのはDAOのレコードセットです。
Access2000以降ではデフォルトでADOを参照しているのでエラーになります。
参照設定でMicrosoftDAO？.？Object Libraryを参照しないと使えません。(?.?はバージョンにより3.5か3.6が入っているｈずです)
ADOなら
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.AccessConnection
Set rs = New ADODB.Recordset
で出来ます。

DAOなら参照設定でDAOのObjectLibraryを参照設定後
Dim DB As DAO.DATABASE
Dim rs as DAO.Recordset
Set DB = CurrentDB
Set rs = DB.OpenRecordset("テーブル名")
で出来ます。

この回答へのお礼

よくわかりました
ありがとうございました。

お礼日時：2006/02/07 20:02