VBA-Beispiel 043
mail schreiben
mail schreiben

Datenexport nach Access

Eine Datenbank anlegen und Daten reinschreiben

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 in_DB_eine_Tabelle_anlegen()
Dim DB As Database
Dim Antwort As Long

On Error GoTo Hell

Rem wenn Datei nicht vorhanden dann anlegen
If Dir(Datei) = "" Then
   Set DB = CreateDatabase(Datei, dbLangGeneral)
Else
   Rem wenn alte Datei vorhanden nachfragen
    Antwort = MsgBox("soll die alte Datei:" & vbNewLine _
        & Datei & vbNewLine _
        & "gelöscht werden?", vbYesNo, "Datei ist schon vorhanden")

    If Antwort = 6 Then
       Rem alte Datei löschen
        Kill Datei
       Rem neue Datei anlegen
        Set DB = CreateDatabase(Datei, dbLangGeneral)
    Else
       Rem falls Nein angeklickt dann aussteigen
        MsgBox "keine Änderung vorgenommen", , "Abbruch"
        Exit Sub
    End If

End If

Rem DB öffnen
Set DB = OpenDatabase(Datei)

Rem Tabelle "Personal" anlegen und Spalten einfügen
DB.Execute ("Create table Personal" _
          & "(PersonalNR SMALLINT NOT NULL, Name CHAR(40), Vorname char(40)," _
& "Geschlecht char(1), AbtNR SMALLINT, Eintritt DATE, Gehalt NUMERIC)")

Rem in Tabelle "Personal" Daten eintragen
DB.Execute ("Insert into Personal Values" _
  & "(5,'Schröder','Heinz','M',2, #61-05-15#,2500.00)")

DB.Execute ("Insert into Personal Values" _
  & "(8,'Schneider','Sybille','W',3, DateValue('1.5.79'),4200.00)")

Set DB = Nothing
MsgBox "Daten eingetragen", , Datei
Exit Sub

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

End Sub


Download:   vba041 042 043 db.zip