投稿日 | : 2005/11/17(Thu) 15:27 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: ADOでCSVファイルをテキストボックス表示するには |
> すみませんでした。
> 掲示板に投稿するのが最近のことで、マルチポストをしてしまいました。本当に申し訳ございませ
ん。
> 二度としません。
だったら、今回だけは。
No.5014 の削除した分
'末尾レコードまでのデータを読込
Do Until RS.EOF
With RS
'各列のデータを取得
MyData = MyData & .Fields(0) & vbTab & .Fields(1) & _
vbTab & .Fields(2) & vbTab & .Fields(3) & vbTab & _
.Fields(4) & vbTab & .Fields(5) & vbTab & .Fields(6) & _
vbTab & .Fields(7) & vbCrLf
.MoveNext '次のレコードに移動
End With
Loop
'取得したデータをテキストボックスに表示
Text1.Text = MyData