掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
HTML上のドロップダウンリストにmdbのテーブルのフィールドを表示するには (ID:77024)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
# 少しは自分で考えましょう。 <!-- ここから --> <?xml version="1.0" encoding="Shift_JIS"?> <html><head> <meta http-equiv="Content-Type" content="text/html;charset=x-sjis" /> <script language="VBScript"><!-- Option Explicit Private Sub SetTableList() On Error Resume Next Const adOpenStatic = 3 Dim adoCn 'As ADODB.Connection Dim adoRs 'As ADODB.Recordset Dim opt 'As Object Set adoCn = CreateObject("ADODB.Connection") adoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;" Set adoRs = CreateObject("ADODB.Recordset") adoRs.open "select mode from CAT", adoCn, adOpenStatic Do While adoRs.EOF = False Set opt = Document.CreateElement("option") opt.Text = adoRs.Fields(0).Value opt.Value = "" Form1.Combo1.Options.Add opt Set opt = Nothing adoRs.MoveNext If err.Number <> 0 Then Exit Do Loop adoRs.Close: Set adoRs = Nothing adoCn.Close: Set adoCn = Nothing End Sub --> </script> </head> <body onLoad="SetTableList"> <form name="Form1"> <select name="Combo1" style="width:100pt;font-family:MS ゴシック" /> </form> </body></html> <!-- ここまで -->
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.