title image


Smiley Tabellennamen Abfragen?
Hallo,ich habe eine Funktion für Löschen von Tabellen. Aber da brauche ich eine ODBC-Schnittstelle. Es gibt eine Möglichkeit die Tabellennamen abfragen ohne ODBC einzurichten?Dim cn_del As New ADODB.ConnectionDim rs_del As New ADODB.RecordsetDim Katalog As New ADOX.CatalogDim tbl As TablePublic Function Tabelle_delete(Tab1)On Error Resume Nextcn_del.Open "DSN=" & m_Name & ";UID=;PWD=;"Katalog.ActiveConnection = "DSN=" & m_Name & ";UID=;PWD=;"For Each tbl In Katalog.Tables If tbl.Name Tab1 Then rs_del.Open "Drop Table " & tbl.Name, cn_del End IfNext Set Katalog = Nothing cn_del.CloseEnd FunctionGruß Sten
Gruss
Sten

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: