Addere to arrays

alldata = arr1 & arr2

& bruger man når man skal linke to variabler
+ bruger man når man skal + i matamatik

svar

Du skal "redim preserve" det først array til at være lige så stort som den fælles størrelse. Dernæst looper du elementer fra det andet array, over i det første.

Lettere er det at lave en union med SQL:

SQL = "(Select * from tabel where xxx)"
SQL = SQL & "UNION"
SQL = SQL & "(Select * from tabel where yyy AND ID Not IN (xxx))"
set rs= conn.execute(SQL)

if NOT rs.eof THEN arrSamlet = SQL.getrows

Ja, det skulle jeg også mene, men jeg får fejlen:
Microsoft VBScript runtime error '800a000d'
Type mismatch
quick_soeg.asp, line 59
[alldata = alldata1 & alldata2]

stigc> får jeg så resultaterne vist fra SQL1 først ?
Den første SQL henter resultater hvor alle ord indgår og den anden tager nogle.

Og svar lige, så du kan få point

Det skulle du gerne, da der ingen order by er! Behold bare dine points.

Jeg får fejlen:
Cannot use Memo, OLE, or Hyperlink Object field 'beskrivelse' in the SELECT clause of a union query.

hmmmm. DU må ikke buge UNION med et memo felt. Hvis du skal have den med, er du nød til at bruge den første metode!

Jeg er i gang med at pille den ud, men det er ikke nemt, da der er mange data at holde styr på.
Det skulle gøres før eller siden, da det vil optimere søgningen. :-)

Der er en order by, så det virker vist ikke  :-(
hvordan laver jeg den der redim preserve ?

Det jeg laver ligger på www.vinguide.net og det er quicksøgningen på forsiden, prøv at søge på Château Petit-Mangot

Jeg har lige læst at redim preserve er en "ressource fælde" da den looper, så vil det ikke være nemmere at definere et nyt array, jeg kender jo antallet af poster der skal være i det nye array og så bare lægge dem sammen ?

Nu har jeg prøvet:
numrows = numrows1 + numrows2
Dim alldata(numrows)
alldata = alldata1 & alldata2

Men det giver fejlen:
Microsoft VBScript compilation error '800a0402'
Expected integer constant
Dim alldata(numrows)
------------^

Kan du ikke bruge denne:

Dim alldata(UBound(alldata1) + UBound(alldata2) + 1)
' Det skulle give plads til begge

Microsoft VBScript compilation error '800a0402'

Expected integer constant

Dim alldata(UBound(alldata1) + UBound(alldata2)+1)
------------^

Svaret for mig er i SQL'en:

Select *, 1 As Q from tbl where xxx Union Select *, 2 As Q from tbl where yyy AND ID Not IN (Select ID from tbl where xxx) order by Q

Håber den kan hjælpe en anden!