程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> VB通過DAO訪問Access數據庫

VB通過DAO訪問Access數據庫

編輯:關於Access數據庫
Visual Basic對Access數據庫的集成非常緊密,通常由以下幾個部分組成。

  引用DAO類型庫


  1、從“工程”菜單中選擇“引用”菜單項;

  2、在可引用列表框中選擇“Microsoft DAO 3.51 Object Library”項。

  3、最後“確定”即可

  設置DAO數據類型變量

  DAO數據類型變量共分成兩種:

  1、Database變量

  對應於Access數據庫,通常在模塊中被定義為Public全程變量:

  Public AccessDBF As Database

  '定義數據庫對象實例AccessDBF

  2、RecordSet變量

  對應於Access數據庫中的一個表,可定義為全程變量或局部變量,亦可作為函數參數進行傳遞:

  Dim thePrintTable As RecordSet

  '定義一個表對象實例thePrintTable

  打開DAO數據類型

  1、打開Access的方法

  通常可設置一個專門的Public函數用來打開一個Access數據庫,並且該函數在啟動窗體的Private Sub Form_load ( )過程中被調用,函數定義格式如下:

  Public Sub OpenDatabase ( )

  Dim sConeect As String

  SConnect = ";PWD = 8830428; UID = admin "

  '設置打開時的用戶名、口令等參數

  Set AccessDBF = Nothing

  '確認關閉對象實例

  Set AccessDBF = WorksPaces (0 ).OpenDatabase (App.Path&&"/ToXls.MDB",False,sConnect)

  '打開當前路徑的ToXls.MDB數據庫

  End Sub

  2、打開RecordSet的方法

  RecordSet遵循即用即開的原則,所以它通常在函數中打開

  Set thePrintTable = AcessDBF.OpenRecordSet ( "Table_1",dbOpenSnapshot )

  相關的數據操作

  數據實際需要對Access表中的記錄、字段、數據項進行操作。下列雙重循環把數據輸出到Excel對應的單元格中:

  For j = 0 To 2

  For I = 0 To 3

  ThePrintTable.MoveNext

  Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = thePrintTable.FIElds (0)

  Next I

  Next j

  關閉數據庫

  1、關閉Database

  它通常在整個應用程序的最後進行操作,即通常出現在Private Sub Form_unload (Cannel As Interger )過程中。命令格式實例如下:

  AccessDBF.Close

  2、關閉RecordSet

  它遵循用完即關的原則,所以通常出現在函數中。當完成了相關的數據操作後就關閉它,下次再用時再打開即可:

  thePrintTable.Close

  結論:通過系統集成開發應用程序的輸入和輸出模塊,它一方面充分利用了OLE對象程序的優點,輕松完成人機界面設計,使程序員從繁瑣而又簡單的點、線、框等定位中脫離出來;另一方面,由於充分利用了用戶操作熟練的軟件作為人機界面,使用戶有親切感和熟練操作的能力,從而能夠充分發揮所開發的應用程序的功能。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved