[vb6] Intercettare Errori Sql Con Vb6

[gioviskius]

Ciao a tutti, Vi ringrazio anticipatamente perche so che saprete aiutarmi.

Problema:

Vorrei intercettare gli errori database(sql server 2005) con vb6 dando un mio messaggio di errore e quindi fare in modo che non appaia quello standard di database tipo:

"Errore di run-time '3021'


come posso fare?

[gibra]

Inserisci un gestore di errori
Per inciso, io lo uso in 'quasi' tutte le routine.
E raccomando di farlo a chiunque.

Esempio:

Public Function EseguiQualcosa(parametri) As Long
    Dim ..... 'dichiarazione variabili

    On Error Goto ERR_HANDLER

     '  ... codice da eseguire...

    On Error Goto 0
    Exit Function

ERR_HANDLER:

    MsgBox Err.Number & vbCrlf & Err.Description & vbcrLf & "nella procedura EseguiQualcosa del modulo Form1"
    ' oppure testi il numero di errore
    Select Case Err.Number 
    Case -12345678
        MsgBox "Errore ...."
    Case -555
        MsgBox "Errore ...."
    End Select

End Function

[sspintux]

l'ado.connection espone una collezione errors su cui puoi iterare per ricavare i dettagli
degli errori occorsi;
...ovviamente devi intercettare l'errore con on error

[Grumpy]

VB6 non offre molte alternative. L'istruzione per intercettare gli errori è On Error GoTo <label>.
<label> è un'etichetta che in genere viene posta al temine della Sub o della Function e che segna l'inizio delle istruzioni da eseguire quando si verifica un errore.
In genere è buona norma scrivere una routine centralizzata per la gestione degli errori, nella quale è possibile personalizzare i messaggi in base al codice di errore e intraprendere la azioni appropriate.
Poiché è sempre utile sapere in quale parte del programma l'errore ha avuto origine, è consuetudine richiamare la suddetta routine generalizzata passandole un paramentro che in qualche modo identifichi appunto l'origine.

Esempio:

Private Sub Esempio
    Const COD_ERR = "Esempio"
    On Error Goto Errore
    ....
    ....
    Exit Sub

Errore:
    GestioneErrori COD_ERR
Exit Sub

Private Sub GestioneErrori (sCodErr As String)
' qui si hanno a disposizione le seguenti utili informazioni:
' Err.Number
' Err.Description
' sCodErr, che ci indica dove è avvenuto l'errore
....
....
End Sub

[gioviskius]

Grazie mille a tutti....davvero

appena avrò tempo proverò...

[gioviskius]

Ciao a tutti,

Ho provato e però non sono riuscito.

Premetto che non sono molto esperto.

In particolare non so dove mettere le parti di codice da voi proposte.
Non è che avreste un esempio completo???!!


Grazie

[Grumpy]

Originariamente inviato da gioviskius
In particolare non so dove mettere le parti di codice da voi proposte.

Immagino che il tuo programma sia composto, per la parte codice, da Sub e/o da Function.
Ogni Sub/Function in cui vuoi gestire le condizioni di errore, al limite tutte, deve essere strutturata come ti è stato indicato.
L'esempio di gibra gestisce l'errore al termine di ogni Sub/Function, quello che ti ho postato io rimanda ad una routine centralizzata che, come dice il suo nome, lo fa in un punto unico.

Però, la tua domanda (non so dove mettere le parti di codice), mi porta a pensare che dovresti prima acquisire delle nozioni di base, magari leggendo qualche buon libro.

[gioviskius]

grazie mille per l aiuto,

è vero ed hai perfettamente ragione..
lezioni di vb6 l ho fatte solo a scuola e dopo ho programmato in un altro linguaggio.

Però la domanda specifica era questa:

io eseguo la connessione al db;
faccio la select;
dopo di che faccio la cn.execute(sSql) --> eseguo la stringa sql
dopo questa quindi dovrei richiamare la routine da te suggerita??

grazie ancora

[gibra]

Originariamente inviato da gioviskius

Però la domanda specifica era questa:

io eseguo la connessione al db;
faccio la select;
dopo di che faccio la cn.execute(sSql) --> eseguo la stringa sql
dopo questa quindi dovrei richiamare la routine da te suggerita??

No, o per meglio dire, quella ci vuole per forza (come ti ho indicato anche io nel mio precedente post) ma per conoscere lo specifico errore restituito dall'oggetto ADODB.Connection che usi, nel tuo caso CN, devi fare come ti ha indicato sspintux
cioè analizzare la collection Errors dell'oggetto ADODB.Connection, ad esempio

Debug.Print cn.Errors(0)
Debug.Print cn.Errors(1)
Debug.Print cn.Errors(2)
' ecc.

Considera che non sai a priori QUANTI errori contiene la collection, quindi dovrai fare il classico ciclo...

Di norma si crea una routine apposita per elencare tutti gli errori e relative proprietà, di cui le due più interessanti sono Description e Number:

dim s As String
s = ""
s = "Errori della connessione: " & vbcrlf 
s = s & CN.Errors(0).Number & " " &CN.Errors(0).Description  & vbcrlf
s = s & CN.Errors(1).Number & " " &CN.Errors(1).Description  & vbcrlf 
Debug.Print s

[gioviskius]

scusami se sono rompi ba***, me ne rendo conto.
e anche che dovrei leggere qualche libro in merito..

In sostanza io vorrei gestire l'errore run-time '3021' del db, che si ha quando si tenta di fare una select con una where e quest ultima si riferisce ad un record che non esiste.

Per esempio:

la mia tabella utenti ha come valori all interno:
luca
Paolo

io faccio la select "WHERE Nome = Angelo" e logicamente il sql server 2005 si incavola.

So che quello che ti sto chiedendo è stupido ma mi servirebbe, dopo aver fatto questo il programma è terminato.