Visa alla poster — webForum

TrumpfMedlem sedan feb. 2004213 inlägg

Frågan25 okt. 2006 21:14#1

Hej,

Tänkte få ut alla poster i fält från en accessbas.
Och det är för att jag vill på ett enkelt sätt ändra ev. stavfel osv.

Har följande kod:
<%
Set connect = Server.CreateObject("ADODB.Connection")
connect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Domains\rilton.se\db\colombi.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tabell WHERE ID=" & Session("ID")
RecSet.Open SQL, Connect, 1, 3
%>

Med denna så kan jag gå in på varje ID och redigera samt spara.
Sen kör jag Do_change_settings.asp

Men om jag vill nu göra som så. Att han ska visa alla poster rakt av. Alltså alla ID från databasen. Och samtigt ha möjlighet att ändra samt trycka på spara.
Går igenom Do_change_settings.asp men hur gör jag då?

oskarsMedlem sedan nov. 20051 317 inlägg

26 okt. 2006 04:30#2

<%
  Set connect = Server.CreateObject("ADODB.Connection")
  connect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Domains\rilton.se\db\colombi.mdb"
  
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  SQL = "SELECT * FROM tabell"
  RecSet.Open SQL, Connect, 1, 3

  ' Denna raden säger till att vi ska göra något tills sista posten är visad.
  Do Until RecSet.EOF
%>
  Här skriver du ut all info du vill ha från varje post...
<%=RecSet("Namn")%> osv osv...
  Lägg även med en länk liknande denna för redigering av posten:
  <a href="din_redigeringssida.asp?ID=<%=RecSet("ID")%>">Redigera!</a>
  Då skickas användaren till vald sida och sidan får reda på vilket ID i databasen som ska redigeras!
<%

  ' Denna raden byter till nästa post i databasen
  RecSet.MoveNext
  ' Det vi vill göra tills sista posten är visad är ju att loopa:
  Loop

%>

Var det så du tänkte?

Alternativ kan du ju göra så här om du vill ha redigeringsformuläret på samma sida liksom....

<%
  Set connect = Server.CreateObject("ADODB.Connection")
  connect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Domains\rilton.se\db\colombi.mdb"
  
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  SQL = "SELECT * FROM tabell"
  RecSet.Open SQL, Connect, 1, 3

  ' Denna raden säger till att vi ska göra något tills sista posten är visad.
  Do Until RecSet.EOF
%>

    <form name="spara" method="post" action="dinfil.asp?do=spara&ID=<%=RecSet("ID")%>">
        <input name="namn" type="text" value="<%=RecSet("Namn")%>
        <input type="submit" value="Spara" />
    </form>

<%

  ' Denna raden byter till nästa post i databasen
  RecSet.MoveNext
  ' Det vi vill göra tills sista posten är visad är ju att loopa:
  Loop

%>