Avatar billede mxs Nybegynder
30. august 2003 - 16:47 Der er 10 kommentarer og
1 løsning

2 spm mht. til funktioner, hvordan gør man det?

Hey jeg har lige 2 spørgsmål!
De er lette, men jeg er lige gået igang med at rode lidt med funtioner og jeg synes da det er smart, men de gider bare ikke at gøre som jeg vil have dem til :( Øv øv for mig

Men jeg har en database conn som jeg gerne vil proppe i en funktion så jeg bare kan skrive dbconn(dbname, tbname)
Også få den til at skrive database forbindelsen ud? Hvordan?

Kan man fx lave det i en sub?

Håber at i kan forstå det uden kode ellers skal i bare sige til så kan jeg sende noget, men jeg tror ikke at det er nødvendig.

mvh, MxS^
Avatar billede cesil Nybegynder
30. august 2003 - 16:53 #1
hvad med bare at lave en include fil med din connection og så includerer den på de sider hvor det er nødvendigt.
Avatar billede mxs Nybegynder
30. august 2003 - 16:54 #2
Fordi det kan jeg jo godt finde ud af :)
Avatar billede cesil Nybegynder
30. august 2003 - 17:16 #3
måske noget a'la

function dbconn
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn = Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath(dbname)
end function
Conn = dbconn("../db/database.mdb;")

du kan ikke lave det som sub, da du skal have noget retur
Avatar billede mxs Nybegynder
30. august 2003 - 17:18 #4
Det vil sige at hvis jeg skal en sub så skal jeg lave hele forbindelsen og få den ti lat udskrive noget og derefter sætte den ind på siden?
Avatar billede nizax Nybegynder
30. august 2003 - 17:18 #5
<%

FUNCTION dbconn(dbname,tbname)

    strDBname = dbname
    strtbname = tbname

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("" & strDBname & ".mdb")
    Conn.Open DSN
   
        strSQL = "SELECT from " & strtbname & ""
        set rs = conn.execute(strSQL)

END FUNCTION   
%>

<% = dbconn(request.querystring("dbname"),request.querystring("tbname")) %>
Avatar billede nizax Nybegynder
30. august 2003 - 17:22 #6
har lige nogle ændringer 2 sek!
Avatar billede mxs Nybegynder
30. august 2003 - 17:22 #7
Thx jeg vil prøve det efter jeg har fået noget at spise :D
Avatar billede nizax Nybegynder
30. august 2003 - 17:23 #8
SÅDAN! :) NU SKULLE DET VIRKE

<%

FUNCTION dbconn(dbname,tbname)

    strDBname = dbname
    strtbname = tbname

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("" & strDBname & ".mdb")
    Conn.Open DSN
   
        strSQL = "SELECT * from " &  strtbname & ""
            response.write strSQL
        set rs = conn.execute(strSQL)
   

END FUNCTION   
%>

<% = dbconn(request.querystring("dbname"),request.querystring("tbname")) %>
Avatar billede mxs Nybegynder
30. august 2003 - 19:07 #9
Hvorfor skal du response.write strSQL før du går videre?
Avatar billede d4s Novice
31. august 2003 - 08:38 #10
Det er kun til test. Når du er sikker på at det virker, fjerner du bare linien. Ofte kan man finde fejl ved at udskrive sin strSQL, så det er et smart træk af nizax.

D4
Avatar billede nizax Nybegynder
31. august 2003 - 14:59 #11
Takker!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester