Jak osadzić plik w bazie danych programu Access przy użyciu języka Visual Basic

Zawartość

• Instrukcje
• Jak

Plik można dołączyć do bazy danych programu Microsoft Access 2007 przy użyciu języka Visual Basic. Access 2007 oferuje nowy typ danych o nazwie Załącznik, którego można używać do przechowywania wszystkich typów dokumentów w bazie danych, takich jak pliki Word lub obrazy cyfrowe. Nie musisz martwić się o rozmiar bazy danych, ponieważ program Access 2007 automatycznie kompresuje pliki. Pojedynczy rekord może również obsługiwać wiele załączników.

Instrukcje

Dołącz pliki do bazy danych programu Access przy użyciu języka Visual Basic (cyfry binarne - obraz informatyki drx z Fotolia.com)

1. Uruchom program Microsoft Access 2007 i utwórz tabelę o nazwie „Tabela 1”. Dodaj pole o nazwie „Pliki” i ustaw „Typ danych” na „Załącznik”. Kliknij „Narzędzia bazy danych” i wybierz „Visual Basic” w panelu „Makro”. Utwórz plik tekstowy w „C:” o nazwie „attachThis.File.txt”.

2. Utwórz nowy sub, wpisując „Sub addAttachments ()” i zadeklaruj w nim następujące zmienne: „Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2”

3. Typ „Set db = CurrentDb Set rst = db.OpenRecordset („ Table1 ”) rst.AddNew”, aby dodać nowy rekord do „Table1”.

4. Wpisz „Set rstChld = rst.Fields („ Załączniki ”). Wartość”, aby ustawić zmienną rejestru podrzędnego. Wpisz „rstChld.AddNew Set fldAttach = rstChld.Fields („ DataFile ”)”, aby dodać nowe pole i ustawić pole, w którym przechowywane są dane binarne

   
   

5. Wpisz „fldAttach.LoadFromFile” C: attachThis.file „rstChld.Update”, aby załadować plik do dodania i zaktualizować rejestr.

6. Wpisz „rstChld.Close rst.Update”, aby zamknąć zestaw rekordów i zaktualizować pierwszy zestaw rekordów. Wpisz „rst.Close”, aby zamknąć zestaw rekordów i „End Sub” w ostatniej linii, jeśli to konieczne.

Jak

• Twój ostatni sub powinien wyglądać tak:
• „Sub addAttachments ()
• Dim db Jako DAO.Database
• Najpierw jako DAO.Recordset
• Dim rstChld As DAO.Recordset2
• Dim fldAttach As DAO.Field2
• Set db = CurrentDb
• Ustaw rst = db.OpenRecordset („Tabela1”)
• rst.AddNew
• Ustaw rstChld = rst.Fields („Załączniki”).
• rstChld.AddNew
• Ustaw fldAttach = rstChld.Fields ("FileData")
• fldAttach.LoadFromFile "C: attachThisFile.txt"
• rstChld.Update
• rstChld.Close
• rst.Update
• rst.Close
• End Sub ”