[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/11/17(Thu) 11:40
投稿者名:ふみ
Eメール:
URL :
タイトル:
ADOでCSVファイルをテキストボックス表示するには
お世話になります。

ADOを使ってデータベースにあるCSV形式のテーブルを読み込んで、フォーム上のテキストボックス表
示したいです。接続はできましたが、表示はまったくできません。二日間悩んでいました。ご教授を
お願いいたします。
環境はVB6.0、Access2000です。

投稿時間:2005/11/17(Thu) 12:50
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: ADOでCSVファイルをテキストボックス表示するには
> 接続はできましたが、表示はまったくできません。
だったら表示の部分だけ(Excel ファイルをテキストボックスに表示するサンプルの一部ですが)

----------- 削除 ------------------

投稿時間:2005/11/17(Thu) 14:27
投稿者名:(報告)
Eメール:
URL :
タイトル:
Re: ADOでCSVファイルをテキストボックス表示するには
マルチポストです。
hhttp://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200511/05110097.txt

投稿時間:2005/11/17(Thu) 14:58
投稿者名:ふみ
Eメール:
URL :
タイトル:
Re^2: ADOでCSVファイルをテキストボックス表示するには
すみませんでした。
掲示板に投稿するのが最近のことで、マルチポストをしてしまいました。本当に申し訳ございません。
二度としません。

投稿時間: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

投稿時間:2005/11/17(Thu) 15:37
投稿者名:ふみ
Eメール:
URL :
タイトル:
Re^4: ADOでCSVファイルをテキストボックス表示するには
花ちゃんさん

解決しました。これで次の仕事に進められます。
ありがとうございました。

投稿時間:2005/11/17(Thu) 18:29
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
マルチポスト先にも解決報告を
> 解決しました。これで次の仕事に進められます。

解決したならマルチポスト先にも解決報告を。