データグリッドをＣＳＶに保存するには

かもめ 2005-02-04 04:58:17 No: 88192

何回も質問して悪いのですが，どうしても分からなかったの
また書き込んでしまいました。

データグリッドにレコードセットを読み込んで一覧を表示
させます。（CSV，DBからの読み込みはできました）

その後，その内容をCSVファイルとして保存したいのですが，
いまいち分かりません。
もし，よろしければ教えていただけないでしょうか。

いまはＶＢ6.0をしていて，ＡＤＯによって接続を
行っています。

。。。 2005-02-04 08:29:40 No: 88193

ベタなやり方ですが、基本に忠実に

Dim objRs As ADODB.Recordset
Dim objFld As ADODB.Field
Dim intF As Integer

Set objRs = ｘｘｘ ←適当なレコードセットを入れる

intF = FreeFile
Open "適当なファイル名" For Output As #intF

Do While Not objRs.EOF
  For Each objFld In objRs.Fields
    Write #intF,objFld.Value;
  Next
  Print #intF,""
  objRs.MoveNext
Loop

Close #intF

。。。 2005-02-04 08:37:37 No: 88194

なんか、カンマが一つ多く入ってしまうみたいなので
そこはうまく作り直して下さい。
あくまでも例として見て下さい。
そのままコピペして動きませんとか文句を言わないように。