Göra databaskoppling till funktion?

bigskyMedlem sedan maj 2002821 inlägg

Frågan16 feb. 2005 23:15#1

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"

JosefMedlem sedan mars 20023 561 inlägg

16 feb. 2005 23:26#2

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()