DSN less forbindelse der ikke virker

Har du lavet din database i Access 2000?

nej :)

Prøv med:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & Server.Mappath("/database.mdb") & ";DefaultDir=" & Server.Mappath("/") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MSAccess;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

Udskift /database.mdb med der hvor databasen ligger i forhold til roden på websitet. I dette eksempel ligger den i roden.

Det står på en linie :)

Prøv med:

Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Navnet_PÅ:DATABASEN_HER.mdb") & ";"
       
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open DB_CONNECTIONSTRING

Du skal bare sørge for at selve ASP filen og Databasen ligger i samme mappe.
den kan også lige andre steder men så skal du rette stien i Server.Mappath

Vidste ikke at der kunne "være" to svar :)

2 svar hvor imponerende.. hehe .. læg lige mærke til at jeg bruger et Server.CreateObject("ADODB.Recordset")
og det er meget vigtigt for resten af koden at jeg bliver ved med at bruge det :)

ok, finder noget kode

Floffy>>Det er åbenbart det nye på eksperten.dk. Prøv f.eks. at se på: http://www.eksperten.dk/spm.asp?id=2150

Jeg har selv brugt:

        Dim DB_CONNECTIONSTRING
        DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("127144146281_users.mdb") & ";"
   
        Dim objRecordset
        Set objRecordset = Server.CreateObject("ADODB.Recordset")

        objRecordset.Open "users", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable
   
        objRecordset.AddNew
        objRecordset.Fields("Screen_Name") = CStr(ScreenName)
        objRecordset.Fields("Password") = CStr(Password1)
        objRecordset.Fields("First_Name") = CStr(FirstName)
        objRecordset.Fields("Last_Name") = CStr(LastName)
        objRecordset.Fields("Address") = CStr(Address)
        objRecordset.Fields("Zip") = CStr(Zip)
        objRecordset.Fields("City") = CStr(City)
        objRecordset.Fields("Tlf") = CStr(Tlf)
        objRecordset.Fields("Email") = CStr(Email)
        objRecordset.Update

        objRecordset.Close
        Set objRecordset = Nothin

Men i dit eksempel skal der sikkert bare stå:

Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & sti & ";"

dkkarpen>> Vi er bare for hurtige og har ramt på samme tid. Det tror jeg.

Faktisk tror jeg bare du kan åbne spm. og lade det stå i en halv time, og så svare. Der tjekkes nok ikke for om der allerede er svaret.

gider i ikke lige tage den debat et andet sted hen!

Ja det virker faktisk .. mange tak du :)