Database Titeltekst

select name from syscolumns

hvis det altså er SQL Server?

Kan man få det lidt mere beskrevet
eks.
Set rst = Db.OpenRecordset("SELECT TblSag.* FROM TblSag")
    For i = 1 To rst.Fields.Count - 1
      FeltDataType(i) = rst.Fields(i).Type ' Giver mig Data type
      FeltNavn(i) = rst.Fields(i).Name ' Giver mig FeltNavn
    Next i

Hvis du bruger sql server som database server henter den query beskrivelsen for tabellen authors og feltet au_id.

select b.value from syscolumns a
inner join sysproperties b on  a.id=b.id inner join sysobjects c on c.id = a.id
where a.name = 'au_id' and b.name='MS_Description' and c.name='authors'

Hvis det er Access ser det lidt anderledes ud, men jeg tror du kan finde oplysningerne alligevel.

Kan ikke lige se hvad du forslår.
Kan det blive lidt mere detaleret

Hvem spørger du?

Kennethrisum

Som jeg har forstået det, vil du have titlen fra et felt ud fra databasen. Hvis det da er SQL Server du bruger, kan du til hvert felt angive en Description. Denne description kan du hente ud igen ved at bruge:

select b.value from syscolumns a
inner join sysproperties b on  a.id=b.id inner join sysobjects c on c.id = a.id
where a.name = '@FELT' and b.name='MS_Description' and c.name='@TABEL'

Hvor @FELT er det felt du forespørger på og @TABEL er den tabel feltet ligger i. Hvis du ikke har oprettet nogen description på de enkelte felter, vil forespørgslen returnere NULL.

Håber at det kan opklare lidt.

Forespørgslen skal så åbnes for hvert felt. Alternativt skal du åbne alle beskrivelser og læse ind i en collection, hvor du så kan finde feltets beskrivelse.

Dette er forudsat, at du bruger SQL Server 2000, hvis du bruger andre database typer, skal du hente oplysningen i andre tabeller. Eller oprette en selvstændig tabel til feltbeskrivelserne.

Jeg kan ikke få det til at køre.
Jeg bruger Access til at lave sql sætninger.
det må kunne lade sig gøre på denne måde.

' Først henter jeg alle Felter
Set rst = Db.OpenRecordset("SELECT TblSag.* FROM TblSag")
' Derefter Felt for Felt
For i = 1 To rst.Fields.Count - 1
FeltDataType(i) = rst.Fields(i).Type ' = Datatype for Felt i
FeltNavn(i) = rst.Fields(i).Name ' = FeltNavn for Felt(i)
FeltOverskrift(i) = rst.Fields(i). ??? ' Skal give mig Beskrivelse
Next i

Noget i den stil

Ingen Hjælp
Så lukker jeg