Just nu i M3-nätverket
Jump to content

firsta eller sista posten i en recset?


Badtant

Recommended Posts

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!

 

Link to comment
Share on other sites

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)

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...