5 svar · 181 visningar · startad av web00132
Jag har 2 tabeller, Upcoming och previous. Det är antal gig det handlar om(med mitt band). När vi haft ett gig vill jag att den posten ska hoppa över från tabellen upcoming till tabellen previous. Så här ser min kod ut:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\dreamboy\data\dreamboy.mdb"
%>
<%dim dagens
dagens = date%>
<%
Set forsta = Server.CreateObject("ADODB.Recordset")
hamta="SELECT datum FROM upcoming WHERE datum<#"&dagens&"#"
forsta.Open hamta, Connect
if forsta("datum") < dagens then
forsta.Close
Set andra = Server.CreateObject("ADODB.Recordset")
hejhej="INSERT INTO previous(gigid,datum,gig,info) SELECT gigid,datum,gig,info FROM upcoming WHERE datum<#"&dagens&"#"
andra.Open hejhej, Connect
andra.Close
Set tredje = Server.CreateObject("ADODB.Recordset")
tabort="DELETE gigid,datum FROM upcoming WHERE datum<#"&dagens&"#"
tredje.Open tabort, Connect
tredje.Close
else
forsta.Close
end if %>
Har jag överhuvutaget tänkt rätt i min kod?
/Richard
Jo, men du har onödigt mycket kod
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\dreamboy\data\dreamboy.mdb"
%>
<%dim dagens
dagens = date
ins = "INSERT INTO previous(gigid,datum,gig,info) " & _
"SELECT gigid,datum,gig,info FROM upcoming WHERE datum<#"&dagens&"#"
connect.execute ins,rows,128
if rows <> 0 then
tabort="DELETE FROM upcoming WHERE datum<#"&dagens&"#"
connect.execute tabort,,128
end if %>
Det jag inte förstår dock, är varför du har två tabeller. Du kan ju direkt från datumet avgöra om en spelning har varit eller inte.
Woohoo! Det funkar! Som jag har kämpat med det där. Tack ska du ha. Vad betyder förresten detta ",,128"?
/Richard
128 = adExecuteNoRecords
Inget recordset skapas. Om man anropar execute-metoden utan att ange ,,128 så skapas ett tomt och stängt recordset. Det är en liten optimering.
OK, tack ska du ha!
/Richard