Frågan#1
Finns det något sätt att dra ut alla fält ur en databas utan att veta vad dom heter?
Jag håller på att göra en sida men kommer inte åt databasen för tilfällt och jag behöver ett fältnamn :/
databs
5 svar · 355 visningar · startad av Boorg
Tackar...
Exemplet funkade dock inte riktigt
<!--#include file="../attain.asp" -->
<%
Set rs = con.Execute("SELECT * FROM [AH Automation AB$Job Budget Line]")
If NOT rs.EOF Then
Response.write "<table><tr>"
For i = 0 to rs.Fields.Count -1
Response.write "<th>" & rs.Fields(i).Name & "</th>"
Next
Response.write "</tr>"
Do Until rs.EOF
Response.write "<tr>"
For i = 0 to rs.Fields.Count -1
[B]Response.Write "<td>" & rs.Fields(i).Value & "</td>"[/B]
Next
Response.write "</tr>"
rs.MoveNext
Loop
Response.write "</table>"
Else
Response.Write "Det finns inget att skriva ut."
End If
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
Felkod:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
Om det bara är fältnamnen du är ute efter så kan du ju kommentera bort den delen så länge. Jag har inte möjlighet att testa koden f.t.
Ville bara skriva att exemplet fungerar som det skall, vet inte riktigt vad som blev vel i Boorg´s fall men skulle tro att felet ligger:
Set rs = con.Execute("SELECT * FROM [AH Automation AB$Job Budget Line]")
Vet inte riktigt vad detta gör:
[AH Automation AB$Job Budget Line]
Har testat med kopplingen:
Set con = Server.CreateObject("ADODB.Connection")
con.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".mdb")
Set rs = con.Execute("SELECT * FROM tbl")
Så jag får nog säga att @nders inlägg kan ses som - Acceptera som slutgiltigt svar. :bire