Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

   	Dim conn As New OleDbConnection
    	Dim myConnectionString As String
    	Dim PW As String
    	Dim Nickname As String
    	PW = TextBox2.Text.Replace("'", "")
    	Nickname = TextBox1.Text.Replace("'", "")
    	myConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=../data/Konten.mdb"
    	conn.ConnectionString = myConnectionString
    	Try
        	conn.Open()
    	Catch ex As Exception
        	MessageBox.Show(ex.Message)
    	End Try
    	Dim myAdapter As New OleDbDataAdapter
    	Dim sqlquery = "SELECT Benutzername, Passwort FROM user Where Benutzername='" & Nickname & "' and Passwort='" & PW & "'"
    	Dim myCommand As New OleDbCommand
    	myCommand.Connection = conn
    	myCommand.CommandText = sqlquery
    	myAdapter.SelectCommand = myCommand
    	Dim myData As OleDbDataReader
    	myData = myCommand.ExecuteReader()

    	If myData.HasRows = 0 Then
        	MsgBox("Falsche Logindaten!", MsgBoxStyle.Information, " Login...!")
    	Else

        	myData.Close()
        	conn.Close()
        	'Hier dann hin was dann nach dem Login kommen soll wenn die LoginDaten Richtig sind!
        	MsgBox("Geschafft", MsgBoxStyle.Information, "Login")

    	End If
	End Sub

Quellcode

 myData = myCommand.ExecuteReader()