vaSpreadにmdbのテーブルのデータを全て表示するには？
解決はじめまして。
こんにちは。
最近VB6の勉強を始めたものです。
今回、VB6からmdbに接続をして、あるテーブルのデータを全て
vaSpread(FarPoint Spread 3.0)に表示させたいと思っているの
ですが、接続はできたのですが、肝心のデータの表示方法が
わかりません。
以下が書いているコードです。
こちらのコードだと、１行しか表示されない状況です。
-------------------------------------------------------------------
dim con As New ADODB.Connection
dim path As String
dim strSQL As string
dim rs As ADODB.Recordset
path = "C:xxx"
strSQL = "select * from table"
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
Set rs = New ADODB.Recordset
rs.Open strSQL, con, adOpenForwardOnly, adLockPessimistic
vaSpread1.Row = 1
vaSpread1.Col = 1
vaSpread1.Text = rs.Fields("colA").value
vaSpread1.Text = rs.Fields("colB").value
vaSpread1.Text = rs.Fields("colC").value
--------------------------------------------------------------------
表示方法をご存知の方がいらっしゃいましたら教えていただけたらと
思います。
よろしくお願いします。
すみません、ソースに誤りがあったため訂正させていただきます。
-------------------------------------------------------------------
dim con As New ADODB.Connection
dim path As String
dim strSQL As string
dim rs As ADODB.Recordset
path = "C:xxx"
strSQL = "select * from table"
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
Set rs = New ADODB.Recordset
rs.Open strSQL, con, adOpenForwardOnly, adLockPessimistic
vaSpread1.Row = 1
vaSpread1.Col = 1
vaSpread1.Text = rs.Fields("colA").value
vaSpread1.Row = 1
vaSpread1.Col = 2
vaSpread1.Text = rs.Fields("colB").value
vaSpread1.Row = 1
vaSpread1.Col = 3
vaSpread1.Text = rs.Fields("colC").value
--------------------------------------------------------------------
ヘルプを読めば分かると思いますが
vaSpread1.TextではなくvaSpread1.SetTextです。
ヘルプをしっかり読んでください。
回答してくださってどうもありがとうございました。
ヘルプの見方も知らなかったので、とても勉強になりました。
これからはヘルプをしっかり読もうと思います。
すみません、解決チェックを入れ忘れてしまいました。
| ツイート |  |