--- title: "Updatera med ASPUpload" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/38564-updatera-med-aspupload" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "CatZ" published: "2002-02-27T14:48:11.000Z" updated: "2002-07-28T21:03:46.000Z" replies: 13 views: 349 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38564-updatera-med-aspupload" --- # Updatera med ASPUpload ## #1 — CatZ, 2002-02-27T14:48Z Hur skriver jag om koden nedan så att jag kan uppdatera istället för att lägga till ? ``` Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb") Set rs = Server.CreateObject("adodb.recordset") rs.Open "Mall", Connect, 3, 3 rs.AddNew rs("SmId") = Upload.Form("SmId") rs("SmNamn") = Upload.Form("SmNamn") rs("SmDatum") = Upload.Form("SmDatum") rs("SmJour") = Upload.Form("SmJour") rs("SmForm") = Upload.Form("SmForm") rs("SmAnsv") = Upload.Form("SmAnsv") rs("SmAnm") = Upload.Form("SmAnm") rs.Update Response.Redirect("Mall.asp") ``` ID för det som ska uppdateras är redan bestämt. Så det är någon form av *SQL = "UPDATE tabell SET kod kod WHERE Id = " & Request.Form("Id")* Jag behöver. Jag vet inte hur man gör det med ASPUpload. Permalänk: https://www.webforum.nu/p/38564 ## #2 — CatZ, 2002-02-27T15:55Z Luddigt eller ? Skriver jag otroligt luddigt? För jag får ju knappt några svar alls :P Permalänk: https://www.webforum.nu/p/614865 ## #3 — @nders, 2002-02-27T17:08Z Det beror lite på vad dina fält har för fälttyper i tabelldefinitionen. Jag gissar att smDatum är av datumtyp, SmId tal/räknare, resten text. ``` Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb") set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open Connect strSQL = "UPDATE Mall SET SmNamn = '" & Upload.Form("smNamn") & "', SmDatum = #" & Upload.Form("smDatum") & "#, SmJour = '" & Upload.Form("smJour") & "', smForm = '" & Upload.Form("smForm") & "', smAnsv = '" & Upload.Form("smAnsv") & "', SmAnm = '" & Upload.Form("smAnm") &"' WHERE SmId = " & Upload.Form("smId") objConn.Execute strSQL,,128 'Specificerar att inget recordset skall skapas Set objConn = Nothing ``` Om det är andra datatyper än de jag gissat, får du ändra i SQL-frågan. Talfältsvärden skall inte omslutas av något, medans text/pm-värden skall omslutas av apostrofer. Mvh, Permalänk: https://www.webforum.nu/p/614899 ## #4 — CatZ, 2002-02-27T17:27Z Hela koden Så här ser koden ut. Jag glömde att ha med delen som Skickar upp filen. ``` Set Upload = Server.CreateObject("Persits.Upload") Upload.SetMaxSize 100000, True Count = Upload.Save Set File = Upload.Files("FResultat") If Not File Is Nothing Then Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb") Set rs = Server.CreateObject("adodb.recordset") Hash = File.MD5Hash rs.Open "SELECT * from Mall WHERE Hash='" & Hash & "'", Connect, 2, 3 If Not rs.EOF Then Response.Write "This file already exists in the database." Response.End End If rs.Close rs.Open "Mall", Connect, 3, 3 rs.AddNew rs("SmId") = Upload.Form("SmId") rs("FBlob") = File.Binary rs("FNamn") = File.FileName rs("FStor") = File.Size rs("hash") = Hash rs("SmNamn") = Upload.Form("SmNamn") rs("SmDatum") = Upload.Form("SmDatum") rs("SmJour") = Upload.Form("SmJour") rs("SmForm") = Upload.Form("SmForm") rs("SmAnsv") = Upload.Form("SmAnsv") rs("SmAnm") = Upload.Form("SmAnm") rs.Update Response.Redirect("Mall.asp") Else ``` I och med den koden kan jag inte skicka filen samtidigt som jag updaterar väl ? Jag ska experimentera lite med det du skrev Anders. Och får tacka för hjälpen även om jag inte begrep någonting :P Permalänk: https://www.webforum.nu/p/614908 ## #5 — @nders, 2002-02-27T17:36Z Jo, det borde gå alldeles utmärkt att ladda upp filen samtidigt. Varför skulle inte det gå? Labba på du bara... ;) Mvh, Permalänk: https://www.webforum.nu/p/614913 ## #6 — CatZ, 2002-02-27T17:55Z << e dum ...vad är det för skillnad på strSQL och SQL ? :r Ok då, jag e ganska ny på det här.. KOM IGEN BARA!! :birp Permalänk: https://www.webforum.nu/p/614928 ## #7 — @nders, 2002-02-27T17:58Z strSQL är det variabelnamn jag brukar använda för mina SQL-frågor. SQL är ju själva frågespråket, Structured Query Language. Många använder just SQL som variabelnamn på sina SQL-frågor. Mvh, Permalänk: https://www.webforum.nu/p/614930 ## #8 — CatZ, 2002-02-27T18:22Z Det blir fel... Jag försöker göra det hela lite annorlunda men får upp felmeddelandet: Feltyp: Körningsfel i Microsoft VBScript (0x800A000D) Inkompatibla typer /wexiobridgen/mall.asp, line 144 SQL = "INSERT INTO Mall (SmNamn, SmDatum, SmJour, SmForm, SmAnsv, SmAnm, FBlob, FNamn, FStor, hash) VALUES ('" & CharConvert(Upload.Form("SmNamn")) & "', '" & Upload.Form("SmDatum") & "', '" & CharConvert(Upload.Form("SmJour")) & "', '" & CharConvert(Upload.Form("SmForm")) & "', '" & CharConvert(Upload.Form("SmAnsv")) & "', '" & CharConvert(Upload.Form("SmAnm")) & "', '" & File.Binary & "', '" & File.FileName & "', '" & File.Size & "', '" & Hash & "')" rs.Open SQL, OBJdbConnection, 3, 3 Jag måste nog korta ner den satsen lite... Men varför fungerar den inte ? Permalänk: https://www.webforum.nu/p/614936 ## #9 — @nders, 2002-02-27T18:23Z Du får modifiera den beroende på vad du har för datatyper på fälten, som jag skrev ovan. Vad har du för datatyper på fälten i frågan? Jag ser att du inte har # som du ska runt datumfältet, om det nu är av datumtyp, till exempel. Mvh, Permalänk: https://www.webforum.nu/p/614938 ## #10 — CatZ, 2002-02-27T18:28Z ok... SmDatum är just datum SmId är räknaren Övriga Sm är PM FNamn är PM = Namnet på filen FBlob är ActiveX-Object FStor är tal = Storleken på filen hash är text = kollar så att man inte skickar dubletter. Permalänk: https://www.webforum.nu/p/614940 ## #11 — CatZ, 2002-02-28T16:09Z @nders ? E du vaken än ? §e Permalänk: https://www.webforum.nu/p/615371 ## #12 — juventus1, 2002-02-28T16:35Z Hoppas jag fick med allt :) ``` SQL = "INSERT INTO Mall (SmNamn, SmDatum, SmJour, SmForm, SmAnsv, SmAnm, FBlob, FNamn, FStor, hash) VALUES ('" & CharConvert(Upload.Form("SmNamn")) & "', #" & Upload.Form("SmDatum") & "#, '" & CharConvert(Upload.Form("SmJour")) & "', '" & CharConvert(Upload.Form("SmForm")) & "', '" & CharConvert(Upload.Form("SmAnsv")) & "', '" & CharConvert(Upload.Form("SmAnm")) & "', '" & File.Binary & "', '" & File.FileName & "', '" & File.Size & "', '" & Hash & "')" ``` Permalänk: https://www.webforum.nu/p/615389 ## #13 — voigtann1, 2002-02-28T21:25Z skulle vilja ha hela koden av dej om ni fixar denna =) Permalänk: https://www.webforum.nu/p/615481 ## #14 — CatZ, 2002-07-28T21:03Z Heh Jag löste det iofs för några månader sedan men men ;) Permalänk: https://www.webforum.nu/p/732341 --- Tråden på webben: https://www.webforum.nu/amne/asp/38564-updatera-med-aspupload