---

Hej gruppe!

Er der nogen der ved, hvordan man kan få listet alle felter i en tabel og de
dertil hørende properties?
Jeg bruger MS SQL Server 7.0.

På forhånd tak.

/jesper/

---

> Er der nogen der ved, hvordan man kan få listet alle felter i en tabel og
de
> dertil hørende properties?
> Jeg bruger MS SQL Server 7.0.

Har fundet løsningen...
Der er nogle forskellige stores procedures, man kan bruge. Jeg bruger
herunder sp_tables og sp_columns - det kunne det jeg skulle

Deler lige løsningen med jer - det kunne jo være i fik brug for noget
lignende.

--- show_tables.asp ---
<%@ Language=VBScript %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("strConnect")

SQL = "exec sp_tables"
Set Qry = Conn.Execute(SQL)

Do While Qry.Eof = False
If Qry(3) <> "SYSTEM TABLE" And Qry(3) <> "VIEW" Then
Response.Write("<tr>")
Response.Write("<a href='show_table.asp?name=" & Qry(2) & "'>" & Qry(2)
& "</a><br>")
End If
Qry.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

--- show_table.asp ---
<%@ Language=VBScript %>
<%
TableName = Request.QueryString("name")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("strConnect")

Set Qry = Conn.Execute("sp_columns " & TableName)

Response.Write "<strong>" & Qry(2) & "</strong><br><table>"
Response.Write("<tr style='font-weight:
700;'><td>FieldName</td><td>Type</td><td>Length</td><td>Null</td></tr>")
Do While Qry.Eof = False
Response.Write("<tr>")
Response.Write("<td>" & Qry(3) & "&nbsp;&nbsp;&nbsp;&nbsp;</td>")
Response.Write("<td>" & Qry(5) & "&nbsp;&nbsp;&nbsp;&nbsp;</td>")
Response.Write("<td>" & Qry(7) & "&nbsp;&nbsp;&nbsp;&nbsp;</td>")
Response.Write("<td>" & Qry(10) & "&nbsp;&nbsp;&nbsp;&nbsp;</td>")
Response.Write("</tr>")
Qry.MoveNext
Loop
Response.Write("</table>")

Conn.Close
Set Conn = Nothing
%>

/jesper/