VBA Tabellen Abfragen

[Gast TobberT]

Wie kann man in vba (Access2000) in einer adp abfragen ob eine Tabelle vorhanden ist...?

[Amstelchen]

entweder direkt angefragt beim data dictionary:

select * from sysobjects where id = object_id('[dbo].[meineTabelle]') and OBJECTPROPERTY(id, 'IsUserTable') = 1

oder z.b. mit ADO:

   Set meinSchema = cnConnection.OpenSchema(adSchemaTables, Array(Empty, Empty, "meineTabelle", Empty))


   If meinSchema.EOF Then

      MsgBox "tabelle exisitiert nicht"

   Else

      MsgBox "tabelle exisitiert"

   End If

oder via ADOX:

   Dim myConn As ADODB.Connection

   Dim myCat As ADOx.Catalog

   Dim myTabName as String


   Set cat.ActiveConnection = myConn 

   myTabName = cat.Tables(TableName).Name

   if Err > 0 'dann existiert die tabelle nicht

s'Amstel