hente beskrivelse fra access

Er det sådanne du mener tabelnavn.beskrivelse

strSQL="select beskrivelse from tabelnavn"

nej - i access designvisning er der feltet - feltnavn, feltet - datatype og feltet beskrivelse og det er det jeg gerne vil hente fra

man kan jo hente item.navn (kolonneoverskrifter) item.type (datatype) og så er spørgsmålet kan man hente feltet beskrivelse

Jeg mener ikke du kan gøre det via ADO (men er ikke helt sikker). Derimod er jeg overbevist om at det kan lade sig gøre med DAO.

hvad for en fisk ?????

Det er sgu da kun til en info tekst til dig selv, hvad vil du dog bruge den til?

ja det kunne jo være at man kunne drage nytte af den

Den er faktisk meget nyttig, benytter den selv, dog på en SQL2000. Her findes der dog en inbygget SQL funktion til at hive dette felt ud med.

http://www.freevbcode.com/ShowCode.asp?ID=185

Hvad bruger i den til???

nielle > det link viser så vidt jeg kan se ikke hvordan man henter beskrivelsen ud af et felt i en tabel, men blot hvordan man finder navnet på en tabel... eller tager jeg helt fejl?

gizom > det kunne f.eks. være til at give brugeren en hjælp til hvad et felt skal indeholde, når denne skal inddatere i det. Indrømmet at det måske ikke er den mest optimale metode til at styre denne slags beskrivelser på, men til en lille løsning (i et sprog) kunne det være anvendeligt...

OK, jeg lærer noget nyt hver dag, det er jo dejligt :>

softspot ->  det var lige det jeg ville bruge feltet til, men hvad med et stykke kode til at hente feltet med - så jeg kan få bekræftet min teori ;-))))

Fundet via Google (ender bla på microsofts supportsider) - bemærk det er ved brugen af DAO og altså ikke ADO (som er mere typisk for webservere):

Function GetFieldDescription (ByVal MyTableName As String, ByVal MyFieldName As String)
  Dim DB As Database
  Dim TD As TableDef
  Dim FLD As Field

  Set DB = DBEngine.Workspaces(0).Databases(0)

  On Error GoTo Err_GetFieldDescription

  Set TD = DB.TableDefs(MyTableName)
  Set FLD = TD.Fields(MyFieldName)

  GetFieldDescription = FLD.Properties("Description")

Bye_GetFieldDescription:
  Exit Function

Err_GetFieldDescription:
Beep: MsgBox Error$, 48
  GetFieldDescription = Null
  Resume Bye_GetFieldDescription

End Function

takker for hjælpen og giver dig point i sommervarmen. god sommer

smid lige et var igen, det med pointgivningen skred vist lige i varmen ;-))

Det fik du der :)

Har lige fundet en metode til at gøre det samme med ADO:

set cat = Server.CreateObject("ADOX.Catalog")
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\data\database.mdb;Persist Security Info=False;"
Set cat.ActiveConnection = cnn

' Retrieve the Order Details table
Set tblOD = cat.Tables("tFile")

' Display numeric scale and precision of
' small integer fields.
For Each colLoop In tblOD.Columns
    Response.Write "Column: " & colLoop.Name & " - Description: " & colLoop.Properties("Description") & "<br>"
Next

'Clean up
cnn.Close


og det er altså column.properties("Description") der gør tricket ;)

Det ser da bare rigtig godt ud. Det kunne faktisk være et nyttigt oplysningsfelt. ;-) håber at gizom også kan få lidt nytte af det. Takker

Joh tak jeg fik da noget ud af det.
Jeg har bare aldrig tænkt de tanker før, så det er fint nok. Takker