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

[panfra2019]

ho il codice

   criterio1 = "[num_sequenziale] = " + Str(liv_o_MOD)
Dim dbs As DAO.Database
        Dim rst As DAO.Recordset


        'Get the database and Recordset
        dbs = DBE.OpenDatabase(nome1) 'CurrentDb
        rst = dbs.OpenRecordset("stanze")


        'Search for the first matching record   
        rst.FindFirst(criterio1)

mi da errore in rst.findfirst come
oggetto non supportato

[optime]

fatti stampare criterio1 e controllalo

[alka]

Suggerirei in futuro anche un titolo migliore di "DAO"... questa volta ho sistemato io.

[panfra2019]

Si lo stampata e mi da'
[livello] = 1
grazie

[optime]

se scrivi direttamente

rst.FindFirst "[livello]=1"

cosa succede?

nel caso fa' riferimento alla documentazione https://docs.microsoft.com/en-us/off...rst-method-dao

[SirJo]

Si lo stampata e mi da'
[livello] = 1
grazie

Ma scusa, se la riga è
criterio1 = "[num_sequenziale] = " + Str(liv_o_MOD)
come fa criterio1 essere uguale a "[livello] = 1" ???

[panfra2019]

infatti ho sbagliato con la riga di comando provo facendo come mi ha detto optime:
Mi ridà
operazione non supportata per questo tipo di oggetto.

e mi manda alla pagina di errore

Troubleshooting Exceptions: System.Runtime.InteropServices.COMException

che si puo' trovare a:

Troubleshooting Exceptions: System.Runtime.InteropServices.COMException | Microsoft Docs

[optime]

puoi per cortesia postare il codice che stai realmente usando ? grazie

[panfra2019]

 If no_inattivi = False Then
                criterio1 = "[livello] = " & Str(liv_o_MOD)
            Else
                criterio1 = "[livello] = " + Str(liv_o_MOD) + _
                " and [attiva] = true"
            End If


 Dim dbs As DAO.Database
        Dim rst As DAO.Recordset


        'Get the database and Recordset
        dbs = DBE.OpenDatabase(nome1) 'CurrentDb
        rst = dbs.OpenRecordset("stanze")


        'Search for the first matching record   
        rst.FindFirst(criterio)


        'Check the result
        If rst.NoMatch Then
            MsgBox("Record non trovato.")
            ' da cambiare
        End If


        For Each fld In rs1.Fields


            Dim st As Integer = Val(fld.value(numero_stanza))

[optime]

ah, siamo all'aguzzate la vista: valorizzi criterio1, ma poi usi...