[vb] nn cpaisco perchè nn va

[Drocchia]

ciao ragazzi nn capisco perchè questo codice nn mi funziona, eppure in un altro progetto va bnesissimo...dove sbaglio??!!!

    'Ricerca un nome all'interno dell'agenda.
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Immettere la ditta da ricercare:", "Ricerca nell'agenda")
    If NomeDaCercare <> "" Then
        'Esegue la ricerca solo se è stato immesso un nome.
        dbClienti.Recordset.Index = "Ditta"
        dbClienti.Recordset.Seek "=", NomeDaCercare
        If dbClienti.Recordset.NoMatch Then
            dbClienti.Recordset.MoveFirst
            dbClienti.Refresh
            'Il nome cercato non è stato trovato.
            MsgBox "Nome non trovato.", vbInformation, Me.Caption
        End If
    End If

Ciao

[Mavel]

Ma che errore ti dà?

[drago]

prova cosi
If dbClienti.Recordset.NoMatch Then
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
else
dbClienti.Recordset.MoveFirst
dbClienti.Refresh

MsgBox "Nome trovato.", vbInformation, Me.Caption

End If

[darkblOOd]

forse ti sei scordato l'ELSE QUI

    'Ricerca un nome all'interno dell'agenda.
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Immettere la ditta da ricercare:", "Ricerca nell'agenda")
    If NomeDaCercare <> "" Then
        'Esegue la ricerca solo se è stato immesso un nome.
        dbClienti.Recordset.Index = "Ditta"
        dbClienti.Recordset.Seek "=", NomeDaCercare
        If dbClienti.Recordset.NoMatch Then
            dbClienti.Recordset.MoveFirst
            dbClienti.Refresh
            'Il nome cercato non è stato trovato.
            MsgBox "Nome non trovato.", vbInformation, Me.Caption
        ELSE
            HO TROVATO IL CODICE"
        End If
    End If

Ciao [/B][/QUOTE]

[Drocchia]

ecco che erore mi da....cmq else nn centra nn voglio che mi dica niente quando lo trovo!!!



faccio il debug ed ecco cosa mi evidenzia



NN capisco......ah dimeticavo forse so una cosa utile se entro nel hel mi dice questo....




mi sapete aiutare??!!

[darkblOOd]

con che tipo di recordset stai lavorando? A che libreria di oggetti fai riferimento?

Sei sicuro che il tuo oggetto recordset supporti il metodo seek o che si possa settare l'index con una stringa? (forse vuole il nome del campo passato in altra maniera)

[Drocchia]

io stò lavorando con il metodo data.....nn capisco dove sia il problema...adesso vado a mangiare domattina ci riguardo!!

Sono testardo io

[s|n3]

nel db esiste l'index "ditta" ????
poi prova a fare così
inserisci un data control nel progetto e avvialo. se dovesse funzionare puoi rimuovere il datacontrol. non so' perchè ma una volta un problema del genere l'ho risolto così. forse inserendo il DC si caricano alcune librerie......

[jhonny]

nel controllo data devi impostare il recordsettype su 0-Table

[Drocchia]

si si esiste