VBA-Beispiel 041
mail schreiben
mail schreiben

mit vba Datenbank anlegen

Erstellt eine neue und zunächst leere Access-Datenbank im Ordner "Eigene Dateien".
Falls die Datei schon existiert, wird keine neue DB angelegt.

Hinweis:
Damit die Prozedur funktioniert, müssen Sie im Editor unter Extras/Verweise zwei Verweise setzen:

  • Microsoft DAO 3.6 Object Library
  • Microsoft Office 9.0 Object Library

Dies gilt für Office 2000. Andere Versionen haben entsprechend andere Versionsnummern.
Option Explicit
Const Datei As String = "C:\Eigene Dateien\vba sql.mdb"

Sub DB_erstellen()
Dim DB As DAO.Database
Rem eine leere Access-Datenbank anlegen

On Error GoTo Fehler

Rem prüfen ob Datei schon vorhanden ist
If Dir(Datei) <> "" Then
   MsgBox "Datei ist schon vorhanden!", , _
          "keine Änderung durchgeführt"
Else
   Set DB = CreateDatabase(Datei, dbLangGeneral)
   Set DB = Nothing
End If

Exit Sub

Fehler:
Set DB = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
        & "Beschreibung: " & Err.Description _
       , vbCritical, "Fehler aufgetreten"
End Sub

Download:   vba041 042 043 db.zip