Hente ut passord fra access med vb.net

[EspenDL]

Dim brukernavn As String

Dim strSQL As String

 

brukernavn = txtBrukernavn.Text

strSQL = "SELECT Passord FROM Faglærer WHERE Logginnavn= & 'brukernavn'"

 

Try

Dim objConnect As New OleDbConnection(dbConn)

objConnect.Open()

Dim objCommand As New OleDbCommand(strSQL, objConnect)

Dim objDataReader As OleDbDataReader

 

objDataReader = objCommand.ExecuteReader()

While objDataReader.Read()

MsgBox("Innlogget")

End While

objDataReader.Close()

objConnect.Close()

 

Catch ex As Exception

MsgBox("Brukernavn og passord matcher ikke")

End Try

 

 

--

Noen som ser feilen?

[wolf5]

Litt mer beskrivende topic eller innhold hadde jo vært fint. F.eks hva ex.Message viser.

 

Men med første øyenkast virker denne linjen ikke helt god.

strSQL = "SELECT Passord FROM Faglærer WHERE Logginnavn= & 'brukernavn'"

 

tror du mener:

strSQL = "SELECT Passord FROM Faglærer WHERE Logginnavn='" & brukernavn & "'"

 

tips. bruk breakpoints og ta en titt på strSQL rett før den kjøres/sendes inn.

Endret 29. mai 2006 av wolf5

[EspenDL]

Har tatt en titt på hva strSQL får opp når vi prøver å logge inn.

Sql strengen vår skal altså hente et passord fra en tabell vi har lagd i access.

 

Dette gjør den altså ikke, strSQL blir bare "Nothing".

 

Derfor lurer vi på hva som feiler strengen...

 

Eller kan det være noe annet vi har oversett?

Endret 29. mai 2006 av EspenDL

[wolf5]

strSQL kommer aldri til å inneholde noe retur. Den bruker du kun til å sende inn SQL Strengen du skal kjøre.

 

objDataReader skal inneholde resultatet som ut fra SQL strengen er en tabell med 1 kolonne.

 

While(objDataReader.Read)
 kolonnenavn = objDataReader.GetName(0)
 kolonneverdi = objDataReader.GetValue(0).ToString()
End While

Endret 29. mai 2006 av wolf5