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![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
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
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Mfg retecvb