5 svar · 239 visningar · startad av Asa
Jag skulle vilja ha en kod som skriver ut alla tabeller som finns i en databas i en selectruta. Databasen är en MySQL databas. SKulle inte skada att ha en sådan kod till en accessdatabas oxå.
Sen ska man kunna gå vidare å se alla fält i den tabellen man valt!
Nån som vill hjälpa mig?
Har sökt lite men vet inte riktigt vad jag ska söka på så jag hittade inget. 
Den har jag kollat. Vill gärna ha mindre kod bara! Jag ska när jag valt i en selectruta få fram ett formulär med fältets namn i value!
I min databas finns bara 1 fält i de tabeller jag vill lista! Och MySQL vore bra...
Så här har jag gjort. Nån som har anmärkning på koden så skriv:
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/users.mdb")
If Request.QueryString("action") = "" Then%>
<select name="tabell" onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value=""> --- Välj tabell --- </option><br>
<%Set RecSet = Conn.OpenSchema(20)
Do while Not RecSet.EOF
If Left(RecSet.Fields("TABLE_NAME"),4) <> "MSys" Then
Set RS = Conn.Execute("SELECT * FROM " & RecSet.Fields("TABLE_NAME"))
If RS.Fields.Count = 1 Then
Response.Write "<option value=""print.asp?table=" & RecSet.Fields("TABLE_NAME") & """>" & RecSet.Fields("TABLE_NAME") & "</option><br>"
End if
RS.Close
End If
RecSet.MoveNext
Loop
RecSet.Close%>
</select>
<br><br>
<%If Request.QueryString("table") <> "" Then
Set RS = Conn.Execute("SELECT * FROM " & Request.QueryString("table"))
For i = 0 to RS.Fields.Count - 1%>
<form method="POST" action="?action=add&tbl=<%=Request.QueryString("table")%>&falt=<%=RS.Fields(i).Name%>">
<b><%=RS.Fields(i).Name%></b><br>
<input type="text" name="falt">
<input type="submit" value="Lägg till">
</form>
<%Next
RS.Close
End if
ElseIf Request.QueryString("action") = "add" Then
Conn.Execute("Insert Into " & Request.QueryString("tbl") & "(" & Request.QueryString("tbl") & ") Values('" & Request.Form("falt") & "')")
Response.Redirect "print.asp"
End if%>
Du kan använda dig av kod från denna tråd. Jag tror att det blir lite smidigare. 
Tackar, ska kolla på den!
