查看: 574|回复: 2

VBA连接数据库的方法主要有3种,下面归纳一下各自的特...

[复制链接]
论坛徽章:
1
Excel徽章
日期:2018-06-07 16:22:23
发表于 2018-5-8 14:00 | 显示全部楼层 |阅读模式

数据库 SQL 微软 业界 数据库引擎

1.Microsoft Data Access Object(DAO) 
这种方式是直接使用Microsoft Access(Microsoft Jet)数据库引擎。在简单系统或小规模本地系统被使用。

2.Microsoft Active Data Object(ADO)
如果说RDO是业界标准的话,而ADO则是微软独自的连接方式。也称作OLE-DB。
是微软推荐的连接方式,支持复数线程,现渐渐成为主流。
因它也可以通过ODBC连接数据库,所以现在选择RDO的必要性越来越少。

3.Microsoft Remote Data Object(RDO)
Excel97以来,通过ODBC(Microsoft Open Database Connectivity)连接数据库的标准。
市面流行的免费DB如PostgreSQL,MySQL等,基本都是通过ODBC来连接。
除了对象定义和使用与其他连接方式不一样以外,SQL部分基本一致。
因RDO属于旧的连接方式,且RDO不支持客户端复数个线程的同时处理,所以逐渐被ADO取代。
回复

使用道具 举报

论坛徽章:
1
Excel徽章
日期:2018-06-07 16:22:23
 楼主| 发表于 2018-5-8 14:05 | 显示全部楼层
个人感觉还是连接Access最方便。
回复 支持 反对

使用道具 举报

论坛徽章:
1
Excel徽章
日期:2018-06-07 16:22:23
发表于 2018-5-9 12:09 | 显示全部楼层
Excel的VBA连接数据库方法


Sub GetData()     
     Dim strConn As String, strSQL As String 
     Dim conn As ADODB.Connection 
     Dim ds As ADODB.Recordset 
     Dim col As Integer 
     
    '清空电子表格的所有数据      
    Cells.Clear 
     
    '连接数据库的字符串      
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;Initial Catalog=dataname;Data Source=servername" 
    '查询语句 
     strSQL = "select * from table1" 
     Set conn = New ADODB.Connection 
     Set ds = New ADODB.Recordset 
    '打开数据库连接 
     conn.Open strConn 
     
     With ds 
   '根据查询语句获得数据 
         .Open strSQL, conn 
         
         '自动控制加入所有列标题 
         For col = 0 To ds.Fields.Count - 1 
    '请注意Offset(0, col)中的参数一定要正确噢 
             Range("A1").Offset(0, col).Value = ds.Fields(col).Name 
         Next 
         
        '加入所有行数据 
         Range("a1").Offset(1, 0).CopyFromRecordset ds 
     End With 
     
    '以下是关闭数据库连接和清空资源 
     Set ds = Nothing 
     conn.Close 
     Set conn = Nothing 
End Sub 


做完上面的模块后,要调用它就要加入一个事件: 
'我这个是加入一个工作薄打开时就运行GetData方法,也就是自动加载数据 
Private Sub Workbook_Open() 
     Application.Run "GetData" 
End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

 

GMT+8, 2019-8-18 07:09 , Processed in 0.164178 second(s), 34 queries .

关闭

扫一扫加入
本版微信群