VB中访问数据库的操作.docx
- 文档编号:7845474
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:9
- 大小:357.37KB
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(命令类型未知)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 访问 数据库 操作