Udtrække navnene på kolonnerne?

godt spørgsmål det kunne jeg også godt tænke mig at vide... jeg tror nok at det er noget med \'alter table\' men ved ikke mere...

Thomas

I doubt if you can in Access. There are hidden system tables where information is stored but it isnteasy to get at!

It is possible to get at column names vi DAO or ADO.

but hat takes a bit of programming!

hat  = that

Er der ikke nogen der har en kodestump?

acidduck>You have rejected my answer, but use it to further your question!!!

Jeg har ikke fået svar på det jeg spurgte om.

Der skal kodes lidt for at se disse navne, men send mig en mail på min hjemmeadresse mail@hugopedersen.dk  så skal jeg sende dig koden. Jeg har den nemlig ikke her på jobbet.

hugopedersen >> kan du ikke skrive den her... for jeg kunne også godt tænke mig at se koderne...

Thomas

acidduck>My answer 14:47 \"I doubt if you can in Access.\" It maybe isnt the answer you would like, but if something isnt possible \"via en SQL forespørgsel\" then my answer is CORRECT!
I myself said it could be done in code, but this wasnt the question you asked!

Umiddelbart så giver SQL strengen SELECT * FROM sysobjects WHERE TYPE = \'U\' en liste over tabeller der er næsten 100% korrekt på SQL server 2000.

Hvis der er tale om ren Access, så SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects
WHERE (((MSysObjects.Type)=1));
Det giver en liste over ALLE tabeller. Også system tabeller.

Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim intI As Integer
Dim strtemp As String 

Set dbs = CurrentDb
strItems  \"\"                                       
For Each tdf In dbs.TableDefs 
  If (Left(tdf.Name, 4) <> \"mSys\") And (tdf.Connect <> \"\") Then
    strItems = strItems & Left(tdf.Name, 25) & \";\"
  End If \'Right names
Next tdf

Set dbs = Nothing   
Set tdf = Nothing

Resulterer i en streng der kan bruges som RowSource til en listbox.

PS. den tager ikke systemtabeller og kun tilknyttede tabeller og kun de første 25 tegn i navnet.
det må du skråstreg I selv rette skråstreg ændre :-)

jeg får denne fejl når jeg bruger koden...

Kode:
SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects
WHERE (((MSysObjects.Type)=1));

Fejl:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e09\'

[Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on \'MSysObjects\'.

/tc/feltnavn.asp, linje 7