---
title: "Göra databaskoppling till funktion?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122629-göra-databaskoppling-till-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2005-02-16T23:15:59.000Z"
updated: "2005-02-16T23:26:36.000Z"
replies: 1
views: 254
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/122629-göra-databaskoppling-till-funktion"
---

# Göra databaskoppling till funktion?

## #1 — bigsky, 2005-02-16T23:15Z

Hur gör jag följande databaskoppling till en funktion som jag kan ha på en sida som jag inkluderar på alla sidor där en koppling behövs?

Hur anropar man funktionen i själva SQL frågan?

```
Dim strPath, Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" g:\inetpub\db\S3v2LJwE.mdb"
```

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

## #2 — Josef, 2005-02-16T23:26Z

Den sidan du inkluderar.

```
<%
Dim objConn, strSQL

Function OpenConnection()
     Set objConn = Server.CreateObject("ADODB.Connection")
     objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="g:\inetpub\db\S3v2LJwE.mdb"
End Function

Function CloseConnection()
     objConn.Close : Set objConn = Nothing
End Function

Function ExecuteSQL(strSQL)
    strSQL = Replace(strSQL, "'","''")
    objConn.Execute(strSQL)
End Function
%>
```

På andra sidor, för att kalla på funktioner:

```
Call OpenConnection()

'-- kör den kod som använder databasen.
Call ExecuteSQL("SELECT * FROM temp")

Call CloseConnection()
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122629-göra-databaskoppling-till-funktion