udskrive antal kolonner i tabel

mit spørgsmål virker måske forvirrende. prøver lige igen.

Jeg skal altså have udskrevet et tal. f.eks.

tabel1
kolonne1
kolonne2
kolonne3

skal give 3

Dim strFieldsSQL : strFieldsSQL = "select * from dintabel"
Set objFieldsRS = objConn.Execute( strFieldsSQL )
   
For each objField in objFieldsRS.Fields
    Response.write( objField.Name & "<br>" )
Next
objFieldsRS.Close
Set objFieldsRS = Nothing

dette vil skrive ud alle kolonner i din tabel. hvis du vil tælle/vise hvor mange kolonner der er, så skal du bruge:

objFieldsRS.Fields.Count

/nute

Får den her fejl:

Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/administration/brugerinfo.asp, line 36

linje 36: Set objFieldsRS = objConn.Execute(strFieldsSQL)

Det skal siges at jeg kører det op mod en MySQL db, ved ik om det har nogen indflydelse

sådan fandt ud af det.

mit eksempel:

strFieldsSQL = "select from * tabelnavn"
set objFieldsRS = conn.execute(strFieldsSQL)

For each strFieldsSQL in objFieldsRS.Fields
  response.write(strFieldsSQL.Name & "<br>")
Next

kan du ik lige smide et hurtigt eksempel med brug af objFieldsRS.fields.count ?

og det behøves du ikke har også luret den.

Smid et svar så får du nogle point

du skal jo bare bruge dit eget connection object ;o] i stedet for 'objConn', så skal du bruge 'conn'

:o]

ja det er én ting, men bemærk lige at det ikke var det eneste :)

din: For each objField in objFieldsRS.Fields

rettet: For each strFieldsSQL in objFieldsRS.Fields

jo, det var det eneste.

objField er bare et objekt der bliver oprettet i en for each ... next loop. Dette er bare en lokal variabel

Denne linie:

For each objField in objFieldsRS.Fields

kan du læse på følgende måde:

For hvert objekt i mit recordsets ('objFieldsRS') collection af felter, læg feltet ind i den variabel som jeg kalder for 'objField'

du kan kalde din variabel for 'minHestErGul' for den sagt skyld .. det har *ingenting* med din kode at gøre. hvis du derimod kører din kode med
option explicit' på, så er du nødt til at deklarere denne variabel inden, noget du gør på denne måde:

Dim objField
For each objField in objFieldsRS.Fields

/nute