Salve, potreste aiutarmi a vedere se questo codice che ho impostato è corretto o se ha senso?
Innanzitutto vi spiego di cosa si tratta:
ho un database con una sola riga:e all'interno ci sono tre password,
ogni password accede a qualcosa;
in base alla password io stabilisco cosa bisogna fare.
io ho pensato di inserire in un form una textbox e un bottone
il codice l'ho impostato così:
Public Enum Livelli
master = 1
pluto
pippo
nonautenticato
End Enum
Public liv As Livelli
Public Function FindPassword(ByVal pass As String) As Livelli
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\aaa\Desktop\Master\Master.mdb;"
Dim cn As New OleDbConnection(strConn)
Dim cm As New OleDbCommand()
Dim dt As OleDbDataReader
Dim da As New OleDbDataAdapter(cm)
cm.CommandText = "SELECT PSW1,PSW2,PSW3 FROM Anagrafica WHERE PSW1='" & pass & "'" & " OR PSW2 ='" & pass & "'" & " OR PSW3 =' " & pass & "' "
cm.Connection = cn
Try
cn.Open()
dt = cm.ExecuteReader()
If dt.Read() Then
If (pass = "master") Then
liv = CType([Enum].Parse(GetType(Livelli), dt.Item("PSW1")), Livelli)
End If
If (pass = "pluto") Then
liv = CType([Enum].Parse(GetType(Livelli), dt.Item("PSW2")), Livelli)
End If
If (pass = "pippo") Then
liv = CType([Enum].Parse(GetType(Livelli), dt.Item("PSW3")), Livelli)
End If
End If
Catch er As Exception
MsgBox(er.Message & Environment.NewLine & er.StackTrace)
cn.Close()
End Try
Return liv
End Function
A me funziona, ma volevo un giudizio da persone che con ogni probabilità lavorano conVB.net da una vita.
Vi sarei molto grato di un qualsiasi tipo di aiuto pensate possa essermi utile per migliorare il codice in questione e anche quello futuro.