Hämta data från access databas

När du hämtar data från en access databas så loopar du ut informationen eller så använder du getrows. När du ska hämta en medlems lista med hundratals rader så rekommenderar jag getrows men om du bara ska hämta endast 10-20 rader med information så kan du lika gärna loopa ut det.

Jag ska visa hur du använder getrows samt loopar.

Getrows:

<%

Call dbo(Connect)

 SQL = ""

 SQL = "Select nyhet_id,nyhet_rubrik,nyhet_text From tblNyheter Order by nyhet_id Desc"

 Set RS = Connect.Execute(SQL)

  arrRader = RS.GetRows

 RS.Close() : Set RS = Nothing

Call dbc(Connect)

%>

Så nu har vi hämtat alla rader, nu ska vi skriva ut dem också.

Obs. Om du har läst artikeln "Öppna och stäng databas" så vet du vad "Call dbo(Connect)" och "Call dbc(Connect)" är.

<%

For i = 0 To UBound(arrRader,2)

 With Response

 .Write "Rubrik:"& arrRader(1,i) & vbCrlf

 .Write "Nyhet:"& vbCrlf

 .Write arrRader(2,i)

 End With

Next

%>

Mer kod än så är det inte och svårt var det inte heller.

Loopar:

<%

Call dbo(Connect)

 SQL = ""

 SQL = "Select nyhet_id,nyhet_rubrik,nyhet_text From tblNyheter Order by nyhet_id Desc"

 Set RS = Connect.Execute(SQL)



 Do Until RS.Eof



 With Response

 .Write "Rubrik:"& RS(1) & vbCrlf

 .Write "Nyhet:"& vbCrlf

 .Write RS(2)

 End With



 RS.MoveNext

 Loop



 RS.Close() : Set RS = Nothing

Call dbc(Connect)

%>

Som ni ser så måste man ha databasen öppnad under tiden man loopar ut informationen, det behöver man inte om man använder getrows utan då tar man ut alla rader och lägger dem i en array som man sedan använder för att visa informationen.

Har ni några frågor eller tycker ni att jag har glömt något så är det bara att skicka ett pm.

Detta tips skapades 2007-08-13 10:01:36 av Gimbergsson. Det har lästs 426 gånger. ||

Kommentarer

Ingen har kommenterat denna artikel än.