title image


Smiley Re: Funktioniert nicht
Habs mir wohl etwas einfach gemacht.



Die Tabelle dba_Tables existiert ist aber nicht für jeden sichtbar. Aber All_Tables oder User_Tables reicht meist auch aus.



Damit die einzelnen Tabellen zu verarbeiten sind musst du einfach noch ein Recorset (siehe Code) aufmachen. "Docmd.RunSQL" greift nur auf die eigentliche AccessDB. Dann kann man auch die Namen für Workspace und Connection weglassen.



Gruss Thomas





Sub versuch1()

Dim ws As DAO.Workspace

Dim conn As DAO.Connection

Dim rs1 As Recordset



Set ws = CreateWorkspace("", "", "", dbUseODBC)

Set conn = ws.OpenConnection("", dbDriverNoPrompt, False, _

"ODBC;DSN=XXX;SRVR=XXX;UID=XXX;PWD=XXX")



Set rs1 = conn.OpenRecordset("SELECT * from ALL_TABLES;")



Do While Not rs1.EOF

Debug.Print rs1!table_name

rs1.MoveNext

Loop



Set rs1 = Nothing

conn.Close

ws.Close

Set conn = Nothing

Set ws = Nothing



End Sub


Viele Leute glauben das sie denken, wenn sie lediglich ihre Vorurteile neu ordnen. (William James)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: