Error handling/trapping in vb using ibm database

[skeptic_rob]

---

Guys, do you have any idea about error trapping in save and handling using the ibm database program .im using the vb to manipulate ibm database program...

[skeptic_rob]

defaultButtons
On Error GoTo errSave
'On Error Resume Next
Dim sqlstr As String
Dim rs As ADODB.Recordset

If NewEdit = "" Then
rs.Open " select * from employee where empno ='" & txtEmpNum & "'"



'If txtEmpNum.Text = " " Then
'MsgBox " DON'T LEAVE IT BLANK"
'
If rs.EOF Then
'Exit Sub
If NewEdit = 1 Then
db2Conn.BeginTrans
db2Conn.Execute "INSERT INTO Employee(EMPNO,FIRSTNME,MIDINIT,LASTNAME,WORKDEPT, PHONENO,HIREDATE,JOB,EDLEVEL,***,BIRTHDATE,SALARY, BONUS,COMM) VALUES ('" & txtEmpNum.Text & "','" & txtFirstNme.Text & "','" & txtMidinit.Text & "','" & txtLastName.Text & "','" & txtWorkdept.Text & "','" & txtPHONENO.Text & "', '" & DTHIREDATE.Value & "','" & txtJOB.Text & "'," & Val(txtEdlevel.Text) & ",'" & TXTSEX.Text & "','" & BDATE.Value & "'," & Val(txtSalary.Text) & ", " & Val(txtBONUS.Text) & "," & Val(txtCOMM.Text) & ")"
MsgBox "RECORD SUCCESSFULLY SAVED"
Exit Sub
Else

MsgBox "Duplicate Stock Code. Please review your entries!!", vbCritical, Me.Caption
End If
Else
db2Conn.Execute "UPDATE employee set firstnme = '" & Left(txtFirstNme.Text, 12) & "',midinit = '" & Left(txtMidinit.Text, 1) & "',lastname = '" & Left(txtLastName.Text, 15) & "', workdept = '" & Left(txtWorkdept.Text, 3) & "',Phoneno = '" & Left(txtPHONENO.Text, 4) & "',HIREDATE = '" & DTHIREDATE.Value & "', JOB = '" & Left(txtJOB.Text, & "',EDLEVEL = " & Val(txtEdlevel.Text) & " , *** = '" & TXTSEX.Text & "' , BIRTHDATE= '" & BDATE.Value & "', SALARY = " & Val(txtSalary.Text) & ", BONUS = " & Val(txtBONUS.Text) & ", COMM = " & Val(txtCOMM.Text) & " where empno = '" & txtEmpNum.Text & "'"
MsgBox "SUCCESSFULLY UPDATED"
Exit Sub
End If
End If


db2Conn.CommitTrans
clearTxt
errExit:
Exit Sub
errSave:

db2Conn.RollbackTrans
MsgBox Err.Description, vbCritical, "ERROR:" & Me.Caption
Resume errExit
cmdSave.Enabled = True
cmdNew.Enabled = False
cmdDelete.Enabled = False
cmdEdit.Enabled = False

[rhex_tendo]

defaultButtons
On Error GoTo errSave
Dim sqlstr As String
Dim rs As ADODB.Recordset

If len(txtEmpNum.Text)=0 Then
MsgBox " DON'T LEAVE IT BLANK"
Exit Sub
End If

If NewEdit = "" Then
rs.Open " select * from employee where empno ='" & txtEmpNum & "'"

If rs.EOF Then
If NewEdit = 1 Then
db2Conn.BeginTrans
db2Conn.Execute "INSERT INTO Employee(EMPNO,FIRSTNME,MIDINIT,LASTNAME,WORKDEPT, PHONENO,HIREDATE,JOB,EDLEVEL,***,BIRTHDATE,SALARY, BONUS,COMM) VALUES ('" & txtEmpNum.Text & "','" & txtFirstNme.Text & "','" & txtMidinit.Text & "','" & txtLastName.Text & "','" & txtWorkdept.Text & "','" & txtPHONENO.Text & "', '" & DTHIREDATE.Value & "','" & txtJOB.Text & "'," & Val(txtEdlevel.Text) & ",'" & TXTSEX.Text & "','" & BDATE.Value & "'," & Val(txtSalary.Text) & ", " & Val(txtBONUS.Text) & "," & Val(txtCOMM.Text) & ")"
MsgBox "RECORD SUCCESSFULLY SAVED"
Else

MsgBox "Duplicate Stock Code. Please review your entries!!", vbCritical, Me.Caption
End If
Else
db2Conn.Execute "UPDATE employee set firstnme = '" & Left(txtFirstNme.Text, 12) & "',midinit = '" & Left(txtMidinit.Text, 1) & "',lastname = '" & Left(txtLastName.Text, 15) & "', workdept = '" & Left(txtWorkdept.Text, 3) & "',Phoneno = '" & Left(txtPHONENO.Text, 4) & "',HIREDATE = '" & DTHIREDATE.Value & "', JOB = '" & Left(txtJOB.Text, & "',EDLEVEL = " & Val(txtEdlevel.Text) & " , *** = '" & TXTSEX.Text & "' , BIRTHDATE= '" & BDATE.Value & "', SALARY = " & Val(txtSalary.Text) & ", BONUS = " & Val(txtBONUS.Text) & ", COMM = " & Val(txtCOMM.Text) & " where empno = '" & txtEmpNum.Text & "'"
MsgBox "SUCCESSFULLY UPDATED"

End If
End If

db2Conn.CommitTrans

clearTxt

errExit:
rs.close
Set rs=nothing
Exit Sub
errSave:

db2Conn.RollbackTrans
MsgBox Err.Description, vbCritical, "ERROR:" & Me.Caption
Resume errExit
cmdSave.Enabled = True
cmdNew.Enabled = False
cmdDelete.Enabled = False
cmdEdit.Enabled = False

''----------------------------------------------------
''just modify your code..
''remove exit sub after the 2 messagebox so that
db2Conn.CommitTrans
ClearTxt
''will be executed by the program..

''try to check your Insert Into and Update statement..

''happy coding..

[istoryansucks]

defaultButtons
On Error GoTo errSave
Dim sqlstr As String
Dim rs As ADODB.Recordset

If len(txtEmpNum.Text)=0 Then
MsgBox " DON'T LEAVE IT BLANK"
Exit Sub
End If

If NewEdit = "" Then
rs.Open " select * from employee where empno ='" & txtEmpNum & "'"

If rs.EOF Then
If NewEdit = 1 Then
db2Conn.BeginTrans
db2Conn.Execute "INSERT INTO Employee(EMPNO,FIRSTNME,MIDINIT,LASTNAME,WORKDEPT, PHONENO,HIREDATE,JOB,EDLEVEL,***,BIRTHDATE,SALARY, BONUS,COMM) VALUES ('" & txtEmpNum.Text & "','" & txtFirstNme.Text & "','" & txtMidinit.Text & "','" & txtLastName.Text & "','" & txtWorkdept.Text & "','" & txtPHONENO.Text & "', '" & DTHIREDATE.Value & "','" & txtJOB.Text & "'," & Val(txtEdlevel.Text) & ",'" & TXTSEX.Text & "','" & BDATE.Value & "'," & Val(txtSalary.Text) & ", " & Val(txtBONUS.Text) & "," & Val(txtCOMM.Text) & ")"
MsgBox "RECORD SUCCESSFULLY SAVED"
Else

MsgBox "Duplicate Stock Code. Please review your entries!!", vbCritical, Me.Caption
End If
Else
db2Conn.Execute "UPDATE employee set firstnme = '" & Left(txtFirstNme.Text, 12) & "',midinit = '" & Left(txtMidinit.Text, 1) & "',lastname = '" & Left(txtLastName.Text, 15) & "', workdept = '" & Left(txtWorkdept.Text, 3) & "',Phoneno = '" & Left(txtPHONENO.Text, 4) & "',HIREDATE = '" & DTHIREDATE.Value & "', JOB = '" & Left(txtJOB.Text, & "',EDLEVEL = " & Val(txtEdlevel.Text) & " , *** = '" & TXTSEX.Text & "' , BIRTHDATE= '" & BDATE.Value & "', SALARY = " & Val(txtSalary.Text) & ", BONUS = " & Val(txtBONUS.Text) & ", COMM = " & Val(txtCOMM.Text) & " where empno = '" & txtEmpNum.Text & "'"
MsgBox "SUCCESSFULLY UPDATED"

End If
End If

db2Conn.CommitTrans

clearTxt

errExit:
rs.close
Set rs=nothing
Exit Sub
errSave:

db2Conn.RollbackTrans
MsgBox Err.Description, vbCritical, "ERROR:" & Me.Caption
Resume errExit
cmdSave.Enabled = True
cmdNew.Enabled = False
cmdDelete.Enabled = False
cmdEdit.Enabled = False

''----------------------------------------------------
''just modify your code..
''remove exit sub after the 2 messagebox so that
db2Conn.CommitTrans
ClearTxt
''will be executed by the program..

''try to check your Insert Into and Update statement..

''happy coding..

na sulayan na ni nimu bro?

[istoryansucks]

no active g hapon transaction bro...then ika human object not declared daw?

[rhex_tendo]

no active g hapon transaction bro...then ika human object not declared daw?

'ang db2Conn.BeginTrans ibalhin igbaw sa If NewEdit = "" Then


'asa nga line of code mg.object not declared??

[istoryansucks]

'ang db2Conn.BeginTrans ibalhin igbaw sa If NewEdit = "" Then


'asa nga line of code mg.object not declared??

i tried bai mao lang g hapon e teamviewer na lang kaha nako bai?just for u to see asa ko dapita na sayop then u could also give me an advice sad

[rhex_tendo]

'pm me bro