Please Check the code

[Vbbeginner07]

THE FOLLOWING CODE INSERTS A PARTICULAR DATA INTO THE recordset WHICH IS THE FIRST FORM!!!

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
 

THE SECONF FORM CONTAINS A LISTVIEW ,WHICH HAS TO DISPLAY THE RECORDS saved through FORM 1

rs.Open "select distinct empdetail.name,saldetail1.id from empdetail,saldetail1 where saldetail1.id = empdetail.id", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
rs.MoveFirst
 Do While Not rs.EOF
  With ListView1
     Set lvitem = ListView1.ListItems.Add(, , rs!id)
     lvitem.SubItems(1) = rs!Name
     rs.MoveNext
     End With
    Loop
End If
rs.Close
Set rs = Nothing
ListView1.Refresh
ListView2.Refresh
 

BUT THAT IS NOT WORKING!~!!!,
the code displays only the first inserted record in ht listview,but htt nexrt added records is not dispalying
PLEASE SUGGEST<THNAKS IN ADVANCE!!!

[debasisdas]

try using this

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

[Vbbeginner07]

try using this

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

Debasis not working.........
Please go through my code n please suggest......
Nick

[Vbbeginner07]

Debasis,its not working.........
Please go through my code n please suggest......
Nick

Debasis,its not working.........
Please go through my code n please suggest......
it allows only the first records being added,if we checks form2 that will be displayed,but if we add any records second time it is not displayed

[debasisdas]

If both of your forms are opened at the same time you need to fresh the recordset in form2 after adding the recods in form1.

[Vbbeginner07]

If both of your forms are opened at the same time you need to fresh the recordset in form2 after adding the recods in form1.

not two recordsets are opened at the sametime,n tell me how a sql recoredset be refreshed???tell me the code to refersh
NICK

[mafaisal]

Hello
try this

if Rs.state =1 then rs.close
 

not two recordsets are opened at the sametime,n tell me how a sql recoredset be refreshed???tell me the code to refersh
NICK

[debasisdas]

try to use this

rs.Requery
 

[QVeen72]

Hi,

After looking at your Code, I feel that, You Query for EmpID, If No Record is found, then You add /Insert One Record. So at any given time, Only one Related EmpID is there in the Detail Table. So the ListView Shows only one Record.. Any kind of Re-Freshing the RecordSet will fetch you only One Record.
You can Cross-Check by Actual Querying the data in the Table


Regards
Veena

[Vbbeginner07]

try to use this

rs.Requery
 

rs.requery is not working i have tried this,but i dont think there's a option for refreshing in sql...if any please suggest
NICK

[Vbbeginner07]

Hi,
After looking at your Code, I feel that, You Query for EmpID, If No Record is found, then You add /Insert One Record. So at any given time, Only one Related EmpID is there in the Detail Table. So the ListView Shows only one Record.. Any kind of Re-Freshing the RecordSet will fetch you only One Record.
You can Cross-Check by Actual Querying the data in the Table
Regards
Veena

Veena,i couldnt understand,what u have pointed out and the method suggested"
You can Cross-Check by Actual Querying the data in the Table "
Please explain and the code for adding records are:

rs.Open "select * from empdetail Where ID='" & txtid.Text & "'", conn, adOpenStatic, adLockOptimistic
If rs.EOF Then
conn.BeginTrans
conn.Execute "insert into empdetail(id,name,whours,rate,otrate) values ('" & txtid & "','" & txtname & "','" & txtwhr & "','" & txtrate & "','" & txtorate & "')"
conn.CommitTrans
MsgBox "INSERTED NEW RECORDS", vbOKOnly, "ADDING NEW RECORDS"
Else
'ID Found In DB (Duplicate)
MsgBox "Duplicate Entry"
End If
 

Nick

[QVeen72]

Hi,

If you are using Access, Open the Access, and Find how many records are thre in EmpDetail and SalDetail Tables, and ow many of them Match (having same EmpID)

Regards
Veena

[Vbbeginner07]

Hi,
if you are using Access, Open the Access, and Find how many records are thre in EmpDetail and SalDetail Tables, and ow many of them Match (having same EmpID)
Regards
Veena

Ok,but im using sql server...the same can be done here too???

NICK

[QVeen72]

Hi,

If you are using SQL Server, Query the table Data in ISQL/W Or Enterprise Manager's Query Tool..

REgards
Veena