Hej!

Mitt problem är att jag har en accessdatabas som ska hålla en bild till en sida, bilden ska skrivas över när man byter bild via en admin sida, den sk inte lägga till en ny post i databasen. Koden ser ut så här:

<codeasp>
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveVirtual("/bilder")
On Error Resume Next
For Each File in Upload.Files
File.ToDatabase "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/db/db1.mdb"), "UPDATE start_bild SET Bild=(?) WHERE ID=" &1
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write ""
End If
Next
</code>

Jag får ett felmedellande hela tiden som säger:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/admin/bild_start_reg.asp, line 12

File.ToDatabase "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/db/db1.mdb"), "UPDATE start_bild SET Bild=(?) WHERE ID=" &1


Jag använder mig av AspUpload som kommponent, access som databas.

Tacksam för all hjälp jag kan få.

//Janne

prova med denna kod

'Detta förslag sparar namnet på filen i en databas

Set Upload = Server.CreateObject("Persits.Upload") 'tog bort ".1"
Upload.SaveVirtual (Server.MapPath("/bilder"))
On Error Resume Next
For Each File in Upload.Files

If Not File Is Nothing Then
' skapa en connection string
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/db1.mdb")

' skapa en SQL update
SQL = "UPDATE start_bild SET Bild = " & File.Filename & " WHERE ID = 1;"
' Spara till databasen
File.ToDatabase Connect, SQL
Response.Write "Filen sparad."
Else
Response.Write "Ingen fil är vald."
End If
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write ""
End If
Next

Det funkade nästan, jag får ett felmedellande som säger:

Error saving the file: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

Antar att det har något att göra med: Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/db1.mdb")

Men jag kan inte hitta vad felet är.

prova med denna kod

''Detta förslag sparar namnet på filen i en databas

Set Upload = Server.CreateObject("Persits.Upload") ''tog bort ".1"
Upload.Save '' sparar i minnet
On Error Resume Next
For Each File in Upload.Files

If Not File Is Nothing Then
'' skapa en connection string för ado
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
Connect.Open Server.MapPath("/db") & "\db1.mdb", "admin", ""
'' skapa en SQL update
SQL = "UPDATE start_bild SET Bild = " & File.Filename & " WHERE ID = 1;"
'' Spara till databasen
Connect.Execute SQL ''sparar namnet på filen i databasen
strSQL = ""
File.SaveAs Server.MapPath("/bilder") ''sparar filen på disk från minnet
Response.Write Server.MapPath("/bilder") '' för att kolla sökvägen till databasen
Response.Write "Filen sparad."
Else
Response.Write "Ingen fil är vald."
End If
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write ""
End If
Next
Set Upload = nothing
Set File = nothing
Connect.Close
set Connect = nothing

lycka till och hör av dig om det inte fungerar

Roger

Nu får jag ett annat felmedelande som säger Error saving the file: Access is denied.

Access denied till vad?

Tacksam för all hjälp jag har fått hittills.

Kolla in rättigheterna till din databas.. Kanske ligger där ..

Jag kan inte hitta nåt som är fel med databasen eftersom jag sparar andra saker i samma databas och det funkar utmärkt.

Om du fortfarande använder en tillfällig mapp att spara din fil i, alltså:
<code>
Upload.SaveVirtual (Server.MapPath("/bilder"))
</code>

Kolla då rättigheterna till mappen, har du write/skriv-rättigheter?