Hallo Zusammen
Ich bin ein Bastler für sich ohne großen Kenntnisse in VB.
Ich wollte mir mein eigene Tool machen um mein Passwörter, WEB Adressen, etc. alles was ich benötige das es Direk im Access gespeichert wird.
es ist mir gelungen etwas aufzustellen und es funktioniert auch einigermaßen, aber aus langen weilen habe ich beschlossen etwas neues zu machen.
mein altes Tool seht so aus.
Login Fenster -> es funktioniert auch
auch das alte Tool funktioniert aber ich möchte was neues
Aber eigentlich es geht bei meinen neuen ich nenne es Project,
ich wollte das das login Fenster direkt auf Access zugreift aber bekomme ich ein Fehler (nicht meine eigene Quellcode, habe es gefunden)
mein Ziel ist dass die TextBoxen auf Access zugreifen abgleichen und wenn richtig dann das Form1 öffnen .
bei Click auf OK bekomme ich Fehler
wie bekomme ich das zum laufen?
Danke
Ich bin ein Bastler für sich ohne großen Kenntnisse in VB.
Ich wollte mir mein eigene Tool machen um mein Passwörter, WEB Adressen, etc. alles was ich benötige das es Direk im Access gespeichert wird.
es ist mir gelungen etwas aufzustellen und es funktioniert auch einigermaßen, aber aus langen weilen habe ich beschlossen etwas neues zu machen.
mein altes Tool seht so aus.
Login Fenster -> es funktioniert auch
auch das alte Tool funktioniert aber ich möchte was neues
Aber eigentlich es geht bei meinen neuen ich nenne es Project,
ich wollte das das login Fenster direkt auf Access zugreift aber bekomme ich ein Fehler (nicht meine eigene Quellcode, habe es gefunden)
VB.NET-Quellcode
- Imports System.Data.OleDb
- Public Class login
- Dim provider As String
- Dim dataFile As String
- Dim connString As String
- Dim myConnection As OleDbConnection = New OleDbConnection
- Private Sub OK_Click(sender As System.Object, e As System.EventArgs) Handles OK.Click
- provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
- dataFile = "d:\VB\wazne.accdb"
- connString = provider & dataFile
- myConnection.ConnectionString = connString
- Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [users] WHERE [username] = '" & user_tb.Text & "' AND [password] = '" & pass_tb.Text & "'", myConnection)
- Dim dr As OleDbDataReader = cmd.ExecuteReader
- Dim userFound As Boolean = False
- Dim FirstName As String = ""
- Dim LastName As String = ""
- 'wenn gefunden:
- While dr.Read
- userFound = True
- FirstName = dr("FirstName").ToString
- LastName = dr("LastName").ToString
- End While
- If userFound = True Then
- Form1.Show()
- Form1.Label1.Text = "Welcome " & FirstName & " " & LastName
- Else
- MsgBox("Sorry, Benutzer oder Password nicht gefunden", MsgBoxStyle.OkOnly, "Invalid Login")
- End If
- End Sub
- End Class
mein Ziel ist dass die TextBoxen auf Access zugreifen abgleichen und wenn richtig dann das Form1 öffnen .
bei Click auf OK bekomme ich Fehler
wie bekomme ich das zum laufen?
Danke