Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\2000数据库名.mdb;Jet OLEDB:Database Password=数据库密码;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from 表名", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs ’赋值于表控件
别忘记引用和定义:Option ExplicitDim WithEvents Rs As Recordset
1.用ado,简单方便,但你在上面已经说的很清楚,这种方法你不会采用,所以不说了。
2.把你的access文件转换成旧的版本。方法是用access2000打开你的数据库文件,然后:工具-》数据库实用工具-》转换数据库-》到早期access数据库,最后给数据库另起一个名字保存。。这样,你就可以用你上面所说的方法去访问这个旧版本的加密数据库了。。但这方法有些麻烦,就是以后当你直接用access2000以上的版本打开这个文件的时候,它就会弹出警告窗口说这是个旧版本的文件啊,你是要打开还是要转换成新版本啊,甚至可能会告诉你你不能在新版本的access中修改旧版本数据库的内容只能看诸如此类。很烦。如何取舍,自己衡量吧。。
首先我在里面存的是 excel , 我要打幵它,該怎麼做?
第二 我要把記錄復制,又該怎麼實現呢?
答出一個就給高分!
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\2000数据库名.mdb;Jet OLEDB:Database Password=数据库密码;"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from 表名", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs
’赋值于表控件
2.自己按需要编写sql语句,很简单的。。
ado不會怎麼做事呀?
問題是要調出ACCESS中的 OLE 對象 類型的數據怎麼做我不知道呀.那個里面想的是excel文件. 我現在有 DATA控件和OLE控件呀.
你要知道我想干甚麼才行呀.