Har skapat en app i vb som skall kontrollera om db(access) har uppdaterats. Gör detta via jämförelse mellan det gamla värdet (lagrat i reg) och recordcount. Tanken är att applikationen skall jobba i bakgrunden och skicka ett msg lokalt vid ev uppdatering. Kör en recordset.update() med jämna mellanrum så borde recordcount ändra sig vid förändrat antal poster i databasen Kan man skapa triggrar i access ? Gag föreslår att du bör ha en datumkolumn i tabellen, LastModified. Som sätts när du lägger till poster eller uppdaterar poster. Andreas, tack för ditt svar. Återkommer med feedback. Ha det.* precis den typen av svar jag önskade*Åter ett databasproblem (recordcount)
Nu till problemet, vid uppstart kontrolleras allt ok men nästa kontroll fungerar inte om det blivit en uppdatering. Misstänker att recordcount inte blir uppdaterat med det allra senaste recordsetet. Hur göra???? Sv: Åter ett databasproblem (recordcount)
Sv: Åter ett databasproblem (recordcount)
Det vore väl det enklaste sättet i så fall.
/UffeSv: Åter ett databasproblem (recordcount)
Istället för att ha ett öppet recordset. Vilket minskar antalet simultana användare. KAn du ställa en fråga istället:
SELECT Max(LastModified) AS LastModified, Count(*) As RecordCount FROM TabellNamn
På Så sätt kan du se om någon post har förändrats, om någon infogats och om någon tagits bort.
Genom att spara värdena för LastModified och RecordCount kan du hämta senaste förändrade eller infogade poster med:
<code>
Public mLastModified As Date
Public mRecordCount As Long
Public Function GetNewRecords(Connection As ADODB.Connection) As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim NewLastModified As Date
Dim NewRecordCount As Long
Set rs = New ADODB.Recordset
rs.Open "SELECT Max(LastModified) AS LastModified, Count(*) As RecordCount FROM TabellNamn", Connection
NewLastModified = rs("LastModified")
NewRecordCount = rs("RecordCount")
rs.Close
If NewLastModified > mLastModified OR NewRecordCount <> mRecordCount Then
rs.Open "SELECT * FROM TabellNamn WHERE LastModified > #" & mLastModified & "#", Connection
Set GetNewRecords = rs
mLastModified = NewLastModified
mRecordCount = NewRecordCount
End If
End Function
</code>Sv: Åter ett databasproblem (recordcount)