|
Imports System.Data.OleDb
Imports System.IO
Public Class Form1
Private sDatabasePath As String = "MyNewEmptyUsers.mdb"
Private sTableName As String = "MyNewUsers"
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Datenbank_und_Tabelle_erstellen()
End Sub
Private Sub Datenbank_und_Tabelle_erstellen()
Dim fi As New FileInfo(sDatabasePath)
If fi.Exists Then
If MessageBox.Show("Die Datenbank existiert bereits." & _
vbNewLine & "Sie können diese zunächst löschen, " & _
" wenn Sie sie neu erstellen wollen." & vbNewLine & _
"Soll die existierende DB wirklich gelöscht werden?", _
"DB jetzt löschen?", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Exclamation) = _
Windows.Forms.DialogResult.Yes Then
File.Delete("MyNewEmptyUsers.mdb")
MessageBox.Show("Die Access-Datenbank wurde gelöscht!", _
"Die DB wurde gelöscht!", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Exit Sub
End If
End If
Dim catalog As Object
catalog = CreateObject("ADOX.Catalog")
catalog.create( _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
sDatabasePath)
MessageBox.Show("Die Datenbank wurde neu erstellt", _
"Neue Access-Datenbank", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim conn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
& sDatabasePath)
conn.Open()
Dim sql As String = "CREATE TABLE " & sTableName & "(" & _
"ID COUNTER NOT NULL CONSTRAINT PK_ID_no PRIMARY KEY, " & _
"UserName Varchar(30) NOT NULL, " & _
"Passwort Varchar(10) NOT NULL, " & _
"Email Varchar(50), " & _
"Anrede Varchar(20), " & _
"VorName Varchar(50), " & _
"NachName Varchar(50), " & _
"Kommentar Text(100), " & _
"Erster DateTime, " & _
"Kontakte Integer DEFAULT 0, " & _
"Letzter DateTime DEFAULT Now, " & _
"Konto Currency DEFAULT 0.0," & _
"Ok Bit DEFAULT TRUE" & _
")"
Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Die neue Datenbank" & vbNewLine & _
sDatabasePath & vbNewLine & vbNewLine & _
"mit der Tabelle" & vbNewLine & _
sTableName & vbNewLine & vbNewLine & _
"wurde erfolgreich erstellt!", _
"Erfolgreich erstellt: DB und Tabelle", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start("MyNewEmptyUsers.mdb")
End Sub
End Class
|
|