Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:07 Der er 7 kommentarer og
1 løsning

Database conn....

Jeg får denne fejl:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver]Der opstod en generel fejl. Registreringsnøglen Temporary (volatile) Jet DSN for process 0xed8 Thread 0x5e0 DBC 0x10ff024 Jet kan ikke åbnes.
/visitme/www/nytdesign/dbconn.asp, line 7


Med dette:

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set myConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("xxxxxx.mdb")
myConn.Open strDSN, adOpenKeyset, adLockOptimistic

Og linie 7 er selvfølelig der hvor databasen bliver åbnet!: "myConn.Open strDSN, adOpenKeyset, adLockOptimistic
"
Avatar billede arriva Nybegynder
24. februar 2002 - 16:11 #1
hvad sker der hvis du ikke bruger adOpenKeyset og adLockOptimistic?
ellers kan du prøve at skrive 1, 3 ind direkte i stedet...
Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:13 #2
Har prøvet at fjerne dem og skrive 1 og 3 direkte... Hjalp ikke!
Avatar billede arriva Nybegynder
24. februar 2002 - 16:15 #3
Prøv den her:
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("xxxxxx.mdb")
Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:17 #4
Thx... Det hjalp squ!
Avatar billede arriva Nybegynder
24. februar 2002 - 16:18 #5
np
Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:22 #6
...Tror jeg...! Den kan ikke tage imod mit SQL kald nu... Arhgg... To sek...
Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:37 #7
Jeg laver den som en include og skriver dette :
        strSQL = "SELECT * FROM Services ORDER BY Name"
        Set rs = myConn.Execute(strSQL)
       
        If NOT rs.EOF then
            Do While NOT rs.EOF
            If rs("Bold") then
            Bold = "<B>"
            BoldEnd = "</B>"
            End If
            If rs("Hot") then
            Hot = "<IMG SRC=""images/hot.gif"">"
            End If
            If rs("Ny") then
            Ny = "<IMG SRC=""images/ny.gif"">"
            Response.Write "<UL><LI>" & Bold & rs("Name") & BoldEnd & Hot & Ny & "</UL>"
            End If
           
            rs.MoveNext
            Loop
        Else
        Response.Write "Ingen services!"
        End If

Men den ignoreret det 100 % ! Men hvis jeg bare skriver Response.Write "Hej!" kommer det frem!
Avatar billede cool_casper Nybegynder
24. februar 2002 - 16:38 #8
Sorry har fundet ud af det!
Du får dine poinz...!
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