Sam
|
Posted: 05/27/2004, 10:23 AM |
|
Hello
I am trying to add a record in a table through the click event; however, it only adds it once. When I go and try to add another record; its dosent' add it..
Private Sub cmdModify_Click()
dim cn as new adodb.connetion
Dim strQry As String
Dim rsEmployeelog As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\spatel\My Documents\admissions_b.bak;Jet OLEDB:Database Password=MyDbPassword;"
strQry = "Select * from Emp_Log"
rsEmployeelog.Open strQry, cn, adOpenDynamic, adLockOptimistic
If rsEmployeelog.EOF Then
rsEmployeelog.Close
strQry = "Select * from Emp_Log"
rsEmployeelog.Open strQry, cn, adOpenDynamic, adLockOptimistic
rsEmployeelog.AddNew
rsEmployeelog("Emp_ID").Value = strUserName
rsEmployeelog("SSN").Value = Emp_SSN
rsEmployeelog("Date").Value = Date
rsEmployeelog("PIns_Name").Value = PIns
rsEmployeelog("PIns_Ver_Date").Value = PVar_Date
rsEmployeelog.Update
rsEmployeelog.Close
strQry = "Select * from Emp_Log"
rsEmployeelog.Open strQry, cn, adOpenDynamic, adLockOptimistic
rsEmployeelog.MoveFirst
rsEmployeelog.Close
cn.Close
End If
end sub
|
|
|
|