title image


Smiley Re: Funktioniert nicht
Hallo Oink,



erstmals vielen Dank für deine Hilfe. Leider funktioniert dies nicht. Dein Vorschlag ist eine SQL-Abfrage auf die Tabelle "dba_tables". Diese Tabelle gibt es aber nicht in dieser Datenbank. Ich habe dies geprüft. Ich habe die Anweisung auf eine andere Tabelle versucht, habe es aber nicht geschafft. Die Verbindung steht aber. Unten habe ich die Prozedur aufgelistet. Die Personalisierten Angaben habe ich ausge-xxx-t. Vielleicht kannst du mir noch einen Tip geben, damit die Abfrage funktioniert. Die Tabelle ist aber nicht eingebunden - sprich erscheint nicht in der Tabellenauflistung in Access. Vielen Dank im voraus.



Gruß Manfred



Sub versuch1()

Dim ws As DAO.Workspace

Dim conn As DAO.Connection





Set ws = CreateWorkspace("xxxxxxxxx", "xxxx", "xxxxxx", dbUseODBC)

Set conn = ws.OpenConnection("xxxxxx", dbDriverNoPrompt, & _ False, "ODBC;DATABASE=Oracle 8 & _

tables;UID=xxxx;PWD=xxxxx;DSN=Oracle 8 tables")

DoCmd.RunSQL ("SELECT * from PUBLIC.ALL_TABLES;")



conn.Close

ws.Close

Set ws = Nothing

Set conn = Nothing

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: