On Sat, 12 Aug 2006 01:18:03 +0200, Kasper Johansen
<kaspernj@gmail.com> wrote:
>Jan Bachman skrev:
>> Du burde kunne oprette en hel struktur i ren SQL. Her er et par
>> nøgleord:
>
>Ja. "CREATE TABLE" virker. Men hvad med at få listet indexes eller
>tabeller? Det går fint med at udføre kommandoen til at lave dem.
>
>Jeg kan ikke finde nogen dokumentation til Access, når jeg søger på Google.
>
>Et par links eller lidt forklaringer til det ville gøre underværker :)
Jeg søgte lidt videre og fandt hjælp:
<url:
http://www.mvps.org/access/queries/qry0002.htm>
- som siger:
-----------
The Access system table MsysObjects table contains a list of all
database objects. Although undocumented, you can query this table to
retrieve the names you want.
-----------
Men den er default sat til læse-beskyttet, men det er der hjælp til
her:
<url:
http://www.dbdesc.com/support.html>
Den siger:
-----------
In order to get that kind of info, dbdesc needs READ permissions to
Access system tables. By default this permission is denied. To change
this setting follow this simple guide:
Open the database
Go to Tools -> Options and enable 'System objects'
Go to Tools -> Security -> User and Group permissions
Select Admin user in the first list and MSysObject and MSysQueries on
the second.
Enable READ DATA permission flag
-----------
Jeg kom så langt, at jeg kunne trække mine tabelnavne og nogle andre
oplysninger ud, men det er ikke alle tabellens felter, der umiddelbart
lader sig udskrive - og nogle af de andre aner jeg ikke hvad betyder
Men jeg har brygget et ASP-eksempel sammen, som måske kan hjælpe dig
en smule videre:
-----------
' Type 1 er tabeller
strSql = "SELECT * FROM MsysObjects WHERE (Left$([Name],4) <> 'Msys')
AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;"
Set objRs = objConn.Execute(strSql)
' Viser bare, at der er 17 felter (i mit tilfælde?)
Response.Write objRs.Fields.Count & "<br>" & vbcrlf
' Giver dig feltnavnene fra system-tabellen [1]
For Each Field in objRs.Fields
Response.Write Field.Name & "<br>" & vbcrlf
Next
' Giver dig navnene på tabellerne
Do While Not objRs.Eof
Response.Write objRs("Name") & "<br>" & vbcrlf
objRs.MoveNext
Loop
-----------
[1]
De 17 felter jeg får ud hedder:
Connect
Database
DateCreate
DateUpdate
Flags
ForeignName
Id
Lv
LvExtra
LvModule
LvProp
Name
Owner
ParentId
RmtInfoLong
RmtInfoShort
Type
Det er især feltet "LvProp" der giver en lidt underlig datatype ud.
TypeName-funktionen siger, at det er et "Byte()" - hvilket fik mig til
at tænke array.
Den siger True til IsArray, og man kan også tage et UBound() på den
(på første dimension), men man (jeg) kan ikke finde ud af at trække
noget ud af arrayet (hvis det er et array). Og den kan ikke
konverteres til String, Bool m.m.
Der er muligvis en lettere måde at hive tabelnavne ud på, men måske
dette kan bringe dig en smule videre ...
Good luck!
--
Jørn Andersen,
Brønshøj