VB中访问数据库的操作

ADO微软公司的ADO(ActiveXDataObjects)是一个用于存取数据源的COM组件。允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。ADO包含一些顶层的对象：连接：代表到数据库的连接记录集：代表数据库记录的一个集合命令：代表一个SQL命令记录：代表数据的一个集合ADO组件的使用需要利用支持COM的高级语言，例如ASP中的VBScript或者VisualBasic，甚至Delphi。配置ODBC数据源‘返回连接数据库时用到的连接字符串PublicFunctionConnectString()AsStringConnectString=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(ByValSQLAsString)DimcnnAsADODB.ConnectionOnErrorGoToExecuteSQL_ErrorSetcnn=NewADODB.Connectioncnn.OpenConnectStringcnn.ExecuteSQLExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitSubExecuteSQL_Error:ResumeExecuteSQL_ExitEndSub‘定义执行查询的函数PublicFunctionQuery(ByValSQLAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetOnErrorGoToQuery_ErrorSetcnn=NewADODB.Connectioncnn.OpenConnectStringSetrst=NewADODB.Recordsetrst.OpenSQL,cnn,adOpenKeyset,adLockOptimisticSetQuery=rstQuery_Exit:Setrst=NothingSetcnn=NothingExitFunctionQuery_Error:ResumeQuery_ExitEndFunctionPublicFunctionDbTest()AsIntegerDimcnnAsADODB.ConnectionOnErrorGoToDbTest_ErrorDbTest=-1Setcnn=NewADODB.Connectioncnn.OpenConnectStringtxtSQL=SELECT*FROM状态Setrst=NewADODB.Recordsetrst.OpentxtSQL,cnnIfrst.EOF()=FalseThenDbTest=rst.Fields(0)EndIfWhilerst.EOF=Falseprintrs![pass]rs.MoveNextwendcnn.CloseSetcnn=NothingSetrst=NothingExitFunctionDbTest_Error:Setcnn=NothingEndFunction记录集对象OPEN方法的语法格式：RecordSet对象.OpenSource,ActiveConnection,[CousorType],[lockType],[Option]Source:Command对象名或SQL语句或数据表名ActiveConnection:Connection对象名或包含数据库连接信息的字符串CursorType:0(ForwardOnly):只能在数据库里向前进行浏览操作，查询效率最佳。1(Keyset):能在数据库里进行完整的浏览操作，对于数据的新增与删除并不会自动更新，但对于修改目前被指向数据记录的数据，则会自动更新。2(Dynamicset):能在数据库里进行完整的浏览操作，对于目前被指向的数据记录内的数据进行新增、删除及修改的操作都会自动更新，达到及时更新的效果，但是查询效率也因此降低。3(Staticset):能在数据库里进行完整的浏览操作，对于目前被指向的数据记录内的数据进行新增、删除及修改的操作都会自动更新，但是却不会及时地反映到其他用户的数据里，也就是说，其他用户并不会马上看到这项数据结果。LockType参数，默认值是1：1(ReadOnly):只读模式，只允许用户对数据库进行读取的操作。2(Pessimistic):代表保守模式（悲观），可以增加、修改、删除记录，但是当记录处于被维护的状态时，就会被锁定。3(Optimistic):表示开放模式（乐观），可以增加、修改、删除记录，而且只有保存文件时才会锁定记录数据，否则即使是在维护的状态时，仍然可以进行增加、修改、删除的操作。4(BatchOlotimistic):表示开放锁定模式，记录数据都会在Bacth的模式下被使用。Option参数：Adcmdtext(SQL语句)Adcmdtable(表名)Adcmdstoreproc(存储过程)Adcmdunknown(命令类型未知)