goto [VB]

[magnus]

Ho questo codice che mi aggiorna un DB:


Private Sub Command1_Click()
On Error GoTo errore
Set cnado = New ADODB.Connection
cnado.Open = "file name=c:\datiBF.udl"

query = "ALTER TABLE `dettaglidocfor` ADD `test` TEXT"
cnado.Execute = query

query = "update dettaglidoc set sconto='0' where sconto is null"
cnado.Execute = query

cnado.Close
Exit Sub
errore:
MsgBox Err.Description
End Sub

Però vorrei che se la prima query non riesce, il programma deve proseguire con la seconda...

Come fare?

[ddies]

on error resume next

[magnus]

grazie funziona!

Però come potrei visualizzare un messaggio di query non riuscita nel caso una delle due non va in porto?

Ovviamente modificando così il codice non funziona!

On Error Resume Next
Set cnado = New ADODB.Connection
cnado.Open = "file name=c:\datiBF.udl"

query = "ALTER TABLE `dettaglidocfor` ADD `sconto` TEXT"
cnado.Execute = query
msgbox "Query ok"

query = "update dettaglidoc set sconto='0' where sconto is null"
cnado.Execute = query
msgbox "Query ok"

cnado.Close

Si può fare un if sull'errore?

[Johnny_Depp]

On Error Resume Next

'prima query

On Error GoTo Errore

'seconda query

Errore:

MsgBox Err.Description

[Johnny_Depp]

forse questo non è il modo più elegante ma dovrebbe funzionare:

Private Sub QUERY()

On Error GoTo query1ERR
'prima query

Query2:
On Error GoTo query2ERR
'seconda query

Continue:
......
......
......

GoTo skip_errori

query1ERR:
MsgBox "Errore nella query 1 :" & Err.Description
GoTo Query2

query2ERR:
MsgBox "Errore nella query 2 :" & Err.Description
GoTo Continue

Skip_errori:
...........
...........
...........
End Sub