Hi,
in VB6 hatte ich eine Reihe von Tabellen zu löschen und neu anzulegen. Das ging recht kommod mit:
Gibt es ähnliches in VB.Net mit Access?
Für Tips und Links bin ich absolut dankbar.
Grüße
in VB6 hatte ich eine Reihe von Tabellen zu löschen und neu anzulegen. Das ging recht kommod mit:
Code:
Private Sub Tablle NixDaVorhanden()
Me.Caption = "'NixDa' vorhanden?"
If Not dbTableExists(godb, "NixDa") Then
Call NixDa_New
Else
godb.TableDefs.Delete ("NixDa")
Call NixDa_New
End If
End Sub
Public Function dbTableExists(godb As Database, ByVal sName As String) As Boolean
Dim oTabDef As TableDef
' Alle Tabellen durchlaufen...
For Each oTabDef In godb.TableDefs
If UCase$(oTabDef.Name) = UCase$(sName) Then
dbTableExists = True
Exit For
End If
Next
End Function
Für Tips und Links bin ich absolut dankbar.
Grüße