mdbdata.bas

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· BAS 代码 · 共 20 行

Attribute VB_Name = "Mdbdata"
'在工程中引用Microsoft   ActiveX   Data   Objects   2.x   Library
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Msgdata()

On Error GoTo Mderr

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Msda.Mdb;Persist Security Info=False"
cn.Open
Set rs = cn.Execute("select * from Data")

Exit Sub

Mderr:

End Sub