Flytta information från Tabell 1 till tabell 2

SQL = "SELECT * from tabell1 order by votes DESC"
Set RS_lasain = Connect.Execute(SQL)
Dim i
i = 0
do until i = 20 or RS_lasain.eof
i = i + 1
Placering = i
ID = RS_lasain("ID")
Votes = RS_lasain("Votes")
SQL = "INSERT INTO tabell2 (Placering, ID, Votes) values ("& i &", "& ID&", "& Votes &")"
Connect.Execute(SQL)
RS_lasain.Movenext
loop
RS_lasain.Close
Connect.Close

Tack, det var inte så pjåki kod som jag fick fram. Bara några små ändringar. Tack emission

Går inte det att göra enbart med en fet SQL?

Jo, kanske. Men vem kan hitta den otroligt feta koden då?

Koden som emisson skrev funkar bra.

Klart man kan använda SELECT INTO också om man vill, såvida databasen klarar av det. Lite knixigt att hålla reda på radpositionen (i) dock.

dessutom kan du bara göra en select into till en tabell som inte existerar, som alltså skapas med de kolumner som finns med i selecten.

man kan ju annars göra en

INSERT INTO tabell2 (fält1, fält2) SELECT fält1, fält2 FROM tabell1

vet inte om det funkar i access, men iaf i sql server. men samma sak där som med select into, knepigt med i.

Anders, har du hört talas om självkopplingar i SQL?.

danmagnus:

har jag gjort bort mig (nu igen) ?

Självkopplingar?

äh ni vet,
UPDATE tabell2 SET fornamn=(SELECT TOP 1 fornamn From Tabell1 ORDER BY datum DESC)

eller:

UPDATE tabell2 SET fornamn=(SELECT TOP 1 fornamn From Tabell1 ORDER BY datum DESC)
WHERE tabell2.ID=(SELECT MAX(ID) AS knivolle FROM tabell1)

använd fantasin! detta tog jag bara rakt ur huvet. hmm borde detta kallas ultra dynamisk eller dynamisk dynamik eftersom man inte anger något sökvärde överhuvudtaget.