spatel
Posts: 10
|
| Posted: 06/01/2004, 10:34 AM |
|
Hello!!
I am trying to create a log table which keeps tracks of all the modifications; however, its only adding one record to a table when I hit Modifty. When I try to modify other record and hit modify; it doesnt add it to the table..
Table: Emp_Log
Fields: Log_ID (PK), Emp_ID, SSN, Date, PIns_Name, PIns_Ver_Date
Private Sub Modify_Click()
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.MoveLast
rsEmployeelog.Close
cn.Close
End If
End Sub
|
 |
 |
Stefan Hogedal
|
| Posted: 07/04/2004, 1:56 PM |
|
Is Log_ID a counter?
"spatel" <spatel@forum.codecharge> skrev i meddelandet
news:1540bcbe3cb0364@news.codecharge.com...
> Hello!!
>
> I am trying to create a log table which keeps tracks of all the
modifications;
> however, its only adding one record to a table when I hit Modifty. When I
try
> to modify other record and hit modify; it doesnt add it to the table..
>
>
> Table: Emp_Log
> Fields: Log_ID (PK), Emp_ID, SSN, Date, PIns_Name, PIns_Ver_Date
>
> Private Sub Modify_Click()
>
> 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.MoveLast
> rsEmployeelog.Close
> cn.Close
>
> End If
>
>
>
> End Sub
>
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.codecharge.com/
>
|
|
|
|
|
