• 
  

  hur man bäddar in en fil i en Access-databas med hjälp av Visual Basic

  
  

Du kan bifoga en fil med Visual Basic till en Microsoft Access 2007 -databas . Access 2007 erbjuder en ny datatyp som kallas bifogad fil som du kan använda för att lagra alla typer av dokument i databasen . Du kan lagra filer såsom Word-dokument eller digitala bilder . Du behöver inte oroa dig för din databas storlek sedan Access 2007 komprimerar filer automatiskt. En post kan också hantera flera bifogade filer
1
Starta Microsoft Access 2007 och skapa en tabell som heter " Tabell1 . . " Lägga till ett fält som heter "Files " och definiera " Data Type " som " Attachment "Klicka på " Databas Verktyg " och välj "Visual Basic " på " Macro C . " rutan Skapa en textfil i . " : \ " som heter . attachThisfile. txt "
2
Skapa en ny undersida genom att skriva " Sub addAttachments () " och deklarera följande variabler inne i sub :

" Dim db Som DAO. Database

Dim rst Som DAO. Recordset

Dim rstChld Som DAO. Recordset2

Dim fldAttach Som DAO. Field2 "

3 .
Typ " Set db=CurrentDb

Set rst=db . OpenRecordset ( " Tabell1 " )

rst. AddNew " för att lägga till en ny post till " Tabell1 ".
4 .
Typ " Set rstChld=rst. Fields ( " Bilagor " ) . Value " för att definiera en variabel barn postuppsättning .

Typ " rstChld. AddNew

Set fldAttach=rstChld. Fields ( " FileData " ) "för att lägga ett nytt fält och att fastställa det område som innehåller binära data
5
Typ " fldAttach. LoadFromFile "C : . \ attachThisfile. txt "

rstChld . Uppdatera "för att ladda filen som bifogas och att uppdatera posten .
6 .
typ " rstChld . Stäng

rst. Update " för att stänga recordset och uppdatera första postuppsättningen.

Skriv " rst. Close " för att stänga postuppsättningen och " End Sub " på sista raden om det behövs


tips och varningar




Din sista sub se ut så här : .

" Sub addAttachments ()

Dim db Som DAO. Database

Dim rst Som DAO. Recordset

Dim rstChld Som DAO. Recordset2

Dim fldAttach Som DAO. Field2

Set db=CurrentDb

Set rst=db. OpenRecordset ( " Tabell1 " )

RST . SparNy

Set rstChld=rst. Fields ( " Bilagor " ) . Value

rstChld. AddNew

Set fldAttach=rstChld. Fields ( " FileData " )

fldAttach. LoadFromFile "C : \ Avelar \ eHow \ attachThisfile. txt "

rstChld. Update

rstChld. Close

RST . Uppdatering

rst. Close

End Sub "

Previous：nothing Next：Hur aktiverar jag ett javascript mycket enklare ?

Relaterade artiklar