ADDITION TO RECORDSET<ERRORS

[Vbbeginner07]

Private Sub cmdAdd_Click()
txtid.Enabled = True
If txtid.Text = " " Then
MsgBox "Enter the id,Please!!!", vbOKOnly, "PAYROLL"
txtid.SetFocus
With txtid
.SelStart = 0
'.SelLength = Len(txtid.Text)
.SetFocus
End With
Exit Sub
ElseIf txtname.Text = " " Then
 MsgBox "Enter the name,Please!!!", vbOKOnly, "PAYROLL"
 'txtname.SetFocus
Exit Sub
 
 With txtname
   .SelStart = 0
'  .SelLength = Len(txtname.Text)
   .SetFocus
 
End With
 'End If
ElseIf txtwhr.Text = " " Then
MsgBox "Enter  the working hours,Please!!!", vbOKOnly, "PAYROLL"
txtwhr.SetFocus
Exit Sub
With txtwhr
  .SelStart = 0
'.SelLength = Len(txtwhr.Text)
  .SetFocus
End With
ElseIf Form1.txtrate.Text = " " Then
MsgBox "Enter  the rate,Please!!!", vbOKOnly, "PAYROLL"
txtrate.SetFocus
Exit Sub
With txtrate
  .SelStart = 0
  .SetFocus
End With
ElseIf txtorate.Text = " " Then
MsgBox "Enter the Overtime Rate,Please!!!", vbOKOnly, "PAYROLL"
txtorate.SetFocus
 Exit Sub
With txtorate
 .SelStart = 0
  .SetFocus
  End With
  Else
rs.Open "select * from empdetail Where ID='" & txtid.Text & "'", conn, adOpenStatic, adLockOptimistic
If rs.EOF Then
conn.Execute "insert into empdetail(id,name,whours,rate,otrate) values ('" & txtid & "','" & txtname & "','" & txtwhr & "','" & txtrate & "','" & txtorate & "')"
MsgBox "INSERTED NEW RECORDS", vbOKOnly, "ADDING NEW RECORDS"
Else
 
MsgBox "Duplicate Entry"
  End If
 
rs.Close
Set rs = Nothing
ListView1.ListItems.Clear
addcol
Form1.txtid.Text = ""
Form1.txtname.Text = ""
Form1.txtwhr.Text = ""
Form1.txtrate.Text = ""
Form1.txtorate.Text = ""
End If
 
End Sub
Private Sub cmdBack_Click()
Form1.txtid.Text = ""
Form1.txtname.Text = ""
Form1.txtwhr.Text = ""
Form1.txtrate.Text = ""
Form1.txtorate.Text = ""
Form1.Hide
MDIForm1.Show
End Sub

This above code is for adding four fields to databse where id the primary kiey.Please go through because,its works for once,ie when one data gets inserted,u dont have any pblm.But whenthe computation is done for the second time without closing the window,an error occurs!!!
Please Go through...........!!!!!~
Where I HAve go wrong????

[Dököll]

code:vb

This above code is for adding four fields to databse where id the primary kiey.Please go through because,its works for once,ie when one data gets inserted,u dont have any pblm.But whenthe computation is done for the second time without closing the window,an error occurs!!!
Please Go through...........!!!!!~
Where I HAve go wrong????

Hello, Vbbeginner07!

What are you hoping the above code does?

I am just trying to get a handle on what you are asking for. Can you go into it a little more?

Dököll

[Vbbeginner07]

Hello, Vbbeginner07!
What are you hoping the above code does?
I am just trying to get a handle on what you are asking for. Can you go into it a little more?
Dököll

Hi DoKoll,
the above code is for ADD ing datas to a database,the form actually contains five fileds
id ,which is the primary key
name(of employee)
working hours(emp)
rate(per hours)
overtime rate(if he does,per hours)
The code works for the very first time,ie when one data gets inserted into the database,if we click ADD button(command button)it gives errors,where i have given specific constraints for each field,why is it so...???
Where i have gone wrong???
Ant More explanation???

Nick

[debasisdas]

please try to use this

conn.BeginTrans
conn.Execute "insert into empdetail(id,name,whours,rate,otrate) values ('" & txtid & "','" & txtname & "','" & txtwhr & "','" & txtrate & "','" & txtorate & "')"
conn.commmittrans
 

that might help you.