Опитвам се да изпълня заявка като "покажи таблици". Но не знам имената на колоните, които ще бъдат върнати от заявката. Опитах да използвам нещо подобно
RS.Fields(1).Name
да ми покаже имената, но това изглежда не работи. Някакви предположения? Ето пълния код:
Response.Buffer = true
Dim oConn, oRs
Dim qry, connectstr, i
i = 1
connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=xxx.xxx.xxx.xxx;DATABASE=;UID=;PWD="
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr
qry = "show tables"
Set oRS = oConn.Execute(qry)
while not oRS.EOF
Response.Write("<td><b>" & oRS.Fields(i).Name & "</b></td>")
oRS.movenext
i = i + 1
wend
Set oRs = nothing
Set oConn = nothing