RedlightX
Bekannter NGBler
- Registriert
- 18 Juli 2013
- Beiträge
- 1.185
Hallo,
ich möchte gern bei einem meiner Programme eine Datenbank verwenden.
- Datenbank aus Access 2007 (accdb)
- Visual Studio 2013
- Visual Basic
Ich hänge momentan am Login, da nach dem Einloggversuch immer die Exception erscheint.
Hier mein Code:
[src=vb]
Imports System.Data.OleDb
Public Class login
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Check if username or password is empty
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MessageBox.Show("Bitte Passwort und Nutzername eingeben.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\wlan.accdb"
cnn = New OleDbConnection(connetionString)
Try
cnn.Open()
MsgBox("Läuft!")
Dim sql As String = "SELECT * FROM Login WHERE benutzername='" & TextBox1.Text & "' AND passwort = '" & TextBox2.Text & "'"
Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql)
'Open Database Connection
sqlCom.Connection = cnn
cnn.Open()
Dim sqlRead As System.Data.OleDb.OleDbDataReader = sqlCom.ExecuteReader()
If sqlRead.Read() Then
Me.Hide()
Form1.Show()
cnn.Close()
Else
' If user enter wrong username and password combination
' Throw an error message
MessageBox.Show("Username and Password do not match..", "Authentication Failure", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
'Clear all fields
TextBox1.Text = ""
TextBox2.Text = ""
'Focus on Username field
TextBox1.Focus()
End If
Catch ex As Exception
MessageBox.Show("Failed to connect to Database..", "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
End Class
[/src]
Der Pfad zur Datenbank sollte korrekt sein, zumal diese im Projektordner liegt.
Hab ich irgendetwas übersehen? Dies ist das erste Mal, dass ich überhaupt mit Datenbanken außerhalb von Wordpress & Co zu tun habe.
Danke für Tipps und Hinweise
ich möchte gern bei einem meiner Programme eine Datenbank verwenden.
- Datenbank aus Access 2007 (accdb)
- Visual Studio 2013
- Visual Basic
Ich hänge momentan am Login, da nach dem Einloggversuch immer die Exception erscheint.
Hier mein Code:
[src=vb]
Imports System.Data.OleDb
Public Class login
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Check if username or password is empty
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MessageBox.Show("Bitte Passwort und Nutzername eingeben.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\wlan.accdb"
cnn = New OleDbConnection(connetionString)
Try
cnn.Open()
MsgBox("Läuft!")
Dim sql As String = "SELECT * FROM Login WHERE benutzername='" & TextBox1.Text & "' AND passwort = '" & TextBox2.Text & "'"
Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql)
'Open Database Connection
sqlCom.Connection = cnn
cnn.Open()
Dim sqlRead As System.Data.OleDb.OleDbDataReader = sqlCom.ExecuteReader()
If sqlRead.Read() Then
Me.Hide()
Form1.Show()
cnn.Close()
Else
' If user enter wrong username and password combination
' Throw an error message
MessageBox.Show("Username and Password do not match..", "Authentication Failure", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
'Clear all fields
TextBox1.Text = ""
TextBox2.Text = ""
'Focus on Username field
TextBox1.Focus()
End If
Catch ex As Exception
MessageBox.Show("Failed to connect to Database..", "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
End Class
[/src]
Der Pfad zur Datenbank sollte korrekt sein, zumal diese im Projektordner liegt.
Hab ich irgendetwas übersehen? Dies ist das erste Mal, dass ich überhaupt mit Datenbanken außerhalb von Wordpress & Co zu tun habe.
Danke für Tipps und Hinweise