DB koppling

3 svar · 166 visningar · startad av Rinaldo 2 dec. 2001

RinaldoMedlem sedan mars 20014 214 inlägg

Trådstart2 dec. 2001 20:36#1

Kan någon hjälpa mig att göra om denna koppling till en mappath så att jag inte behöver skriva in hela sökvägen på datorn... bara ../data/db.mdb

Det ska inte heller vara någon textfil med. Bara en vanlig koppling...

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("DBPath/"))
Set Read = FSO.OpenTextFile(Server.MapPath("DBPath/DB_Path.txt"), 1, False, False)
DBPath = Read.ReadLine

Set Read = Nothing
Set Folder = Nothing
Set FSO = Nothing

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Set RS = Conn.OpenSchema(28)

JAreMANNENMedlem sedan aug. 20002 272 inlägg

3 dec. 2001 09:02#2

  Set objConn=server.CreateObject("adodb.connection")
  DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN=dsn & "DBQ=" & server.mappath("..\din\sökväg\databas.mdb")
  objConn.Open DSN

RinaldoMedlem sedan mars 20014 214 inlägg

8 dec. 2001 14:58#3

Denna funkar inte... det står:
"Objektet eller providern kan inte utföra den begärda åtgärden."

RinaldoMedlem sedan mars 20014 214 inlägg

9 dec. 2001 20:32#4

Snälla:Kan inte någon hjälpa mig göra om denna så att den funkar utan den absoluta sökvägen?

DBpath = "C:/Inetpub/wwwroot/applications/basket/data/db.mdb"

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Set RS = Conn.OpenSchema(28)