"HEnrik Johansen" <henrik-johansne@vip.cybercity.dk> skrev i en meddelelse
news:ak4ia0$jo1$1@sunsite.dk...
> Kan man bruge en variabel i forbindelse med SELECT * FROM
> og efterfølgende sammensætte den med en anden variabel. ?
>
> Så slipper jeg for at rette 300 linier kode.
>
> '**************************************************
> 'START LAMPE 1
> '**************************************************
> Jeg tænkte en variabel her, eksempel vis.
> ( var Tal
> Tal = Tal + 1
> så lægges der en
> til hver gang)
>
>
> (VARIABEL (Tal)HER I STEDET FOR 1)
> strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> Set rs = Conn.Execute(strSQL)
>
>
> Hvis stamsats ikke findes
> (navn+VARIABEL (Tal) HER I STEDET FOR 1)
> navn1 = "Ledig"
>
> if rs.eof then
> (navn+VARIABEL (Tal) HER I STEDET FOR 1)
> navn1 = rs("navn")
> End if
> '**************************************************
> 'END LAMPE 1
> '**************************************************
> '**************************************************
> 'START LAMPE 2
> '**************************************************
> (Tal =
> Tal + 1)
>
> (VARIABEL (Tal) HER I STEDET FOR 2)
> strSQL = "SELECT * FROM stamsats WHERE Lampe = 2 "
> Set rs = Conn.Execute(strSQL)
>
>
> Hvis stamsats ikke findes
> (navn+VARIABEL (Tal) HER I STEDET FOR 2)
> navn2 = "Ledig"
>
> if rs.eof then
> (navn+VARIABEL (Tal) HER I STEDET FOR 2)
> navn2 = rs("navn")
> End if
> '**************************************************
> 'END LAMPE 2
> '**************************************************
Jeps. Prøv at bruge et array
dim indexvar
var navn = new Array();
for indexvar = 1 to ? (maximum)
strSQL = "SELECT * FROM stamsats WHERE Lampe = " & indexvar
Set rs = Conn.Execute(strSQL)
' Hvis stamsats ikke findes
navn[indexvar] = "Ledig"
if rs.eof then
navn[indexvar] = rs("navn")
End if
Hvis din løkke ikke har et maximum, men skal køre indtil du får EOF, så
skift for-to til loop
SumSum
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002