OfficeVBA中的数据库访问方法小结.docx

Office VBA中的数据库访问方法小结a) 数据库连接DSN的建立方法；i. 【参见附件：在Windows7中配置sql2008数据源 】b) 在VBA中链接数据库的方法 参见案例i. 其中连接字符串中的Data Source就是在a)中建立的。这里的. 指的是本机数据库，也可以配置为DSN名字。Public Function getCnn() As ADODB.Connection 调用本函数需要注意使用完毕后的关闭。Set getCnn = New ADODB.ConnectionDim x As IntegergetCnn.Open Provider=SQLOLEDB; User ID=OutlookUser; Password=123456; Data Source=.; Initial Catalog =XYZ If getCnn.Errors.Count 0 Then For x = 1 To getCnn.Errors.Count MsgBox getCnn.Errors(x).Description, vbInformation, XX模块数据库连接出错！ Next x End IfEnd Functionc) 数据库查询语句的常用写法:i. 构建sql查询语句，ii. 用sql语句打开结果集；rs.open sql, Cnn, adOpenKeyset, adLockOptimisticiii. 结果集的遍历和取值；iv. 关闭结果集。案例代码如下：Dim sql As String, rs As ADODB.RecordsetSet rs = New ADODB.Recordsetsql = SELECT order by TaskPriority, TaskTypers.Open sql, dbCnn, adOpenKeyset, adLockOptimisticDo While Not rs.EOF taskName = rs(0) taskDesc = rs(1) rs.MoveNextLooprs.CloseSet rs = Nothingd) Update、Insert等语句的写法: dbCnn.Execute sqli. 构建SQL语句ii. 通过Connection执行SQL语句。案例如下：Dim dbCnn As ADODB.ConnectionSet dbCnn = getCnnsql = UPDATE PWP.dbo.Metadata _ + vbCrLf + SET _ + vbCrLf + MetaDataValue = + tmpStr _ + vbCrLf + ,UpdateTimestamp = getdate() _ + vbCrLf + WHERE inTable=(DiaryTasks) dbCnn.Execute sqldbCnn.Close附件：这是ODBC编程编程的第一步：配置数据源。然后通过C语言操作数据源。（完全类似于Windows XP 数据源配置）第一步：现在看到我的数据库服务器和要建立的数据源的数据库名称：我的数据库服务器名称：ZHANGQIJUN-PCSQLEXPRESS我的数据库：myMusic第二步：建立数据源（连续的图片）控制面板里面的“管理工具”用户DSN，不是系统DSN ，注意了单击“添加”用sql sever 2008 数据库，当然是 SQL Server ，不要选错了 ，不然下面的功夫全泡汤了，而且测试也不会通过的注意了：服务器的名称并不是（.）或者localhost 之类，要根据自己的数据库服务器