フォーム上にDBの内容を一覧表示したい。

質問

はじめまして。宜しくお願いします。

現在Access2002、SQLサーバーをつかってタイトルのことを実現しようと思っています。

現在やっていることは、SQLサーバーのあるテーブルから、条件に合うものだけを取り出して、ワークテーブルに一時格納します。

そしてそのワークテーブルに連結しているフォームを、表示したいフォームの上にサブフォームとして表示しています。

つまり一覧表示をADOではなくDAOを使ってやっています。
（ADOでSQL文をつかってループをまわしながら表示する方法が分からなかったため。。）

しかし、DAOを使うと検索するDBのが大きいとレスポンスが下がることや、表示するカラムが変わるごとに対応するワークテーブルを作成しなければならないと思い、やはりADOを使おうと思っています。

VBScriptをつかってWEB上に表示するときなどは、レコードセットから一件ずつ
読み出して、ループをまわしながら表示していけばよいのですが、
VBでのそのような方法が見つからず、行き詰っております。

そもそも、VBではそのようなことはできるのでしょうか？

初心者の質問で申し訳ございませんが、お気づきの方が居られましたら
ご教授ください。

回答No.2

taisuke555

私も昔から使っていて、楽なのでDAOを使っていますが、少し勉強してみました。
こちらも、VBでのサンプルです。参考になるでしょうか？

Dim Cn As New ADODB.Connection
Dim Cm As New ADODB.Command
Dim Rs As New ADODB.Recordset

Dim SQL As String

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[データベース名"

SQL = "SQL文;"
With Cm
.ActiveConnection = Cn
.CommandType = adCmdText
.CommandText = SQL
End With

Set Rs = Cm.Execute

With Rs
Do While .EOF = False
List1.AddItem .Fields("[フィールド名]").Value
.MoveNext
Loop
End With

Rs.Close
Cn.Close

回答No.1

sienna

VBAじゃなくてVBで良いのですよね。
下記にVB6でグリッド表示する方法が記載されています。

http://homepage2.nifty.com/inform/vbdb/adodc_sqlserver.htm

VBAだったらすいません。

補足

早速のレスありがとうございます。

VBAを使用しているのですが、siennaさんに教えていただいたサンプル、試してみます。ありがとうございます。