40 votes flyttes til ny tabel!?

Hvorfor vil du flytte noget fra en tabel til en anden tabel. Svaret er at ja det er svert at flytte noget rundt mellem db. Men det er nemt at bygge en db op, hvor du kan hendte de ID der har fået 40 stemmer eller der over.

Well, det er fordi nogle af tingene der ligger i den ene tabel, de skal være der permanent - andre ting, de skal kun komme over i den tabel, såfremt de har 40 stemmer (eller 30...)...

Det kan også godt lade sig gører, men kun hvis du kører en asp side. Jeg vil godt prøve og se om jeg kan lave en asp side i aften.

Cool! :)

OK håber det er noget du kan bruge.
Databasen hedder stemmer.mdb, i denne db er der to tabeller der hedder tabel1 og tabel2. Tabel1 består af to kolonner ID og email. Tabel2 består af to kolonner ID og stemmer. Der er sat som forudsætning at de kan stemme på ti ting med id fra 1 til 10, disse stemmer ligger i table1. Når du kører siden og der er en af id'erne der har fået over 10 stemmer flyttet denne over i table2.

<%
' Der oprettes forbindelse til databasen
dbname=Server.MapPath("stemmer.mdb")

set cn = server.createobject("ADODB.Connection")
' set rs = server.createobject("ADODB.RecordSet")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open


for i=1 to 10
strSQL = "select count (*) as antal from tabel1 where id="&i
Set rs = Cn.Execute(strSQL)
antal=rs("antal")

Response.write i &"  "& antal &"<br>"

if antal>9 then
    sql1="insert into tabel2(id,stemmer) values("& i &","& antal &")"
    cn.execute sql1
end if
next
%>

Jeg skriver lige koden med forklaring

<%
' Der oprettes forbindelse til databasen
dbname=Server.MapPath("stemmer.mdb")

set cn = server.createobject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open

'her tæller den hvor mange poster der har id=1 og id=2 osv.
for i=1 to 10
strSQL = "select count (*) as antal from tabel1 where id="&i
Set rs = Cn.Execute(strSQL)
antal=rs("antal")
'nedenstående linje udskriver hvor mange der er med id=1 og id=2 osv
Response.write i &"  "& antal &"<br>"
'her bliver der indskrevet id og antal indskrevet i tabel2 hvis der er over 9 poster
if antal>9 then
    sql1="insert into tabel2(id,stemmer) values("& i &","& antal &")"
    cn.execute sql1
end if
next
%>