ACCESS97でSQLを使用して全データを順に取得したい

質問

ACCESS97を使用しています。
あるテーブルAの全データをモジュールを組んで
textファイルへ出力したいのです。
1行ずつ取得して　1行ずつ出力する方法でやっています。
　この時、1行ずつ取得したいのですが
　strSQL = "SELECT * FROM テーブルA ;"
　上記内容だと全件取得してしまいます。

　1行ずつ　取得する方法はないのでしょうか？
　例えば
　strSQL = "SELECT * FROM テーブルA WHERE 1行目;"

　又は、全件　textファイルに出力するモジュールあるのでしょうか？

回答No.3

imogasi · ベストアンサー

＃１の続き。ＳＱＬ文を使用。旧ＤＯＳ的Writeステートメント使用。
Sub test01()
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase("db7.mdb")
Dim mySQL As String
mySQL = "SELECT * FROM マンション WHERE 販売=TRUE"
Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
Open "テキストＦ.txt" For Output As #1
rs.MoveFirst
While Not rs.EOF
'------------
' MsgBox rs!マンション
Write #1, rs!マンション, rs!戸数, rs!販売
'-----------
rs.MoveNext
Wend
'----
rs.Close
Close #1
End Sub

回答No.2

how-do-you-do

お疲れ様です

＞1行ずつ　取得する方法はないのでしょうか？
レコードセットを取得したら、Do ～ Loop 文でまわせばできます。

＞又は、全件　textファイルに出力するモジュールあるのでしょうか？
DocmdオブジェクトのOutputを使用すればできます。
DoCmd.OutputTo acOutputQuery, クエリ名, acFormatTXT, "C:\AAA.txt", True

参考になれば...

回答No.1

imogasi

ＳＱＬを習ったからＳＱＬばっかりに頭が言っていませんか。テーブル１－－＞テーブル２はＳＱＬの利用でいいのですが、ビジネスでは、テーブル２のレコード明細を１つづつ捉える必要があるのが、ほとんどではないですか。
一番ローテク（ＤＡＯ）で、下記を紹介います。
「マンション」テーブルは「マンション名」「戸数」「
販売」の３フィールドあり、「販売」はYES/NO型のチェックが入っています。入っているものだけ、「テキストＦ」に書き出しました。メモ帳で空白の「テキストＦ.txt」を
作っておいて、実行してください。
Option Compare Database
Option Explicit
Sub test01()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("マンション", dbOpenDynaset)
Open "テキストＦ.txt" For Output As #1
rs.MoveFirst
While Not rs.EOF
'------------
If rs!販売 = True Then
MsgBox rs!マンション
Write #1, rs!マンション, rs!戸数, rs!販売
End If
'-----------
rs.MoveNext
Wend
'----
rs.Close
Close #1
End Sub
IFのところを組めば簡単な条件ならこのほうが易しい。
ＳＱＬ文で抽出したテーブルをレコードとして扱う方法は別途。