掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
実行結果を表示したい。 (ID:138595)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決しました。 一応成功した記述を。 Private Sub Command1_click() Dim cn As Variant Dim rst As ADODB.Recordset Dim a As String '** ODBC 接続 Set cn = CreateObject("ADODB.Connection") cn.Open "dsn=mysqldb;uid=root;pwd=MyPassWorD" cn.CursorLocation = 3 '** データ問い合わせ Set rst = New ADODB.Recordset rst.Open "SELECT * From test", cn Do Until rst.EOF a = rst!number & rst!Name & rst!point rst.MoveNext List1.AddItem a Loop '** ODBC 接続解除 cn.Close End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.