Hallo, ich bin ein echter anfänger im vb.net deswegen komme ich leider nicht von selber drauf. Mit den ergoogelten Ergebnissen kahm ich durch meine mangelnden Kentnisse nicht weit.
Ich habe folgendes versucht:
1. Login auf eine Datenbank
2. Wenn eingeloggt wird ein dritter Wert (email) ausgegeben.
Das mit dem einloggen klappt ganz gut aber das mit der email habe ich 0 Ahnung wie das funktioniert. Die Spalte in der sql Tabelle heißt "emails".
Hier mal der komplette Code:
Danke im Vorraus!
Ich habe folgendes versucht:
1. Login auf eine Datenbank
2. Wenn eingeloggt wird ein dritter Wert (email) ausgegeben.
Das mit dem einloggen klappt ganz gut aber das mit der email habe ich 0 Ahnung wie das funktioniert. Die Spalte in der sql Tabelle heißt "emails".
Hier mal der komplette Code:
VB.NET-Quellcode
- Imports System.Data.SqlClient
- Public Class Form1
- Dim sqlconn As SqlConnection
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If (txtuser.Text = "" Or txtpasss.Text = "") Then
- MsgBox("Bitte füllen sie die felder aus!")
- Else
- Try
- sqlconn = New SqlConnection("server=serverip;database=Accs;integrated security=true")
- sqlconn.Open()
- Catch ex As Exception
- MsgBox("Kann nicht zur datenbank verbinden. Sweet was machst du denn fürn scheiß -.-")
- End Try
- Dim da As SqlDataAdapter
- da = New SqlDataAdapter("select * from Accounts", sqlconn)
- Dim dt As New DataTable
- da.Fill(dt)
- Dim count As Integer = 0
- Dim canre As Integer = 0
- For i As Integer = 0 To dt.Rows.Count - 1
- Dim dr As DataRow = dt.Rows(i)
- If (dr.Item("Username").ToString = txtuser.Text.ToString And dr.Item("UserPass").ToString = txtpasss.Text.ToString) Then
- count = count + 1
- End If
- If (count > 0) Then
- canre = 1
- Else
- canre = 0
- End If
- Next
- If (canre = 1) Then
- MsgBox("Hier die email!")
- Else
- MsgBox("Nutzername oder Passwort falsch!")
- End If
- End If
- End Sub
- End Class
Danke im Vorraus!
