Avatar billede janny Nybegynder
19. december 2002 - 18:36 Der er 3 kommentarer og
1 løsning

hjælp med Acces databaser!

Er der en der kunnne vise hvordan jeg gør dette:

På mit (Azero) webhotel er der i roden disse mapper: DB og WWW. Databaser skal ligge i DB, men når jeg flytter dem derover, så virker databasekaldene på mine ASP sider ikke.

Fra Azero support har jeg så modtaget dette:

Du kan bruge d:\home\kedrissosdk\db\nyheder.mdb
Så burde du ikke opleve problemer.
Se evt. eksempler her:
http://azero.dk -> support -> windows -> dsn


Men hvad skal jeg så rette i denne:

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/links.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM links WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Hits") = rs("Hits") + 1
        strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If

Som det er nu ligger alle mine databaser i en DB mappe i WWW mappen og der virker det.

Jan
Avatar billede medions Nybegynder
19. december 2002 - 18:50 #1
Brug denne

    '------------// DB Connection
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set objRs = Server.CreateObject("ADODB.Recordset")
   
        strDNS = "Data Source=d:\home\kedrissosdk\db\nyheder.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
        objConn.Open strDNS

//>Rune
Avatar billede janny Nybegynder
19. december 2002 - 19:06 #2
Medions:

Det er med garanti rigtigt! - men som den ASP / database mongol jeg er, spørger jeg så: Hvordan skal mit kald ( se spm ) helt præcist se ud. Altså, hvad skal erstattes med hvad?

Jan
Avatar billede medions Nybegynder
19. december 2002 - 19:09 #3
Set myConn = Server.CreateObject("ADODB.Connection")
strDNS = "Source=d:\home\kedrissosdk\db\nyheder.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM links WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Hits") = rs("Hits") + 1
        strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If

//>Rune
Avatar billede medions Nybegynder
19. december 2002 - 19:24 #4
Thx 4 Poinz

//>Rune
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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