The code displays only the first record.but???

[Vbbeginner07]

The follwing code is of a listview where i have to a to display the id and the name from a particular table ,empdetail.

This is in the second form,dispalying id and name

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "NAME"
ListView1.ColumnHeaders.Add , , "ID"
ListView1.Refresh
rs.Open "select * from empdetail", conn, adOpenStatic, adLockOptimistic
While Not rs.EOF
ListView1.Refresh
With ListView1
Set lvitem = ListView1.ListItems.Add(, , rs!Name)
lvitem.SubItems(1) = rs!id
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
LVFullRowSelect ListView1
Form2.txtgros.Enabled = False
Form2.txtnsal.Enabled = False
Form2.txtoh.Enabled = False
Form2.txtotamt.Enabled = False
Form2.txtotrt.Enabled = False
Form2.txtrate.Enabled = False
Form2.txttr.Enabled = False
dtpay.Value = Date
End Sub

The following is in first form,adding new record to the database

Private Sub cmdAdd_Click()
txtid.Enabled = True
If Form1.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
'End If
ElseIf txtrate.Text = " " Then
MsgBox "Enter the rate,Please!!!", vbOKOnly, "PAYROLL"
txtrate.SetFocus
Exit Sub
With txtrate
.SelStart = 0
'.SelLength = Len(txtrate.Text)
.SetFocus
End With
''End If
ElseIf txtorate.Text = " " Then
MsgBox "Enter the Overtime Rate,Please!!!", vbOKOnly, "PAYROLL"
'txtorate.SetFocus
'txtname.SetFocus
Exit Sub
With txtorate
.SelStart = 0
'.SelLength = Len(txtname.Text)
.SetFocus
End With
'End If
'End If
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
'ID Found In DB (Duplicate)
MsgBox "Duplicate Entry"
End If
'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

Please check the code!!!

[debasisdas]

Please find a related article here .