Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
Dim ConnectionString As String = "MYConnessione"
Dim ProviderName As String = "System.Data.SqlClient"
Dim Query As String
Query = "SELECT NOME_UTENTE, PASSWORD WHERE NOME_UTENTE=" & MYNOME.Text & MYPASSWORD.Text & "FROM UTENTI"
Dim Connect As New OleDb.OleDbConnection(ConnectionString)
Dim Cmd As New OleDb.OleDbCommand(Query, Connect)
Dim Reader As OleDb.OleDbDataReader
Try
Connect.Open()
Reader = Cmd.ExecuteReader
If Reader.Read() Then
' Controllo necessario per il case sensitive
If MYNOME.Text Is Reader("NOME_UTENTE") And MYPASSWORD.Text Is Reader("PASSWORD") Then
' Aggiungo l'utente alla sessione ed effettuo il redirect alla Home
Session.Add("NOME_UTENTE", MYNOME.Text)
Response.Redirect("Profilo.aspx")
Else
' Username o Password errate
End If
Else
' Username o Password errate
End If
Catch ex As Exception
' Errore
Finally
' Se la connessione è rimasta aperta, la chiudo
If Not Connect Is Nothing Then
Connect.Close()
End If
End Try
End Sub
Ho questo errore alla linea 23:
Server Error in '/' Application.
An OLE DB Provider was not specified in the ConnectionString. An example would be, 'Provider=SQLOLEDB;'.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.ArgumentException: An OLE DB Provider was not specified in the ConnectionString. An example would be, 'Provider=SQLOLEDB;'.
Source Error:
Line 21: Query = "SELECT NOME_UTENTE, PASSWORD WHERE NOME_UTENTE=" & MYNOME.Text & MYPASSWORD.Text & "FROM UTENTI"
Line 22:
Line 23: Dim Connect As New OleDb.OleDbConnection(ConnectionString)
Line 24: Dim Cmd As New OleDb.OleDbCommand(Query, Connect)
Line 25: Dim Reader As OleDb.OleDbDataReader
Rispondi quotando