A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
上のソースでテーブル名を選択肢、
下のソースで選択したテーブルを表示するんですね?
細かいですが、上のソースの
<INPUT TYPE="hidden" name="dirname" value=" & dirname & ">
<INPUT TYPE="hidden" name="dbname" value=" & dbname & ">
<INPUT TYPE="hidden" name="tblname" value=" & selecttbl & ">
<INPUT TYPE="hidden" name="act" value="tblsel">
は問題なく表示されていますか?
(ブラウザからソースの表示で見てください。)
下のソースの
StrSQL = "select * from "& table &" "
tableはちゃんと受けとっていますか?
(StrSQLをブラウザに表示してして見てください)
No.1
- 回答日時:
>うまくプルダウンで選択した値をうまく引き渡せてないのが原因だと思う
ソースはどのように書いていますか?
どう記述しているかが分らなければアドバイスのしようがありません。
また、実行するSQL文を表示すると、どの様に表示されます?
この回答への補足
dirname = Request("dirname")
dbname = Request("selectdb")
If dirname = "" or dbname = "" Then
dirname = Server.Mappath("../../DB/")
End If
dbpath = dirname & "\" & dbname
tablename = Request("tablename")
sub1 = Request.Form("sub1")
%>
データベース名
<%
Response.Write Request.Form("selectdb")
Set ObjDB= Server.CreateObject("ADOX.Catalog")
ObjDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dbpath
%>
<br><br>
<%
'テーブル一覧の表示
'For Each f in ObjDB.Tables
'If f.Type <> "SYSTEM TABLE" Then
'If f.name <> "MSysAccessObjects" Then
Response.Write"テーブル一覧"
Response.Write "<br><SELECT name=""table"" & size=""10"">"
For Each f in ObjDB.Tables
If f.Type <> "SYSTEM TABLE" Then
If f.name <> "MSysAccessObjects" Then
Response.Write "<OPTION value=" & f.Name & ">" & f.name
End If
End If
Next
Response.Write "</SELECT>"
'End If
'End If
'Next
'オブジェクトを解放します。
Set ObjDB = Nothing
%>
<p>
<INPUT TYPE="submit" name="tblsel" value="テーブル表示"><br><br>
<INPUT TYPE="submit" name="" value="テーブル削除">
<INPUT TYPE="hidden" name="dirname" value=" & dirname & ">
<INPUT TYPE="hidden" name="dbname" value=" & dbname & ">
<INPUT TYPE="hidden" name="tblname" value=" & selecttbl & ">
<INPUT TYPE="hidden" name="act" value="tblsel">
</FORM>
上のソースから下のソースへという流れです。
<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
server.Mappath("../../DB/& dirname &")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "select * from "& table &" "
ObjRS.Open StrSQL,ObjConn
%>
<table border="1">
<tr><% For i = 0 to ObjRS.Fields.Count - 1 %>
<td>
<INPUT TYPE="text" size="13" value="<% = ObjRS.Fields(i).name %>"></td>
<% Next %>
</tr>
<% Do until ObjRS.eof %>
<tr>
<% For i = 0 to ObjRS.Fields.Count - 1 %>
<td>
<INPUT TYPE="text" size="13" value="<% = ObjRS.Fields(i) %>"></td>
<% Next %>
</tr>
<%
ObjRS.MoveNext
Loop
%>
</table>
<form>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- PHP 【PHP/MySQL】コード上で生成したクエリを基に集計クエリを作りたい 1 2022/07/28 15:06
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB.NET】App.configにファイ...
-
onedrive にexcelファイルをア...
-
【VB.NET】Excelの最終行までの...
-
バッチで当日日付で作成される...
-
エクセルに張り付けた写真のフ...
-
vba 空のデータをSplitする時の...
-
aspxをhtmlに変換する方法について
-
Windowsで複数のファイルを同じ...
-
VB.NET Excelを読み込んでDataT...
-
SPIの非言語の割合と比が難しく...
-
C#からvbsを実行したい
-
VBAでPDFを作成する際、同じ名...
-
【VB.NET】for each文からのINS...
-
vb.netでの記述方法について 以...
-
VB.NET 2017の勉強中です。 今...
-
高校1年生情報の問題について。
-
Excelにて、シート間で、データ...
-
Windows10にデュアルブートでXP...
-
SPO2測定
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
onedrive にexcelファイルをア...
-
エクセルに張り付けた写真のフ...
-
キヤノン アソビカメラ iNSPiC ...
-
【VB.NET】App.configにファイ...
-
Windows10にデュアルブートでXP...
-
ffftpでファイル取得が0バイト...
-
VB.NET Excelを読み込んでDataT...
-
phpのファイルがブラウザで開か...
-
aspxをhtmlに変換する方法について
-
【VB.NET】Excelの最終行までの...
-
VBAでPDFを作成する際、同じ名...
-
SPO2測定
-
C#からvbsを実行したい
-
vba 空のデータをSplitする時の...
-
VB.NETでMSComm が追加できず?
-
Wi-Fiのパスワードが指定なしと...
-
グラフをC#のASP.net MVCで表示...
-
高校1年生情報の問題について。
-
Excelでボタン(フォームコント...
-
VBAのRegExpで後方一致/不一致...
おすすめ情報