Newsgroup: it.comp.lang.visual-basic
Titolo: DBEngine.Rollback

Salve
Qualcuno puņ aiutarmi?
Ho questo problemino:
Come gestire l'errore 3034 generato come nell'esempio sotto descritto
quando c'č di mezzo una transazione
Ringrazio in anticipo e anche dopo.
gna:)
Private Sub cmdSalva_Click()
  On Error GoTo ErrSalva
 'Errore simulato per generare l'errore prima di iniziare una transazione
  txtQuantitą.Text = txtQuantitą.Text / 0
 'righe codice
 ...
 ...
 DBEngine.BeginTrans
 'aggiorno tabella A
 'aggiorno tabella B
   DBEngine.CommitTrans
 'fine
Exit Sub
ErrSalva:
  MsgBox "Errore n. " & err.Number & " " & err.Description
  DBEngine.Rollback
'segue un errore di runtime 3034 che chiude l'applicativo
End Sub

 Qualcuno puň aiutarmi?


 Così, anche se avviene l'errore citato, non succede niente.
No avevo già provato chiude il programma.
 gna :-(
Ciao

 ha scritto nel messaggio
news:88edl6$qct$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto x neofita

nel form, ho inserito 5 TextBox e una Label
a fatica, sono riuscito a passare, durante l' esecuzione, da una textbox
alla successiva col tasto INVIO.
ora, come fare per fare scrivere (sempre premendo INVIO)alla label :
text1 + " " + text2 + " " + text3 + " " + text4 + " " text5
per ora riesco a farla funzionare solo se vado sulla Label con il mouse.
grazie.grazie.grazie ecc...

 ha scritto nel messaggio
news:pIgLb.240182$e6.94...@twister2.libero.it...

Non ti parlo da esperto (che non sono), ma da attento lettore di questo ng
da cui ho tratto alcune regole fondamentali:
Intanto, è buona norma indicare sempre la proprietà dei controlli, anche se
è quella di default, quindi, nel tuo caso:
text1.Text, text2.Text, ecc...
Seconda cosa, il concatenamento delle stringhe è sempre consigliabile farlo
con il carattere & anziché con il +.
Quindi la tua riga di codice diventerà:
Label1.Caption = text1.Text & " " & text2.Text & " " & text3.Text _
    & " " & text4.Text & " " & text5.Text
Poi, per tornare al tuo problema, potresti agire in diversi modi, tra il
quale quello di aggiungere la riga
Label1.Caption = text1.Text & " " & text2.Text & " " & text3.Text _
    & " " & text4.Text & " " & text5.Text
all'evento Chage di ogni oggetto TextBox.
Questa è la via meno pulita, perché sarebbe meglio creare una Sub:
Private Sub AggiornaLabel()
    Label1.Caption = text1.Text & " " & text2.Text & " " & text3.Text _
        & " " & text4.Text & " " & text5.Text
End Sub
da richiamare sempre all'interno dell'evento Change di ogni TextBox.
Una seconda soluzione, può essere quella di impostare a True la proprietà
KeyPreview del Form e quindi richiamare l'aggiornamento della Label
all'interno della gestione dell'evento KeyUp del Form.
Spero di essere stato chiaro e comunque di esserti stato d'aiuto.
Esteban

se le 5 textbox fanno parte di un array.....un possibile soluzione potrebbe
essere questa:
Private Sub Text1_keypress (Index as Integer, KeyAscii as integer)
    if KeyAscii=13 and Index < 3 then
        Text1(1+Index).SetFocus
    elseif KeyAscii=13 an Index > 3 then
        label1.caption=Text1(0).Text & Text1(1).Text & Text1(2).Text &
Text1(3).Text & Text1(4).Text
    end if
End Sub