VB中访问数据库的操作

《VB中访问数据库的操作》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ADO微软公司的ADO(ActiveXDataObjects)是一个用于存取数据源的COM组件。允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。ADO包含一些顶层的对象：连接：代表到数据库的连接记录集：代表数据库记录的一个集合命令：代表一个SQL命令记录：代表数据的一个集合ADO组件的使用需要利用支持COM的高级语言，例如ASP中的VBScript或者VisualBasic，甚至Delphi。配置ODBC数据源‘返回连接数据库时用到的连接字符串PublicFunctionConnectString()AsStri

2、ngConnectString="DSN=jsj.dsn;UID="&Trim(Str_username)&";PWD="&Trim(Str_userpw)&""‘ConnectString="DRIVER=SQLServer;SERVER=127.0.0.1;UID=sa;PWD=123;DATABASE=man"‘ConnectString="provider=microsoft.jet.oledb.4.0;datasource=C:db1.mdb;" EndFunction‘定义执行插入、更新、删除的方法PublicSubExecuteSQL

3、(ByValSQLAsString)DimcnnAsADODB.ConnectionOnErrorGoToExecuteSQL_ErrorSetcnn=NewADODB.Connectioncnn.OpenConnectStringcnn.ExecuteSQLExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitSubExecuteSQL_Error:ResumeExecuteSQL_ExitEndSub‘定义执行查询的函数PublicFunctionQuery(ByValSQLAsString)AsADOD

4、B.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetOnErrorGoToQuery_ErrorSetcnn=NewADODB.Connectioncnn.OpenConnectStringSetrst=NewADODB.Recordsetrst.OpenSQL,cnn,adOpenKeyset,adLockOptimisticSetQuery=rstQuery_Exit:Setrst=NothingSetcnn=NothingExitFunctionQuery_Error:Resume

5、Query_ExitEndFunctionPublicFunctionDbTest()AsIntegerDimcnnAsADODB.ConnectionOnErrorGoToDbTest_ErrorDbTest=-1Setcnn=NewADODB.Connectioncnn.OpenConnectStringtxtSQL="SELECT*FROM状态"Setrst=NewADODB.Recordsetrst.OpentxtSQL,cnnIfrst.EOF()=FalseThenDbTest=rst.Fields(0)EndIfWhilerst.EOF

6、=Falseprintrs![pass]rs.MoveNextwendcnn.CloseSetcnn=NothingSetrst=NothingExitFunctionDbTest_Error:Setcnn=NothingEndFunction记录集对象OPEN方法的语法格式：RecordSet对象.OpenSource,ActiveConnection,[CousorType],[lockType],[Option]Source:Command对象名或SQL语句或数据表名ActiveConnection:Connection对象名或包含数据库连接信

7、息的字符串CursorType:0(ForwardOnly):只能在数据库里向前进行浏览操作，查询效率最佳。1(Keyset):能在数据库里进行完整的浏览操作，对于数据的新增与删除并不会自动更新，但对于修改目前被指向数据记录的数据，则会自动更新。2(Dynamicset):能在数据库里进行完整的浏览操作，对于目前被指向的数据记录内的数据进行新增、删除及修改的操作都会自动更新，达到及时更新的效果，但是查询效率也因此降低。3(Staticset):能在数据库里进行完整的浏览操作，对于目前被指向的数据记录内的数据进行新增、删除及修改的操作都会自动更新，但是

8、却不会及时地反映到其他用户的数据里，也就是说，其他用户并不会马上看到这项数据结果。LockType参数，默认