Avatar billede lazeric Nybegynder
01. august 2006 - 13:55 Der er 3 kommentarer og
1 løsning

Udtræk table liste fra MySQL database med forskellige regler.

Kan man lave et udtræk af tabeller fra en MySQL database og samtidig lave regler for visning alt efter hvad tabellen hedder?

Dette virker ikke, men man kan nok forstå hvad det er jeg mener:
<%
' --- UDSKRIVER ALLE TABELLER I MENUEN ---

        set RS = Server.CreateObject("ADODB.Recordset")
        RS.ActiveConnection = Conn
        if Conn.errors.count = 0 then

        RS.Open "SHOW TABLES"

        while not RS.EOF
            if " & RS.fields(0).value & " = "ip" then
            response.write "<td STYLE='text-transform: uppercase'><a href='?p=" & RS.fields(0).value & "'>" & RS.fields(0).value & "</a></td>"
            end if
            if not " & RS.fields(0).value & " = "ip" then
            response.write "<td STYLE='text-transform: capitalize'><a href='?p=" & RS.fields(0).value & "'>" & RS.fields(0).value & "</a></td>"
            end if
           
        RS.MoveNext

        wend

        else

        response.write "Database fejl!"

        end if
%>
Avatar billede madeindk Nybegynder
01. august 2006 - 14:41 #1
RS.Open "SHOW TABLES" ?

Det kan du jo ikke skrive...

Du skal jo fx. skrive

<%
Set RS = "SELECT * tabelnavn "
%>
Avatar billede nielle Nybegynder
01. august 2006 - 14:50 #2
Der burtde ikke være noget i vejen for at skrive SHOW TABLES til en MySQL base.

Dine If-Then'er ser dog noget suspekte ud. Hvordan fungere denne?

<%
' --- UDSKRIVER ALLE TABELLER I MENUEN ---
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conn
If Conn.Errors.Count = 0 Then
    RS.Open "SHOW TABLES"

    While Not RS.EOF
        If RS.fields(0).value = "ip" Then
            response.write "<td STYLE='text-transform: uppercase'><a href='?p=" & RS.fields(0).value & "'>" & RS.fields(0).value & "</a></td>"
        End If

        If RS.fields(0).value <> "ip" Then
            Response.Write "<td STYLE='text-transform: capitalize'><a href='?p=" & RS.fields(0).value & "'>" & RS.fields(0).value & "</a></td>"
        End If
           
        RS.MoveNext
    WEnd
Else
    Response.Write "Database fejl!"
End If
%>
Avatar billede lazeric Nybegynder
02. august 2006 - 12:45 #3
Perfekt Nielle, det virker :-)
Læg lige et svar så du kan få point.
Avatar billede nielle Nybegynder
02. august 2006 - 16:17 #4
Svar :^)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester