Vis alle tabeller i MySQL DB.

rs("table_name")

erikjacobsen> Der er da ikke noget der hedder "SHOW TABLES" er der?

//>Rune

Men jeg tror egentlig blot du skal skrive

  rs(0)

;))

SHOW TABLES fremgår af MySQL manualen og virker i MySQL prompten. Men jeg vil gerne kunne vise alle tabeller i databasen på hjemmesiden.

Jeg har prøvet dine forslag, men det giver ikke rigtigt noget resultat.

Søren

Jeg har fået det til at virke med:

Dim strSQL, rs, fld, blnBGColor, strBGColor
    strSQL = "SHOW TABLES;"
    Set rs = conn.Execute(strSQL)


    while not rs.EOF
        If blnBGColor = TRUE Then
            strBGColor = "#999966"
            blnBGColor = FALSE
        Else
            strBGColor = "#CCCC99"
            blnBGColor = TRUE
        End if
   
        Response.Write "<tr bgcolor=" & strBGColor & ">"
        For Each fld in rs.fields
            Response.Write "<td>" & rs.Fields(fld.Name) & "</td>"
        Next
        Response.Write "</tr>"   
        rs.MoveNext

    wend


    'Rydder op
    rs.close
    set rs = nothing

Tak for interessen, men det giver ingen point.

Søren

Så venligtst luk spm'et! (Lig selv et svar og accepter det)

//>Rune

Hvem i alverden interesserer sig også for points?

Virker rs(0) ikke?

Da jeg prøvede rs(0) første gang, fik jeg en fejlmeddelelse.
Men jeg har lige prøvet det igen, for at kunne give dig fejlmeddelelsen, og nu virker det.

Vil du have pointene?

Nej nej, jeg samler overhovedet ikke på point. Jeg skulle bare lige
være sikker på, at det var rigtigt nok :)

Jeg lukker spørgsmålet