Funktion gesucht

[gingerswelt]

Hallo zusammen,

ich suche eine Funktion mit der ich eine Access DB nach Tabellenname durchsuchen kann. Als Rückgabewert sollte sie entweder einen boolean-Wert haben, wenn ich einen Namen übergebe, oder eine Liste von allen vorhanden Namen.

Gibt es so etwas?

Das gleiche suche ich für Abfragen....

Hintergrund:
Wenn ich eine Abfrage mehr als einmal mit VBasic unter den gleichen Namen speichern möchte, erhalte ich die Meldung, dass die Abfrage bereits existiert. Ich benötige demnach eine Information über den Zustand meiner Abfrage (vorhanden/nicht vorhanden). Habe ich diese Information, kann ich entsprechend reagieren. Ohne Info - keine Reaktion

Grüße
Micha

 

[wincnc]

Hallo, hier ein Beispiel für Tabellen und Abfragen.

' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !

Private Sub Form_Load()
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
  
  Set DB = New ADODB.Connection

  DB.CursorLocation = adUseClient
  DB.Provider = "Microsoft.Jet.OLEDB.4.0"
  DB.Open "D:\db1.mdb"
  
  Set RS = New ADODB.Recordset

  Set RS = DB.OpenSchema(adSchemaTables)

  Do Until RS.EOF
  
    ' Tabelle auslesen
    If RS("TABLE_TYPE") = "TABLE" Then
        List1.AddItem RS("TABLE_NAME")
    End If
    
    ' Abfragen auslesen
    If RS("TABLE_TYPE") = "VIEW" Then
        List2.AddItem RS("TABLE_NAME")
    End If
    
    RS.MoveNext
  
  Loop

RS.Close
DB.Close

End Sub