VB中访问数据库的操作.docx

VB中访问数据库的操作.docx

《VB中访问数据库的操作.docx》由会员分享，可在线阅读，更多相关《VB中访问数据库的操作.docx（9页珍藏版）》请在冰豆网上搜索。

VB中访问数据库的操作

ADO

微软公司的ADO（ActiveXDataObjects）是一个用于存取数据源的COM组件。

允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。

ADO包含一些顶层的对象：

连接：

代表到数据库的连接

记录集：

代表数据库记录的一个集合

命令：

代表一个SQL命令

记录：

代表数据的一个集合

ADO组件的使用需要利用支持COM的高级语言，例如ASP中的VBScript或者VisualBasic，甚至Delphi。

配置ODBC数据源

‘返回连接数据库时用到的连接字符串

PublicFunctionConnectString（）AsString

ConnectString="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.Connection

OnErrorGoToExecuteSQL_Error

Setcnn=NewADODB.Connection

cnn.OpenConnectString

cnn.ExecuteSQL

ExecuteSQL_Exit:

Setrst=Nothing

Setcnn=Nothing

ExitSub

ExecuteSQL_Error:

ResumeExecuteSQL_Exit

EndSub

‘定义执行查询的函数

PublicFunctionQuery（ByValSQLAsString）AsADODB.Recordset

DimcnnAsADODB.Connection

DimrstAsADODB.Recordset

OnErrorGoToQuery_Error

Setcnn=NewADODB.Connection

cnn.OpenConnectString

Setrst=NewADODB.Recordset

rst.OpenSQL,cnn,adOpenKeyset,adLockOptimistic

SetQuery=rst

Query_Exit:

Setrst=Nothing

Setcnn=Nothing

ExitFunction

Query_Error:

ResumeQuery_Exit

EndFunction

PublicFunctionDbTest（）AsInteger

DimcnnAsADODB.Connection

OnErrorGoToDbTest_Error

DbTest=-1

Setcnn=NewADODB.Connection

cnn.OpenConnectString

txtSQL="SELECT*FROM状态"

Setrst=NewADODB.Recordset

rst.OpentxtSQL,cnn

Ifrst.EOF（）=FalseThen

DbTest=rst.Fields（0）

EndIf

Whilerst.EOF=False

printrs!

[pass]

rs.MoveNext

wend

cnn.Close

Setcnn=Nothing

Setrst=Nothing

ExitFunction

DbTest_Error:

Setcnn=Nothing

EndFunction

记录集对象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（命令类型未知）