Set rs = objCon.Exeucte("SHOW FIELDS FROM fposter")
If not rs.eof then
Do until rs.eof
response.write rs("Field") & "<br />" & vbcrlf
rs.movenext
Loop
End if
Frågan#1
Hej.
Försöker hitta en lösning på att lista fält från en särskilld tabell från en MySQL-databas. Sökte lite men hittade ingen lösning som fungerade.
Neda ser den kod ut som jag lyckats pilla ihop, men den fungerar inte, får felet;
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Ni kanske har en smidigare lösning?
Tack på förhand!
'Funktion som öppnar MySQL-databasen.
Set objCon = openCon()
'SQL-fråga som "ska" hämta ut fälten ur tabellen fposter.
Set rs = objCon.Exeucte("Select SHOW COLUMNS FROM fposter")
while not rs.EOF
for counter = 0 to rs.Fields.Count - 1
response.write rs.Fields(counter).value & " "
next
response.write "<br />"
rs.MoveNext
wend
'Stänger recset och databasconnection.
Call rsClose(Connect)
Call dbClose(Connect)