22. oktober 2002 - 12:16Der er
4 kommentarer og 1 løsning
Scanning fra dokument
Jeg har et spørgsmål som går på følgende:
Jeg kører idag en DB hvori jeg lagrer mine kunder. I nogle tilfælde har jeg i den forbindelse nogle dokumenter som skal lagres sammen med sagen (sker idag manuelt) men jeg kan scanne dem til en fil så her er spørgsmålene:
1. Hvordan lagrer jeg billedfiler i min access 2000 DB
2. Og ligeså vigtigt hvordan storer jeg dem i DB
3. Hvis muligt, kan jeg så aktivere min scanner fra en website (det ville jo være smart da jeg så kunne åbne sagen og scanne direkte til DB) jeg ved bare ikke hvordan :-)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg er ikke helt sikker på det her, men måske det kan hjælpe:
På en SQL Server kan man oprette en felt som indeholder binary data. Det benytter jeg til at gemme billeder i - men det kunne jo ligeså godt være word doks, excel ark, etc.
jeg har gjort således: <% ' Create a FileSystemObject to use in reading the images in the folder set fs = Server.CreateObject("Scripting.FileSystemObject") ' Create an object for the folder Set cf = fs.GetFolder(Server.mappath(mappe)) Set fi = cf.files
' Open a Stream object Set mstream = Server.CreateObject("ADODB.Stream") mstream.Type = adTypeBinary mstream.Open
' Check if an image with the .jpeg extension exists filsti_jpg = "grafik/standard.jpg" if fs.FileExists(filsti_jpg) then ' Load the image file into the stream mstream.LoadFromFile filsti_jpg ' Save the extension ext = "jpg" end if
' Check if a image already exists for this customer HentPoster saveRs, conn SQL = "SELECT * FROM myTabel WHERE id='" & id &"'" saveRs.Open SQL, conn, 1, 3
' If the customer doesn't have an image then create a new row if saveRs.bof or saveRs.eof then saveRs.addnew end if
' Save alle the information about the image to the database saveRs.Fields("img_id").Value = "0" saveRs.Fields("img").Value = mstream.Read saveRs.Fields("ext").Value = ext saveRs.Update saveRs.close
' Kill the stream object Set mstream = nothing %>
Det var jo kun svar på 1 & 2.. håber nogle andre kan hjælpe dig med 3
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.