Opret databaseforbindelse fra function eller sub

funtion opendb()
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
end function

function closedb()
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end function

<%
' noget kode...
opendb

' noget mere kode...

closedb

' osv
%>


asp kode taget fra: http://html.dk/tutorials/asp/lektion18.asp

Det virker ikke

Jeg får følgende fejlmeddelelse når jeg prøver at åbne et recordset:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: 'db_noget'

/kalender.asp, line 4

smid din kode herind..

---allesider.asp
<%
Databasemappe = "ER RIGTIG!!!"

Function aabendatabaseforbindelse()
    Set db_fjordnet = Server.CreateObject("ADODB.Connection")
    db_fjordnet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasemappe & "database.mdb"
End Function

Function lukdatabaseforbindelse()
    On Error Resume Next
    db_fjordnet.close
    set db_fjordnet = Nothing
    if Err.Number > 0 then
        lukdatabaseforbindelse = "fejl: " & Err.Description
    else
        lukdatabaseforbindelse = "ok"
    end if
    Err.Clear
End Function
%>

---kalender.asp
<!--#include file="allesider.asp"-->
<%
aabendatabaseforbindelse()
db_fjordnet.close '<<<DENNE LINIE GIVER FEJLEN
response.write lukdatabaseforbindelse()
%>

hvordan kan du få fejl, når du overhovedet ikke har "db_noget" nogen steder..?

.og jeg forstår ikke helt logikken, i at åbne forbindelsen, og derefter lukke den med det samme..?

1. Bemærk "Set db_fjordnet" ikke "Set db_noget" længere
2. Det er for at vise at der opstår en fejl så snart jeg prøver at gøre noget med objektet db_fjordnet

Der er vel ingen grund til at have denne linien: db_fjordnet.close '<<<DENNE LINIE GIVER FEJLEN

når du lige efter har denne (som også lukker forbindelsen): response.write lukdatabaseforbindelse()

Det kunne jo være, at du lukker forbindelsen for hurtigt..

..hvilken fejl får du nu, efter rettelserne?

Fejl: Et objekt er obligatorisk: 'db_fjordnet'
/kalender.asp, line 4

hmm.. prøv med "call" før funktionens navn:

call aabendatabaseforbindelse()

hjælper ikke!

prøv at erstatte "function" med "sub"..

Har jeg prøvet, virker heller ikke!

Her er noget fra et loginscript, jeg engang lavede:

<%
function dbopen()

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(db_file)
Conn.Open DSN
end function

function dbclose()
Conn.Close
set rs = nothing
Set Conn = Nothing
end function
%>

funktionerne afvikles:
dbopen
dbclose

eller, så du kan se, at jeg ikke lukker med det samme:

dbopen
strSQL = "select * xxxxxxxxxxxxxxxx" ' (censoreret)
set rs = conn.execute(strSQL)

Det er ikke til at se det når det er mørkt og man er træt ;-)

jeg er sikker på at dine allesider.asp bruger databaseforbindelsen og derfor får du fejlen med objektet der mangler.

Du skal åbne dbforbindelse før du inkluderer alle sider. Desuden ser det ud som om du lukker db_fjordnet 2 gange. Anden gang er dog en response.write så ok

---allesider.asp
<%
Databasemappe = "ER RIGTIG!!!"

Function aabendatabaseforbindelse()
    Set db_fjordnet = Server.CreateObject("ADODB.Connection")
    db_fjordnet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasemappe & "database.mdb"
End Function

Function lukdatabaseforbindelse()
    On Error Resume Next
    db_fjordnet.close
    set db_fjordnet = Nothing
    if Err.Number > 0 then
        lukdatabaseforbindelse = "fejl: " & Err.Description
    else
        lukdatabaseforbindelse = "ok"
    end if
    Err.Clear
End Function
%>

---kalender.asp
<%
aabendatabaseforbindelse()
%>
<!--#include file="allesider.asp"-->
<%
lukdatabaseforbindelse()
%>

du behøver ikke at checke for fejl ved lukning af db

Function lukdatabaseforbindelse()
    'luk databasen
    db_fjordnet.close
    set db_fjordnet = Nothing

End Function

et svar hvis det løste dit problem

//vbcoder

Jeg fik det til at virke ved at bruge "Option Explicit":
---allesider.asp
<%
Option Explicit
Dim databasemappe, db_fjordnet
Databasemappe = "ER RIGTIG!!!"

Function aabendatabaseforbindelse()
    Set db_fjordnet = Server.CreateObject("ADODB.Connection")
    db_fjordnet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasemappe & "database.mdb"
End Function

Function lukdatabaseforbindelse()
    On Error Resume Next
    db_fjordnet.close
    set db_fjordnet = Nothing
    if Err.Number > 0 then
        lukdatabaseforbindelse = "fejl: " & Err.Description
    else
        lukdatabaseforbindelse = "ok"
    end if
    Err.Clear
End Function
%>

---kalender.asp
<!--#include file="allesider.asp"-->
<%
aabendatabaseforbindelse()
response.write lukdatabaseforbindelse()
%>

kigger lige med

plexx> hmm.. dvs, fejlen var at "db_fjordnet" ikke var dimmet..? Virker højst usandsynligt..

plasmon> Læs http://expfaq.1go.dk/?id=72#lytte_med -- ingen grund til "kigger lige med".. :-)

plexx> Se lige starten af mit indlæg (indtil "Til tabellen er brugt:"): http://www.eksperten.dk/spm/502058#rid4625654

Altså jeg fik først scriptet til at virke da jeg brugte Option Explicit og (dimmede)? db_fjordnet. Om det så kan have noget at gøre med at jeg brugte Server.Createobject("MSXML2.ServerXMLHTTP") til at fremkalde siden ved jeg ikke.

Da jeg selv fandt løsningen, snupper jeg selv pointene.