SQL: Hent felter fra Access DB

ADO eller DAO

Det nærmeste, jeg kan komme, er tabelnavne med denne her:

SELECT Name
FROM MSysObjects
WHERE (Type=1) AND (Name NOT LIKE \'MSYS*\')

Ellers må du gennem DAO TableDefs Collection, som terry foreslår

And that only works with local tables (not linked)

vil du bare vælge alle felter eller hvad....
så skal du bare skrive SELECT * FROM MSysObjects

loss>> Det kan højst give dig tabelnavnene

er det ikke osse det han vil, eller er jeg bare ikke stået op endnu :)

loss>> Han ønsker feltnavnene, så go\'morgen :-)

field names too loss!

you can do it in code!

hehe

hvis nu jeg gerne vil have alle feltnavne fra tabellen \"tblVarer\" ... hvad skal jeg så helt præcist skrive?

fordi jeg jeg får nemlig fejlen:
\"Poster kan ikke læses fordi der ikke er tilladelse til at læse i \'MSysObjects\'\"

You cant!

kan jeg ikke? altså det er bare ikke muligt at finde feltnavne i en tabel gennem ADO?

I didnt say that! You wanted an SQL statement and that is what people were trying to give you. It can be done in ADO/DAO by looping through various collections.

The first thing I asked was ADO or DAO!!!!

ok -- ADO er svaret.. men hvad skal jeg så skrive i mit SQL-statement? (Er jeg fuldstændig tabt? :)

As far as I know, you CAN NOT use a single SQL statement. You can use code to do it.

ok .. fine! men hvilken kode.. kender du den?

I would think I could find something but I am off home in a short while can you wait?

Are you using Access 97 or 2000?

Access 2000!

Det kommer nok an på hvor længe du er hjemmefra.. I lang tid, eller ...?

You should get an answer this evening, how does that sound?

But then if anyone else can give you an answer then it doesnt matter, and if they cant then you will just have to wait IKKE????

hehe -- i aften lyder godt, men jeg kan ikke garantere nogle point hvis nogen skulle komme dig i forkøbet! :)

Well thats the risk I have to take, and when we are only talking 30 then the risk is minimal :o)

heh .. DOUBLE UP! - 60 pts. ;)

Forresten ville det også være en god ting, hvis jeg sammen med felterne kunne få fat på beskrivelsen, som man skriver i Design View i Access... Hvis dette kan lade sig gøre altså :)

Hvis du går gennem ADO, kan du bruge connection-objektets OpenSchema til at få et recordset med information om feltnerne:

(følgende forudsætter et åbent connection objekt med navnet cnn

Dim rstSchema As ADODB.Recordset
Set rstSchema = cnn.OpenSchema(adSchemaColumns)
 
Do Until rstSchema.EOF
  Debug.Print \"Table name: \" & _
      rstSchema!TABLE_NAME & vbCr & _
      \"Field Name: \" & rstSchema!COLUMN_NAME & vbCr & _
      \"Description: \" & rstSchema!DESCRIPTION & vbCr
  rstSchema.MoveNext
Loop
rstSchema.Close

ok, så mangler jeg så lidt:

kan man på en måde sortere resultaterne, og kan jeg få den til kun at hente felter fra tabellen tblVarer?

nåå jo! hvordan kan jeg få at vide om et felt er primary key?

If we keep to what Benny has given so far then it would look like this and it isnt sorted!

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
   
   
    cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\\VB\\ADO Example\\ado.mdb\"
       
    Dim rstSchema As ADODB.Recordset
    Set rstSchema = cn.OpenSchema(adSchemaColumns)
 
    Do Until rstSchema.EOF
        If Mid(rstSchema!TABLE_NAME, 1, 4) <> \"MSys\" Then
            Debug.Print \"Table name: \" & _
            rstSchema!TABLE_NAME & vbCr & _
            \"Field Name: \" & rstSchema!COLUMN_NAME & vbCr & _
            \"Description: \" & rstSchema!Description & vbCr
        End If
        rstSchema.MoveNext
    Loop
   
    Set rstSchema = cn.OpenSchema(adSchemaIndexes)
    Do Until rstSchema.EOF
        If Mid(rstSchema!TABLE_NAME, 1, 4) <> \"MSys\" Then
            If rstSchema(\"PRIMARY_KEY\") = True Then
                Debug.Print \"Table name: \" & _
                rstSchema!TABLE_NAME & vbCr & _
                \"Primary Key: \" & rstSchema!COLUMN_NAME
            End If
        End If
        rstSchema.MoveNext
    Loop
   
    rstSchema.Close
    cn.Close

and if you only want to see \"tblVarer\"
then change this line
If Mid(rstSchema!TABLE_NAME, 1, 4) <> \"MSys\" Then
           
to
If rstSchema!TABLE_NAME = \"tblVarer\" Then
           

ok - det ser fint ud, men hvad med at sortere?
Kan man ikke gøre brug af rstSchema.Sort?
Hvis ja, hvordan?

You could try it!

rstSchema.Sort \"TABLE_NAME ASC\"

Well .. det ser ikke ud til at virke med sorteringen, men det gør nu heller ikke så meget! Derfor må I dele pointene, terry og benny.tordrup, da I begge har været til stor hjælp... Jeg har samtidig sat pointene op til 100 for at I skulle få noget ud af det, og I kan derfor gå herfra med 50 hver :)

Men hvis nogen skulle finde ud af hvordan det med sorteringen af et OpenSchema RecordSet foregår, må vedkommende meget gerne skrive sit svar på denne side, så vil jeg give ham/hende point for et brugbart svar!

Mvh. Mikkel

OK! og mange tak :o)