Avatar billede martin_sj Nybegynder
07. marts 2001 - 10:02 Der er 4 kommentarer og
1 løsning

ligge billeder i access (oledb rutine)?

Jeg har en masse billeder liggende i en mappe på disken. Nu vil jeg føre dem over i min database, dette er da også lykkedes, men jeg ønsker en rutine der kan indsætte alle billederne bare ved et tryk på en knap! kan nogen hjælpe?
Avatar billede willi Nybegynder
19. marts 2001 - 19:20 #1
Hææ...
Jeg er blot nået dertil hvor du er færdig og vil spørge om hvordan du har fået billederne lagt i databasen...

eller hvor man kan studere mulighederne nærmere.

Det kan være at jeg kobler mig på dit sprøgsmål med nogle flere point. Jeg skal lige se om de andre spørgsmål jeg har skal afsluttes.

Hilsen
Willi
Avatar billede martin_sj Nybegynder
19. marts 2001 - 22:33 #2
Hej Willi
Du skal vælge datatype Ole-objekt til en entitet i din tabel. Herefter kan du indsætte et objekt såsom billed, musik og andre filer.Sub
Her er et eks. på hvordan det kan gøres ved hjælp af kode.
Command1_Click
    OLE1.Class = \"Excel.Sheet\"    \' Set class name.
    \' Specify type of object.
    OLE1.OLETypeAllowed = acOLELinked
    \' Specify source file.
    OLE1.SourceDoc = \"C:\\Excel\\Oletext.xls\"
    \' Specify data to create link to.
    OLE1.SourceItem = \"R1C1:R5C5\"
    \' Create linked object.
    OLE1.Action = acOLECreateLink
    \' Adjust control size.
    OLE1.SizeMode = acOLESizeZoom
End Sub
Brug evt. hjælp i access om ole-objekt.
Jeg har stadig brug for en rutine der kan opdatere en hel database og ikke kun en record af gangen...
Avatar billede larsen Nybegynder
15. maj 2001 - 11:38 #3
Du kan f.eks. lave det som :

Dim dbs As Database, rst As Recordset
\' Return reference to current database.
Set dbs = CurrentDb
\' Open recordset on Orders table.
Set rst = dbs.OpenRecordset(\"Tabelnavn\")
rst.movefirst
do while not rst.eof
  with rst.felt
    .OLE1.Class = \"Excel.Sheet\"    \' Set class name.
    \' Specify type of object.
    .OLE1.OLETypeAllowed = acOLELinked
    \' Specify source file.
    .OLE1.SourceDoc = \"C:\\Excel\\Oletext.xls\"
    \' Specify data to create link to.
    .OLE1.SourceItem = \"R1C1:R5C5\"
    \' Create linked object.
    .OLE1.Action = acOLECreateLink
    \' Adjust control size.
    .OLE1.SizeMode = acOLESizeZoom
  end with
  rst.movenext
loop
Avatar billede martin_sj Nybegynder
15. maj 2001 - 12:44 #4
Hej Larsen!

Jeg vil forsøge dit forslag, når jeg en dag har tid! Jeg lukker spørgsmålet og takker for svaret!
Avatar billede larsen Nybegynder
15. maj 2001 - 12:47 #5
det var så lidt
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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