说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请问在VB中使用DAO控件怎样打开ACCESS数据库?

编辑:说三道四文库 发布时间:2018-07-16 04:40
HTML文档下载 WORD文档下载 PDF文档下载
请问在VB中使用DAO控件怎样打开ACCESS数据库?
dim dbf as database
strmdb="test.mdb"
set dbf=workspaces(0).opendatabase(strmdb,false,true)
Dim daodb As dao.Database
Set daodb = OpenDatabase(cdgPath.FileName)‘ACCESS数据库的路径'
up
dim DB as dao.database
dim RST as dao.recordset
set db=dbengine.opendatabase("数据库名")
set rst=db.openrecordset("SQL查询语句或表名",dbopendynaset)
RST即为得到的记录集



学习
dim DB as dao.database
dim RST as dao.recordset
set db=dbengine.opendatabase("数据库名")
set rst=db.openrecordset("SQL查询语句或表名",dbopendynaset)
RST即为得到的记录集
我都试过了,提示类型不匹配,我查了类型都正确。
Dim ado1 As New ADODB.Connection

With ado1

    If .State = adStateOpen Then .Close
    
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & App.Path & "\prtest.mdb;Persist Security Info=False;" 
        
      .CursorLocation = adUseClient
      
      .Open

end with
苹果给楼主拍马屁来啦!多给小的点分哦
苹果给楼主拍马屁来啦!多给小的点分哦
如果数据库带有密码呢?
UPing
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘