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

Office VBA中的数据库访问方法小结数据库连接DSN的建立方法；【参见附件：《在Windows7中配置sql2008数据源》 】在VBA中链接数据库的方法 参见案例其中连接字符串中的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 Function数据库查询语句的常用写法:构建sql查询语句，用sql语句打开结果集；rs.open sql, Cnn, adOpenKeyset, adLockOptimistic结果集的遍历和取值；关闭结果集。案例代码如下：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 = NothingUpdate、Insert等语句的写法: dbCnn.Execute sql构建SQL语句通过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-PC\SQLEXPRESS我的数据库：myMusic第二步：建立数据源（连续的图片）控制面板里面的“管理工具”?用户DSN，不是系统DSN ，注意了～～单击“添加”～～用sql sever 2008 数据库，当然是 SQL Server ?，不要选错了 ，不然下面的功夫全泡汤了，而且测试也不会通过的～～注意了：服务器的名称并不是（.）或者localhost 之类，要根据自己的数据库服务器来定，上面已经说了怎么找了～～～更改成：使用密码帐号登录～～～需要更改的地方～～～点击“完成”～～～测试数据源～～～～成功了！?数据源的配置到此结束，也成功了，下面一篇就要说ODBC编程的细节。