Pagina 1 di 4 1 2 3 ... ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 34
  1. #1

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

    ho il codice

    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

  2. #2
    fatti stampare criterio1 e controllalo
    ARTRIPE

  3. #3
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,044
    Suggerirei in futuro anche un titolo migliore di "DAO"... questa volta ho sistemato io.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

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

  5. #5
    se scrivi direttamente

    codice:
    rst.FindFirst "[livello]=1"
    cosa succede?

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

  6. #6
    Utente di HTML.it
    Registrato dal
    Mar 2014
    residenza
    Vicenza
    Messaggi
    251
    Quote Originariamente inviata da panfra2019 Visualizza il messaggio
    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" ???

  7. #7
    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

  8. #8
    puoi per cortesia postare il codice che stai realmente usando ? grazie
    ARTRIPE

  9. #9
    codice:
     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))

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

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2022 vBulletin Solutions, Inc. All rights reserved.