Avatar billede bigtrouble Nybegynder
22. oktober 2002 - 12:16 Der 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 :-)


200 point for svar.
Avatar billede bigtrouble Nybegynder
22. oktober 2002 - 12:17 #1
hov spørgsmål 1 og 2 er vist det samme :)
Avatar billede rasmuslund Nybegynder
22. oktober 2002 - 13:45 #2
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

Rasmus :-)
Avatar billede medions Nybegynder
22. oktober 2002 - 14:49 #3
Avatar billede bigtrouble Nybegynder
23. oktober 2002 - 07:05 #4
Damn, du ved sgu mange ting 'medions'  :)

Jeg leger lige med det, men point til dig.
Avatar billede medions Nybegynder
23. oktober 2002 - 07:39 #5
;o)
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester