Kuidas sisestada fail Access andmebaasi Visual Basic abil

Autor: Eugene Taylor
Loomise Kuupäev: 14 August 2021
Värskenduse Kuupäev: 1 Detsember 2024
Anonim
Marlin Firmware 2.0.x Explained
Videot: Marlin Firmware 2.0.x Explained

Sisu

Faili Microsoft Access 2007 andmebaasi saab lisada Visual Basic abil. Access 2007 pakub uut andmetüüpi, mida nimetatakse manusena, mida saab kasutada kõigi andmebaaside, näiteks Wordi failide või digitaalsete piltide salvestamiseks. Te ei pea muretsema andmebaasi suuruse pärast, kuna Access 2007 tihendab failid automaatselt. Ühe kirje abil saab käsitleda ka mitmeid manuseid.


Juhised

Ühendage failid juurdepääsu andmebaasi Visual Basic abil (kahekordsed numbrid - arvutiteaduse pilt drx poolt Fotolia.com)

  1. Käivitage Microsoft Access 2007 ja looge tabel nimega "Tabel 1". Lisage väli "Failid" ja määrake "Andmetüüp" väärtuseks "Manus". Klõpsake "Database Tools" ja valige "Macro" paneelil "Visual Basic". Looge tekstifail "C:" nimega "attachThis.File.txt".

  2. Looge uus sub, kirjutades "Sub addAttachments ()" ja deklareerige selle sees järgmised muutujad: "Dim db Nagu DAO.Database Dim rst nagu DAO.

  3. Tüüp "Set db = CurrentDb Set rst = db.OpenRecordset (" Tabel 1 ") rst.AddNew" uue kirje lisamiseks "Table1".


  4. Tüüp "Määra rstChld = rst.Fields (" Manused "). Väärtus", et määrata lapse registrimuutuja. Sisestage "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" uue välja lisamiseks ja binaarandmete salvestamiseks väljale

  5. Tüüp "fldAttach.LoadFromFile" C: lisage see fail failile "rstChld.Update" ja lisage registrit.

  6. Sisestage "rstChld.Close rst.Update", et sulgeda salvestusseade ja uuendada esimest salvestust. Sisestage "rst.Close", et sulgeda salvestusseade ja "End Sub" viimasel real, kui vaja.

Kuidas

  • Teie viimane alam peaks olema selline:
  • "Sub addAttachments ()
  • Dim db Nagu DAO.Database
  • Dim rst nagu DAO.Recordset
  • Dim rstChld nagu DAO.Recordset2
  • Dim fldAttach nagu DAO.Field2
  • Määra db = CurrentDb
  • Set rst = db.OpenRecordset ("Tabel 1")
  • rst.AddNew
  • Määra rstChld = rst.Fields ("Manused").
  • rstChld.AddNew
  • Määra fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: kinnita seeFile.txt"
  • rstChld.Update
  • rstChld.Sulge
  • rst.Update
  • rst.Close
  • Lõpeta alam