调用access报表
点击次数：27 次 发布日期：2008-11-22 13:50:54 作者：源代码网
|
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可以访问你想的数据！ 源代码网供稿. |
