Hejsan!

Kan man begränsa antalet poster i ett fält i en tabell i access?

ex. jag vill bara tillåta 5 poster i fältet senaste i tabellen TBL_Nyinkommet, post nr 6 ska ersätta post 1 osv.

//Tomas

Hej
Ja det skall inte vara något problem.Om du visar en kodsnutt
hur du läser in till Fältet så fixar Vi det.Hur många fält har
du i databasen.Om du bara har ett så blir det väldigt enkelt.

mvh
Sven

Hej

Jag har två fält, ett fält med ID (datatypen Räknare, långt heltal, indexerat, dubbleter ej tillåtna) och ett fält som innehåller filnamnet (datatypen text ).

Läser in det så här:
<code>
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Path = Server.MapPath("../../data/arkivet.mdb")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
Set RS = Server.CreateObject("ADODB.Recordset")



SQL = "SELECT * FROM TBL_Nyinkommet"
RS.Open SQL, Connect, 3, 3


RS("nyInkomSenaste") = Request.Form("filnamn") 'filnamn på en bildfil

RS.Update


RS.Close
Connect.Close

Set RS=Nothing
Set Connect=Nothing

%>
</code>

Hej
Ok skall kolla om jag fattat rätt. Är inte så hemma på ADO tekniken
Kör enbart med DAO men tekniken är ju densamma.

SQL = "SELECT * FROM TBL_Nyinkommet"
RS.Open SQL, Connect, 3, 3


Är det detta RS som bara får växa till 5 poster ?

undrar
Sven

Bör vara:
Select Top 5 * FROM DinTabel ORDER BY DittFält

osv.....

>>> Är det detta RS som bara får växa till 5 poster ?

Japp

Om du har ett datumfält i databasen med namnet Datum kanske detta kan fungera, jag har inte testat så något litet fel kan finnas med.

<code>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Path = Server.MapPath("../../data/arkivet.mdb")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
Set RS = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM TBL_Nyinkommet ORDER BY Datum"
RS.Open SQL, Connect, 3, 3

If RS.RecordCount < 5 Then
RS.AddNew
End If

RS("nyInkomSenaste") = Request.Form("filnamn") 'filnamn på en bildfil
RS("Datum") = Now
RS.Update

RS.Close
Connect.Close

Set RS=Nothing
Set Connect=Nothing
%>
</code>

/Johan