Avatar billede fet321 Nybegynder
10. november 2003 - 10:34 Der er 8 kommentarer og
1 løsning

MS-SQL hente felt navne og type

Jeg er ved at være lidt rusten i ASP, så jeg har lige brug for lidt hjælp.

Jeg bruger flg. kode til at hente alle felt-navne i en given tabel.

For Each Head In objRS.Fields
  Response.Write Head.Name & "<BR>"
Next

Hvordan er det lige jeg også får udskrevet feltet type?

/fet321
Avatar billede Spotgun Seniormester
10. november 2003 - 11:15 #1
Så vidt jeg husker er det:

Response.Write Head.Type

Kan ikke helt huske om den returnerer et navn, eller blot et nummer for at identificere hvilken type der er tale om...
Avatar billede fet321 Nybegynder
10. november 2003 - 11:40 #2
Den returnerer desværre kun et nummer.
Avatar billede Spotgun Seniormester
10. november 2003 - 12:06 #3
Jeg ved ikke om man kan finde en liste over hvad numrene betyder, men hvis du sammenligner numrene med de tabeltyper du har, burde du hurtigt kunne få et overblik over hvad der er hvad, og derefter bruge til det til noget...
Avatar billede Spotgun Seniormester
10. november 2003 - 12:20 #4
Her er nogle numre jeg selv har fundet frem til, fra en Access-db... Ved ikke om du kan bruge det til noget?

3 = Int
11 = boolean
135 = Date
202 = Text
203 = Memo
Avatar billede fet321 Nybegynder
10. november 2003 - 13:23 #5
Det er perfekt :)
Smid et svar og du får lidt point.
Avatar billede fet321 Nybegynder
10. november 2003 - 13:31 #6
Skulle andre snuble over dette spg. kommer her den kode, jeg har brugt.

<%

dim objConn
dim objRS
dim sSQL
dim Head

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("DRIVER={SQL SERVER};SERVER=xxxSERVERxxx; DATABASE=xxxDBxxx; UID=xxxUIDxxx; PWD=xxxPWDxxx")
sSQL = "SELECT * FROM [Table];"
set objRS = objConn.execute(sSQL)

For Each Head In objRS.Fields

    Response.Write "<TR>"
    Response.Write "<TD>" & Head.Name & "</TD>"
    Response.Write "<TD>" & Head.Type & "</TD>"
    Response.Write "<TD>" & Head.Attributes & "</TD>"
    Response.Write "</TR>"

Next

objConn.Close
Set objConn = Nothing
Set objRS = Nothing


%>


/fet321
Avatar billede Spotgun Seniormester
10. november 2003 - 13:31 #7
Det var så lidt...
Avatar billede fet321 Nybegynder
10. november 2003 - 13:32 #8
Og så skal den faktisk se sådan her ud:

<%

dim objConn
dim objRS
dim sSQL
dim Head

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("DRIVER={SQL SERVER};SERVER=xxxSERVERxxx; DATABASE=xxxDBxxx; UID=xxxUIDxxx; PWD=xxxPWDxxx")
sSQL = "SELECT * FROM [Table];"
set objRS = objConn.execute(sSQL)

Response.Write "<TABLE>"

For Each Head In objRS.Fields

    Response.Write "<TR>"
    Response.Write "<TD>" & Head.Name & "</TD>"
    Response.Write "<TD>" & Head.Type & "</TD>"
    Response.Write "<TD>" & Head.Attributes & "</TD>"
    Response.Write "</TR>"

Next

Response.Write "</TABLE>"

objConn.Close
Set objConn = Nothing
Set objRS = Nothing


%>
Avatar billede fet321 Nybegynder
10. november 2003 - 13:33 #9
Tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester