Søg
Avatar billede tjacob Juniormester
26. februar 2003 - 16:08 Der er 3 kommentarer og
1 løsning

Udtræk tabelnavne og -antal fra Access DB m/ADO

Jeg har en Access Database, som jeg bruger i et VB-prog.
Jeg anvender ADO til kontakt med databasen, og arbejder i recordsets.

som f.eks.:

  Set cnCon1 = New ADODB.Connection
  strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath

  cnCon1.Open strCon


Hvordan trækker jeg antallet af tabeller, samt tabellernes navne ud, uden at skulle åbne hver enkelt?

Det drejer sig om flere tusinde tabeller.

/tjacob
Avatar billede helmet Nybegynder
26. februar 2003 - 19:44 #1
Du kan eventuel prøve at bruge det her.
Så må du selv fylde det ind i en collection eller ligende, så kan du hurtigt få antal.

Dim rstSchema As ADODB.Recordset
Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
  If rstSchema("TABLE_TYPE") = "TABLE" Then
    Debug.Print "Table Name: " & rstSchema("TABLE_NAME")
  End If
  rstSchema.MoveNext
Loop
rstSchema.Close
Avatar billede knico Nybegynder
26. februar 2003 - 20:09 #2
Du kan også finde tablenavne vha. ren sql:

SELECT Name FROM MSysobjects WHERE Type=1 AND Name NOT LIKE "MSys*"
Avatar billede tjacob Juniormester
27. februar 2003 - 09:37 #3
>>helmet  Fungerer fint. Points kommer.....

>>knico  Når jeg forsøger din løsning, får jeg en melding om at poster ikke kunne læses, da der ikke er tilladelse til at læse MSysobjects.
Hvad gør jeg ved det?

/tjacob
Avatar billede tjacob Juniormester
27. februar 2003 - 10:34 #4
>>knico:  Hvis du kan hjælpe mig til at få din løsning til at fungere, så er der også 30 til dig ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:14 Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
I går 22:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
I går 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
15/0811:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
White papers
Flere white papers »