[VB.NET] Errore "Oggetto non supportato" usando DAO

[oregon]

dbs.opendynaset

Non ho scritto questo. Dove te lo sei inventato?

uso vb net 2012

Perché nel titolo hai scritto VB6??

A questo punto lascia stare DAO e questi vecchi metodi e scrivi utilizzando ADO.NET e le ricerche con SQL.

E come ti dicevo nell'altro forum, apri un libro e studia le parti che non conosci prima di utilizzare VB.NET

[optime]

nel titolo -->

[VB6]

nel testo --->

uso vb net 2012

TOP!

[alka]

Perché nel titolo hai scritto VB6??

L'ho scritto io, perché davo per scontato che si trattasse di quello visto che si parlava di DAO.
Il titolo originale comunque non era più esplicativo, poiché era un semplice "DAO".

Modifico il titolo di nuovo, ma rilancio ovviamente quello che avete suggerito fino ad ora.

[panfra2019]

trovato, scritto in questa maniera ( pur avendo importato DAO non mi da' errore:

   rst = dbs.OpenRecordset("stanze", DAO.RecordsetTypeEnum.dbOpenSnapshot

Grazie

[oregon]

trovato, scritto in questa maniera ( pur avendo importato DAO non mi da' errore:

   rst = dbs.OpenRecordset("stanze", DAO.RecordsetTypeEnum.dbOpenSnapshot

Grazie

Ma tu hai letto quello che ti avevo scritto di fare? Boh

[panfra2019]

La stringa esatta sarebbe <.

rst = dbs.OpenRecordset("stanze", dbOpenDynaset, criterio)

[optime]

La stringa esatta sarebbe <.

rst = dbs.OpenRecordset("stanze", dbOpenDynaset, criterio)

questa funziona?

[panfra2019]

Non dovrebbe darmi errore neanche..

rst = dbs.OpenRecordset("stanze")

[panfra2019]

       If FrmPrincipale.directoryDB = "" Then
            FrmPrincipale.directoryDB = My.Computer.FileSystem.CurrentDirectory & "\dati\dungeon.mdb"
        End If




        Dim db2p As Database
        Dim rs2p As Recordset
        Dim rsp3 As Recordset


        Dim nome2P As String
        nome2P = FrmPrincipale.directoryDB


        Dim criterio As String
        Dim valore As Integer


        If nome2P = "" Or nome2P = " " Or nome2P = Nothing Then
            ' errore
            ' errore
            MsgBox("percui l'operazione di " + _
            "Lettura nel Database Prolog è Fallita! " + "," + _
            "Vedi > ModProlog [MODULO] " + _
            "ROUTINE estrai_pred_complessi_verbo(,)")
            Exit Function
        End If


        'Verbo , TransIntras , PassAttiviviv , PersImp , Modo , Tempo , Persona , IncAusIrreg As String, significato As Integer, Optional more As Boolean


        Dim DBE As New dao.DBEngine
        db2p = DBE.OpenDatabase(nome2P)
        rs2p = db2p.OpenRecordset("stanze") ' cambiato 29-01-22


        If rs2p.NoMatch = True Then
            'errore
            MsgBox("per il Criterio di Ricerca inserito " + _
             "in Mod_pred_complessi_pronome [MODULO] PROLOG Il criterio e' Falso : " + criterio)
            Exit Function
        Else


            criterio = "select * where livello = 1 and numero_stanza =" + Str(stanza)


            rs2p.FindFirst(criterio)


            valore = Val(rs2p.Fields("tipo_stanza_graf").ToString)

rs2p.finffirst(criterio) mi da' come errore :

Operazione non supportata per questo tipo di oggetto.

ho provato anche criterio = "[livello] = 1 [numero_stanza] = " + str(stanza)

ma di da' lo stesso errore

[SirJo]

..... scusa la domanda stupida ma perchè ti ostini ancora ad usare DAO ???

comunque prova con

criterio = "[livello] = 1, [numero_stanza] = " + str(stanza)

oppure con

criterio = "[livello] = 1 and [numero_stanza] = " + str(stanza)