Access2000データのテキストファイル変換方法について
いつもお世話になっております。
以前、この欄で質問させて頂いたCSVデータ変換の件については随分助かり、ありがとうございました。
このたび、Access2000のデータを、テキストファイル（タブによる区切り）に変換（明細ごとの区切りは改行文字を使用）する必要があり、下記のような記述を致しましたが、どうしても、「カンマ区切り」にしかなりません。
インターネットで調べると、テキスト（タブ区切り）の拡張子は「.txt」と説明されているのですが、何か記述が間違っているのでしょうか？
宜しくお願い致します。
（追伸）将来、必要になるかも知れないので、テキスト（スペース区切り）の記述についてもお願いできれば、と思います。
-- 記述内容 ---------------------------------------------------
Dim adoRs As New ADODB.Recordset
Dim strsql As String
Dim strFile As String
Dim 番号 As Long
strsql = "SELECT"
For 番号 = 1 To 34
If 番号 > 1 Then strsql = strsql & ","
strsql = strsql & "フィールド" & CStr(番号)
Next
'strsql = strsql & "FROM WT売掛管理表 ORDER BY フィールド１"
strsql = "SELECT フィールド１,フィールド２,フィールド３,フィールド４,フィールド５,フィールド６,フィールド７,フィールド８,フィールド９,フィールド１０,フィールド１１,フィールド１２,フィールド１３,フィールド１４,フィールド１５,フィールド１６,フィールド１７,フィールド１８,フィールド１９,フィールド２０,フィールド２１,フィールド２２,フィールド２３,フィールド２４,フィールド２５,フィールド２６,フィールド２７,フィールド２８,フィールド２９,フィールド３０,フィールド３１,フィールド３２,フィールド３３,フィールド３４ " & _
"FROM WT売掛管理表 ORDER BY フィールド１"
adoRs.Open strsql, CurrentProject.Connection
strFile = "C:\データフォルダ\変換データ.txt"
Open strFile For Output Access Write As #1
Do Until adoRs.EOF
For 番号 = 0 To 32
Write #1, CStr(adoRs.Fields(番号).Value),
Next
Write #1, CStr(adoRs.Fields(番号).Value)
adoRs.MoveNext
Loop
adoRs.Close
Close #1
MsgBox "データ変換処理が終了しました。", vbInformation
Exit Sub
-----------------------------------------------------
お礼
回答ありがとうございます。 いろいろ探した所、Microsoftのサポートの中にVC++でエクセルにアクセスする場合の文章があり、 そこでVC++の場合にはGetValue()でアクセスするとの記述があり それで成功しました。 ご指摘の int testValue2 = lpRecordset->Fields->GetItem(vIndex)->GetValue(); で値の取得ができました。 ありがとうございました。