ladda upp filer + databas

sin_adecMedlem sedan apr. 2002272 inlägg

Frågan10 feb. 2007 13:59#1

tjenare, ja nu har man sökt igenom internet samt testat och felsökt utan positiv resultat.

jag försöker nämligen med en funktion där man laddar upp filer till en mapp och filnamnet ska spara i en access databas.
men får det inte att fungera, filerna lagras i mappen men ingenting i databasen, och så många av er kan så pass mycket mer än vad jag kan, så jag chansar och hoppas på tur.

ska publicera filerna så att ni ser vad jag har att arbeta med, är enormt tacksam för all hjälp.

hela koden finns på:

koden

tack

MelittaMedlem sedan sep. 2003448 inlägg

10 feb. 2007 17:48#2

Utan att ha hunnit sätta mig in i koden riktigt, men här är en vild chansning:
byt:

Public Sub Save(path)
		Dim streamFile, fileItem

		if Right(path, 1) <> "\" then path = path & "\"

		if not uploadedYet then Upload

		For Each fileItem In UploadedFiles.Items
			Set streamFile = Server.CreateObject("ADODB.Stream")
			streamFile.Type = 1
			streamFile.Open
			StreamRequest.Position=fileItem.Start
			StreamRequest.CopyTo streamFile, fileItem.Length
			streamFile.SaveToFile path & fileItem.FileName, 2
			streamFile.close
			Set streamFile = Nothing
			fileItem.Path = path & fileItem.FileName
		 Next
	End Sub

mot

Public Sub Save(path)
	Dim streamFile, fileItem

	if Right(path, 1) <> "\" then path = path & "\"

	if not uploadedYet then Upload

	For Each fileItem In UploadedFiles.Items
		Set streamFile = Server.CreateObject("ADODB.Stream")
		streamFile.Type = 1
		streamFile.Open
		StreamRequest.Position=fileItem.Start
		StreamRequest.CopyTo streamFile, fileItem.Length
		streamFile.SaveToFile path & fileItem.FileName, 2
		streamFile.close
		Set streamFile = Nothing
		fileItem.Path = path & fileItem.FileName
		
		Set objConn = Server.CreateObject("ADODB.Connection")
		objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db1.mdb")
		objConn.Execute("insert into inlagg (bild) Values ('"& fileItem.FileName &"')"),,128
		objConn.Close : Set objConn = Nothing
	 
	 Next
End Sub