<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = server.mappath ("../../scripts/intranet.mdb")
'MdbFilePath = ("c:\inetpub\intranet\scirpts\intranet.mdb")
Session("connectdb") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Databas.Open Session("connectdb")
%>
konstigt!
38 svar · 368 visningar · startad av McD · sida 2 av 2
Trådstarten, av McD
Microsoft VBScript runtime error '800a01a8' Object required: 'DRIVER={Microsoft Ac' /test/conection.inc, line 6 <% Dim Databas Databas = "DRIVER={Microsoft Access Driver (.mdb)};DBQ="& Server.MapPath("../../scripts/intranet.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5" Session("connectdb") = "Driver={Microsoft Access Driver (.
Läs hela trådstarten →hmm, varför använder du inte samma connectionstring på de två ställena?
vet inte... detta är vides
jag använder iof delar av den koden...
kolla..
<%
Dim adat
adat = date()
SQL = "INSERT INTO mall (kundnr, foretag, artnr, adat ) VALUES ('" & session ("kundnr") & "', '" & session("foretag") & "' , '" & session ("artnr") & "' , #"& adat & "#)"
session("kundnr")=""
session("foretag")=""
session("artnr")=""
Databas.Execute SQL
Databas.Close
Set Databas = Nothing
%>
om du har en connectionstring som funkar och en som inte gör det, så hade jag i alla fall kört på den som funkar.
fast, det är ju bara jag...
Jag kan använda vilken som helst... helt ok...
Men att sitta och göra om alla databaskopplingar i alla asp sidor vill jag inte göra därför så undrar jag hur jag ska göra om den som funkar så att den funkar med mina asp sidor...
du har tappat bort mig för länge sedan.
Denna funkar på jobbet i mitt nyhetsscript.
<%
Dim strCon
Dim objRec
Dim objCon
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../../scripts/intranet.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
'DSN CONNECTION
'strCon = "DSN=NeWs"
%>
Här är en undersida som jag vill anävnda till min nya funktion
<%
Dim adat
adat = date()
SQL = "INSERT INTO mall (kundnr, foretag, artnr, adat ) VALUES ('" & session ("kundnr") & "', '" & session("foretag") & "' , '" & session ("artnr") & "' , #"& adat & "#)"
session("kundnr")=""
session("foretag")=""
session("artnr")=""
Databas.Execute SQL
Databas.Close
Set Databas = Nothing
%>
ovansående kod har jag fungerande hemma och då med följande conecitonstring
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = ("c:\inetpub\scripts\intranet.mdb")
Session("connectdb") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Databas.Open Session("connectdb")
%>
Frågan är alltså ganska enkel hur får jag jobbets connecitonstring den översta att funka med min asp undersida?
det borde ju funka alldeles utmärkt om du bara byter session("connectdb") eller vad den hette mot strCon i koden ovanför, eller jag vet inte.
du försöker inte göra det krångligt för mig va?
det är inte så att du löst problemet för flera timmar sedan och nu bara retas?
hähähä ne jag retas inte... har testat milijoner varianter med samma resutlat.
<%
Set Databas = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../../scripts/intranet.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Session("condb") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Databas.Open Session("condb")
%>
Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "DRIVER={Microsoft Ac"]'
/test/conection.inc, line 2
ändrade nu om lite och fick följande fel.
för andra gången: du måste skapa ditt connectionobjekt...
<%
[b]set Databas = server.createobject("adodb.connection")[/b]
Session("condb") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../../scripts/intranet.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Databas.Open Session("condb")
%>
jag ändrade i session("condb") också, det är ju det som är din connectionstring, inget annat...
Snart har mitt tålamod försvunnit, finns det verkligen inte någon lösning på detta?
Gärna tips på var jag kan ha skrivit fel får kolla upp...
Nu VET jag att databasen finns i en mapp på servern "olle" som heter c:/databas/intra.mdb
och ändå får jag detta fel
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x414 Thread 0x7bc DBC 0x2025024 Jet'.
/testnya/conection.inc, line 5
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = ("c:\databas\intra.mdb")
Session("condb") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Databas.Open Session("condb")
%>
Jag får felmeddelandet när jag försöker skriva till databasen med följande kod
<%
Dim adat
adat = date()
SQL = "INSERT INTO mall (kundnr, foretag, artnr, adat ) VALUES ('" & session ("kundnr") & "', '" & session("foretag") & "' , '" & session ("artnr") & "' , #"& adat & "#)"
session("kundnr")=""
session("foretag")=""
session("artnr")=""
Databas.Execute SQL
Databas.Close
Set Databas = Nothing
%>
Vad kan vara fel?
Rättigheterna är rätt det har jag också kollat...
KOLLA RÄTTIGHETERNA!!!
även på filnivå. Om det är du som skapat den så har du troligen äganderätt på den och då kan ingen annan utom admin skriva/ändra/tabort i din databasfil.
Alltså, kolla inte endast rättigheterna på katalogen UTAN oxå på .mdb filen
cya,
PatrikB
rättigheterna på katalogen är rätt...
intra.mdb ligger i samma katalog som min andra databas och den funkar ju.
Filen intra.mdb har samma rättigheter som min andra databas.
och vad är det för rättigheter som intra.mdb har då??
har du högerklickat på den filen i utforskaren och kollat på hur rättigheterna sitter?
cya,
PatrikB
Admin och jag har fullständiga rättigheter...
Precis samma som min andra databas som finns till nyhetscriptet... och de ligger i samma katalog.
men nu är det ju varken du eller admin som ska ha rättigheterna på mappen utan IUSR_servername som behöver ha skriv rättighet till filerna.
cya,
PatrikB
Ahhhhhhhhhh är det det som är felet kommer ju dö... är ledig en vecka från jobbet nu men jag ska genast kolla när jag kommer tillbaka på måndag....
Är verkligen tacksam för den hjälp jag har fått...
jag ska göra en annan sak oxå för att testa ta allt i en mapp och maxa på med rättigheter och funkar det då ska jag som jag sa till hallgren köra upp scriptet i rumpan på vår admin...
Tack och åter tack.

