firsta eller sista posten i en recset?

[Badtant]

hej!

 

jag har en recset på att antal poster som jag listar.

när jag skriver ut dessa vill jag kolla om jag är på första eller sista posten. finns det något liknande If RecSet.First (och RecSet.Last) Then?

 

vore himla smidigt!

 

[Micke_skane]

Du kan ju alltid lägga in värdena i en array med GetRows() och sedan skapa två variabler innehållande värdet för första positionen resp sista positionen.

Sen kolla du med en if-sats i din for-loop för utskriften om det är någon av dem två positionerna.

(Sitter och jobbar, så någon tid för ett förslag finns inte just nu)

 

[Jonas__B]

hej!

 

jag har en recset på att antal poster som jag listar.

när jag skriver ut dessa vill jag kolla om jag är på första eller sista posten. finns det något liknande If RecSet.First (och RecSet.Last) Then?

 

För att fortsätta på mickes svar så menar han så här:

[color="#006400"]'Set Conn...[/color]
[color="#006400"]'Conn.open osv...[/color]
SQL=[GRÅ]"Select namn FROM tabell WHERE land = 'Sverige' "[/GRÅ] [color="#006400"]'exempel på SQL[/color]
[color="#0000ff"]Set[/color] RS=Conn.[color="#0000ff"]Execute[/color](SQL)
[color="#0000ff"]If[/color] RS.EOF [color="#0000ff"]Then[/color]
[b]Response[/b].write [GRÅ]"Inget hittades"[/GRÅ]
RS.Close

[color="#0000ff"]Else[/color]

fieldsData = RS.GetRows() [color="#006400"]' Hämtar resultaten och lägg i array[/color]
RS.Close

[color="#0000ff"]For[/color] i=0 [color="#0000ff"]To[/color] [color="#0000ff"]UBound[/color](fieldsData,2) [color="#006400"]'loopa genom raderna[/color]
[color="#006400"]'response.write fieldsData(0,i) [/color]
[color="#006400"]'Noll avser första kolumnfältet i raden , skulle fler kolumnfält hämtas (SELECT namn, stad FROM tabell) så blir då stad fieldsData(1,i)[/color]
[color="#006400"]'[GRÅ]"i"[/GRÅ] avser raden, [/color]

[color="#0000ff"]If[/color] i=0  [color="#0000ff"]Then[/color]
[b]Response[/b].write [GRÅ]"Detta är första raden i loopen<br/>"[/GRÅ]
[color="#0000ff"]ElseIf[/color] i=[color="#0000ff"]UBound[/color](fieldsData,2) [color="#0000ff"]Then[/color]
[b]Response[/b].Write [GRÅ]"Detta är sista raden("[/GRÅ]&i+1&[GRÅ]") i loopen<br/>"[/GRÅ]
[color="#0000ff"]Else[/color]
[b]Response[/b].write i+1 & [GRÅ]" "[/GRÅ] & fieldsData(0,i)& [GRÅ]"<br/>"[/GRÅ]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]


[color="#0000ff"]Next[/color]

[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

 

Hoppas du förstår hur du skall göra. Annars posta här så hjälper vi dig!

 

[inlägget ändrat 2006-11-17 04:50:54 av Jonas_Bo]