Errore NON RISOLTO in lettura ad un database mdb - vb net 10 express

[libraio]

Mi capita di trovarmi di fronte ad uno errore che non riesco a risolvere ecco il codice:

Public Function Controlla_password_admin(login As String, Password As String, Optional Nome_database As String = "") As Boolean


        Dim DirrCorr As String


        If PaginaPrincipale.nomedatabase = "" Then


            PaginaPrincipale.OFD1.DefaultExt() = ".mdb"
            PaginaPrincipale.OFD1.CheckFileExists = True
            PaginaPrincipale.OFD1.CheckPathExists = True
            PaginaPrincipale.OFD1.Filter = "Database (*.mdb)|*mdb"
            PaginaPrincipale.OFD1.Title = "OPEN DATABASE"


            PaginaPrincipale.OFD1.FilterIndex = 1
            PaginaPrincipale.OFD1.InitialDirectory = DirectoryCorrente()




            If PaginaPrincipale.OFD1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                DirrCorr = PaginaPrincipale.OFD1.FileName
            Else
                Return False
            End If


            ApriDatabase(DirrCorr)
            cn.Close()


        Else
            DirrCorr = Nome_database
        End If


       


        Dim Conn = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & DirrCorr)
        Dim Cmd As OleDb.OleDbCommand
        Dim da As String = "SELECT login,password,admin FROM pass where login ='" & login & "' and password ='" & Password & "' and admin = true"
        Dim n As Integer = 0
        Dim Reader As OleDb.OleDbDataReader = Nothing


        Cmd = New OleDb.OleDbCommand(da, Conn)
        Conn.Open()
        While Reader.Read()
            n = n + 1
            If Cmd.ExecuteReader().GetBoolean(n) = True Then
                Conn.Close()
                Return True 'esiste gia'
            End If
        End While
        Conn.Close()


        Return False


    End Function

l'errore mi appare in conn.open ed e quello inserito come allegato

[Kahm]

hai provato a fare Dim Conn as NewOleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data
e pure con l'oggetto command

[oregon]

Il problema non mi sembra la conn.open ma il reader che non é stato creato

[gibra]

A me il problema sembra su entrambi

[libraio]

Dim Conn as NewOleDb.OleDbConnection("PROVIDER=Microsoft.Jet.O LEDB.4.0;Data Source = " & DirrCorr) mi da un errore : i limiti di matrice non possono trovarsi in un identificatore di tipo. Dim Reader As New OleDb.OleDbDataReader mi da un altro errore : non accessibile perche friend. Mi potreste postare direttamente il codice. Grazie

[oregon]

Dim Conn as NewOleDb.OleDbConnection("PROVIDER=Microsoft.Jet.O LEDB.4.0;Data Source = " & DirrCorr) mi da un errore : i limiti di matrice non possono trovarsi in un identificatore di tipo. Dim Reader As New OleDb.OleDbDataReader mi da un altro errore : non accessibile perche friend. Mi potreste postare direttamente il codice. Grazie

Nella prima riga hai unito la parola New al resto ... ovviamente dopo New va uno spazio

E nella seconda riga la New non la devi proprio usare

[libraio]

Potete per favore postarmi del codice funzionante dato che mi riappare l'errore originale. grazie.

[oregon]

Ma tu cosa scrivi adesso? Perché non dici tu cosa vuoi fare e vediamo gli altri errori del tuo codice invece di continuare a chiedere la pappa pronta (di qualcosa poi che non sappiamo esattamente cosa...) ❓

[libraio]

Io ho una tabella mdb di nome pass con i campi password - login - e amdin. quello che volevo era verificare che con password e login corrispondenti si avesse anche un admin = true che implicherebbe essere anche amministratore. Utilizzando le correzioni di oregon mi appaiono sempre i 2 errori iniziali. non voglio certo la pappa scodellata ma un aiuto verso qualcosa a cui non arrivo perchè questa parte del codice vb è nuova per me ed l'ho trovata in un forum che la mensionava come funzionante.

[oregon]

Non si programma prendendo pezzi di codice qui e lì e mettendoli insieme senza capire che si sta facendo. È necessario un minimo di studio per conoscere il linguaggio e sapere cosa fare in caso di problemi.


Adesso posta nuovamente il codice corretto che usi e gli errori altrimenti non riuscirai a risolvere.

E ricorda che chiedere continuamente che ti si scriva il codice equivale a chiedere la pappa pronta e questo non ti aiuta ad avere risposte.