程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> Access數據庫入門 >> 調用Access數據庫的報表

調用Access數據庫的報表

編輯:Access數據庫入門
以下是引用片段:
Dim db As ADODB.Connection
  Dim i As Integer '用來標記前一個控件的編號
  Dim ii As Integer '用來標記目前控件的標號
  Dim path As String
  Set db = New ADODB.Connection
      db.CursorLocation = adUseClient '設置游標引擎的位置為客戶游標。
      db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "GPSdata.mdb;Persist Security Info=False"
'其中app.path是當前路徑,gpsdata.mdb就是你想要連接的access數據庫
  Set adoprimaryRS = New ADODB.Recordset
      path = "select * from vehicle order by v_no"
         'vehicle就是你想要打開的表 
     adoprimaryRS.Open path, db, _ adOpenDynamic,adLockBatchOptimistic
 
'判斷表是否為空
If adoprimaryRS.RecordCount = 0 Then
      MsgBox "數據庫空", vbDefaultButton1
      Exit Sub
End If
      adoprimaryRS.MoveFirst
      '將記錄移到第一行
      '通過adopriamryrs.fields可以訪問你想的數據!
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved