officevba中的数据库访问方法小结

《officevba中的数据库访问方法小结》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、OfficeVBA中的数据库访问方法小结a)数据库连接DSN的建立方法；i.【参见附件：《在Windows7中配置sql2008数据源》】b)在VBA中链接数据库的方法à参见案例i.其中连接字符串中的DataSource就是在a)中建立的。这里的.指的是本机数据库，也可以配置为DSN名字。PublicFunctiongetCnn()AsADODB.Connection'调用本函数需要注意使用完毕后的关闭。SetgetCnn=NewADODB.ConnectionDimxAsIntegergetCnn.Open"Provider=SQL

2、OLEDB;UserID=OutlookUser;Password=123456;DataSource=.;InitialCatalog=XYZ"IfgetCnn.Errors.Count>0ThenForx=1TogetCnn.Errors.CountMsgBoxgetCnn.Errors(x).Description,vbInformation,"XX模块数据库连接出错！"NextxEndIfEndFunctionc)数据库查询语句的常用写法:i.构建sql查询语句，ii.用sql语句打开结果集；rs.opensql,Cnn,ad

3、OpenKeyset,adLockOptimisticiii.结果集的遍历和取值；iv.关闭结果集。案例代码如下：DimsqlAsString,rsAsADODB.RecordsetSetrs=NewADODB.Recordsetsql="SELECT……orderbyTaskPriority,TaskType"rs.Opensql,dbCnn,adOpenKeyset,adLockOptimisticDoWhileNotrs.EOFtaskName=rs(0)taskDesc=rs(1)rs.MoveNextLooprs.Close

4、Setrs=Nothinga)Update、Insert等语句的写法:dbCnn.Executesqli.构建SQL语句ii.通过Connection执行SQL语句。案例如下：DimdbCnnAsADODB.ConnectionSetdbCnn=getCnnsql="UPDATE[PWP].[dbo].[Metadata]"_+vbCrLf+"SET"_+vbCrLf+"[MetaDataValue]="+tmpStr_+vbCrLf+",[UpdateTimestamp]=getdate()"_+vbCrLf+"WHEREinTab

5、le='(DiaryTasks)''"dbCnn.ExecutesqldbCnn.Close附件：这是ODBC编程编程的第一步：配置数据源。然后通过C语言操作数据源。（完全类似于WindowsXP数据源配置）第一步：现在看到我的数据库服务器和要建立的数据源的数据库名称：我的数据库服务器名称：ZHANGQIJUN-PCSQLEXPRESS我的数据库：myMusic第二步：建立数据源（连续的图片）控制面板里面的“管理工具” 用户DSN，不是系统DSN，注意了～～单击“添加”～～用sqlsever2008数据库，当然是SQLServer 

6、，不要选错了，不然下面的功夫全泡汤了，而且测试也不会通过的～～注意了：服务器的名称并不是（.）或者localhost之类，要根据自己的数据库服务器来定，上面已经说了怎么找了～～～更改成：使用密码帐号登录～～～需要更改的地方～～～点击“完成”～～～测试数据源～～～～成功了！ 数据源的配置到此结束，也成功了，下面一篇就要说ODBC编程的细节。