Kā iegult failu Access datu bāzē, izmantojot Visual Basic

Autors: Roger Morrison
Radīšanas Datums: 19 Septembris 2021
Atjaunināšanas Datums: 3 Maijs 2024
Anonim
Webinars about Advantages in the planning of welding applications with KUKA Sim 4 0 and KUKA ArcWeld
Video: Webinars about Advantages in the planning of welding applications with KUKA Sim 4 0 and KUKA ArcWeld

Saturs

Varat pievienot failu Microsoft Access 2007 datu bāzei, izmantojot Visual Basic. Access 2007 piedāvā jaunu datu tipu, ko sauc par pielikumu, ko var izmantot, lai saglabātu visu veidu dokumentus jūsu datu bāzē, piemēram, Word failus vai digitālos attēlus. Jums nav jāuztraucas par datubāzes lielumu, jo programma Access 2007 automātiski saspiež failus. Viens ieraksts var apstrādāt arī vairākus pielikumus.


Instrukcijas

Pievienojiet failus piekļuves datu bāzei, izmantojot Visual Basic (binārie cipari - datorzinātnes attēls ar drx no Fotolia.com)

  1. Startējiet Microsoft Access 2007 un izveidojiet tabulu ar nosaukumu "Tabula 1". Pievienojiet lauku "Faili" un iestatiet "Datu tips" uz "Pielikums". Noklikšķiniet uz "Datu bāzes rīki" un "Makro" panelī atlasiet "Visual Basic". Izveidojiet teksta failu "C:" nosaukumā "attachThis.File.txt".

  2. Izveidojiet jaunu apakšrakstu, ierakstot "Sub addAttachments ()" un deklarējiet šādus mainīgos lielumus tajā: ​​"Dim db Kā DAO.Database Dim rst kā DAO.Recordset Dim rstChld As DAO.

  3. Tips "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew", lai pievienotu jaunu ierakstu "Table1".


  4. Ierakstiet "Iestatiet rstChld = rst.Fields (" Pielikumi "). Vērtība", lai iestatītu bērna reģistra mainīgo. Ierakstiet "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")", lai pievienotu jaunu lauku un iestatītu lauku, kurā tiek glabāti bināri dati

  5. Ierakstiet "fldAttach.LoadFromFile" C: pievienojiet to.failam "rstChld.Update", lai ielādētu pievienojamo failu un atjauninātu reģistru.

  6. Ierakstiet "rstChld.Close rst.Update", lai aizvērtu ierakstu un atjauninātu pirmo ierakstu. Ja nepieciešams, ierakstiet "rst.Close", lai aizvērtu ieraksta ierakstu un "End Sub" pēdējā rindā.

Kā

  • Jūsu pēdējam sub vajadzētu izskatīties šādi:
  • "Sub addAttachments ()
  • Dim db Kā DAO.Database
  • Dim rst Kā DAO.Recordset
  • Dim rstChld Kā DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Iestatiet db = CurrentDb
  • Iestatīt rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Iestatiet rstChld = rst.Fields ("Pielikumi").
  • rstChld.AddNew
  • Iestatiet fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: arThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Beigt Sub