---
title: "Databaskoppling"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11970-databaskoppling"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "web00132"
published: "2001-10-05T18:07:00.000Z"
updated: "2001-10-05T18:33:00.000Z"
replies: 5
views: 181
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11970-databaskoppling"
---

# Databaskoppling

## #1 — web00132, 2001-10-05T18:07Z

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

Permalänk: https://www.webforum.nu/p/11970

## #2 — LarsG, 2001-10-05T18:17Z

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 %>
```

Permalänk: https://www.webforum.nu/p/291380

## #3 — LarsG, 2001-10-05T18:19Z

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.

Permalänk: https://www.webforum.nu/p/291381

## #4 — web00132, 2001-10-05T18:25Z

Woohoo! Det funkar! Som jag har kämpat med det där. Tack ska du ha. Vad betyder förresten detta ",,128"?
/Richard

Permalänk: https://www.webforum.nu/p/291382

## #5 — LarsG, 2001-10-05T18:29Z

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.

Permalänk: https://www.webforum.nu/p/291383

## #6 — web00132, 2001-10-05T18:33Z

OK, tack ska du ha!
/Richard

Permalänk: https://www.webforum.nu/p/291384

---

Tråden på webben: https://www.webforum.nu/amne/asp/11970-databaskoppling