Hey,
ich habe Probleme mit einer SELECT Anweisung auf meinen MSSQL Server.
In meiner Datenbank sind mehrere Spalten.
Accountname = sUserID
Accountpasswort = sUserPW
Authorisierungslevel = nAuthID
Nachdem ich auf den Loginbutton geklickt habe soll er die nAuthID abfragen undzwar dort wo der TextBox1.Text = sUserID ist.
Wie mache ich das am besten?
Habe ein bisschen gegoogelt und habe im MSDN nachgeschaut, dort steht folgenes:
Bei mir steht folgenes:
Kann mir jemand sagen wo ich einen Fehler gemacht habe?
Und sorry ich lern es noch, zum lernen gehören bekanntlich Fehler
Mfg retecvb
ich habe Probleme mit einer SELECT Anweisung auf meinen MSSQL Server.
In meiner Datenbank sind mehrere Spalten.
Accountname = sUserID
Accountpasswort = sUserPW
Authorisierungslevel = nAuthID
Nachdem ich auf den Loginbutton geklickt habe soll er die nAuthID abfragen undzwar dort wo der TextBox1.Text = sUserID ist.
Wie mache ich das am besten?
Habe ein bisschen gegoogelt und habe im MSDN nachgeschaut, dort steht folgenes:
VB.NET-Quellcode
- Private Sub ReadOrderData(ByVal connectionString As String)
- Dim queryString As String = _
- "SELECT OrderID, CustomerID FROM dbo.Orders;"
- Using connection As New SqlConnection(connectionString)
- Dim command As New SqlCommand(queryString, connection)
- connection.Open()
- Dim reader As SqlDataReader = command.ExecuteReader()
- ' Call Read before accessing data.
- While reader.Read()
- Console.WriteLine(String.Format("{0}, {1}", _
- reader(0), reader(1)))
- End While
- ' Call Close when done reading.
- reader.Close()
- End Using
- End Sub
Bei mir steht folgenes:
VB.NET-Quellcode
- Dim UserName As String = TextBox1.Text
- Dim Password As String = TextBox2.Text
- Dim con As SqlConnection = GetConnection()
- Dim cdo As New SqlCommand("SELECT sUserID, sUserPW, nAuthID FROM tUser WHERE sUserID ='" & UserName & "';", con)
- con.Open()
- Dim reader As SqlDataReader = cdo.ExecuteReader
- Dim UserSQL As String
- Dim PWSQL As String
- Dim AuthLev As String
- UserSQL = reader(0)
- PWSQL = reader(1)
- AuthLev = reader(2)
- If AuthLev = "9" Then
- Me.Hide()
- Main.Show()
- Else
- If MessageBox.Show("Error!", "Error...", MessageBoxButtons.OK, MessageBoxIcon.Warning) = vbOK Then
- Me.Close()
- End If
- End If
Kann mir jemand sagen wo ich einen Fehler gemacht habe?
Und sorry ich lern es noch, zum lernen gehören bekanntlich Fehler
Mfg retecvb