VB、ASP 数据库操作工具类：DataTool，封装了常用的数据库操作

虽然现在基本不写VB和ASP了，但感觉这个工具类还是有点意义的！

 

注释里添加了方法说明和示例，应该可以很容易看懂

 

复制下面的源代码，在VB中，新建模块，粘贴代码，并将模块名称改为：DataTool，保存后即可使用。

 

另外，想在VB中使用ADODB，需要引入相应的组件：Microsoft ActiveX Data Object 2.8 Library

 

发表后才发现。。。格式乱的离谱。。。好在粘贴到VB里之后又变回来了！！

 

'============================================================================================================================== ' ' VB、ASP 数据库操作工具类 DataTool v1.0 ' ' @Author : 网无忌 ' @Email : netwild@163.com ' @Blog : http://blog.itplus.com.cn ' ' ---------------------------------------------------------------------------------------------------------------------- ' ' 说明：该工具类封装了对于数据库的常用操作 ' 包括：建立数据库连接、断开数据库连接、查询数据、执行更新四个部分 ' ' ---------------------------------------------------------------------------------------------------------------------- ' ' 方法： ' ' ┌─────────────────┬───────┬────────────────────────────────┐ ' │ 方法名称 │返回值 │描述 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │1) DataTool.dbOpen │Boolean │建立数据库连接。 │ ' │ │ │若当前连接已建立，则使用现有连接； │ ' │ │ │否则创建新的连接对象 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │2) DataTool.dbClose │无 │关闭数据库连接。 │ ' │ │ │若当前连接已关闭，则直接返回； │ ' │ │ │否则直接关闭连接，并销毁连接对象，释放内存 │ ' │ │ │※ 建议在窗体注销或页面结束时手动调用该方法，将连接销毁 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │3) DataTool.find(sql) │RecordSet │执行简单的数据库查询操作，游标仅允许向前单向移动，结果集只读 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │4) DataTool.findDynamic(sql) │RecordSet │执行动态的数据库查询操作，游标允许双向移动，结果集只读 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │5) DataTool.findStatic(sql) │RecordSet │执行静态的数据库查询操作，游标允许双向移动，结果集只读 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │6) DataTool.findAndEdit(sql) │RecordSet │执行动态的数据库查询操作，游标允许双向移动，结果集可单条更新 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │6) DataTool.findAndEditBatch(sql) │RecordSet │执行动态的数据库查询操作，游标允许双向移动，结果集可批量更新 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │7) DataTool.execute(sql) │Boolean │执行更新操作，例如：Insert、Update、Delete等 │ ' ├─────────────────┼───────┼────────────────────────────────┤ ' │8) DataTool.getErr │String │返回错误描述信息 │ ' └─────────────────┴───────┴────────────────────────────────┘ ' ' ---------------------------------------------------------------------------------------------------------------------- ' ' 示例： ' ' 1) 简单的检索数据： ' ' Set rs = DataTool.find("select * from tableName") ' If rs Is Nothing Then ' MsgBox "SQL语句不正确，检索失败！" ' Else ' MsgBox rs("fieldName") ' End If ' ' find方法返回的RecordSet对象支持：MoveNext、MoveLast方法；但不支持：MovePrevious、MoveFirst、recordCount等方法 ' ' 2) 检索数据，并需要返回总记录数或反向移动游标： ' ' Set rs = DataTool.findDynamic("select * from tableName") ' If rs Is Nothing Then ' MsgBox "SQL语句不正确，检索失败！" ' Else ' rs.MoveNext '下一条 ' rs.MovePrevious '上一条 ' rs.MoveLast '最后一条 ' rs.MoveFirst '第一条 ' MsgBox rs.RecordCount '总记录条数 ' End If ' ' findDynamic方法返回的RecordSet对象支持：MoveNext、MoveLast、MovePrevious、MoveFirst、recordCount等方法 ' ' 3) 检索数据，并需要进行修改： ' ' Set rs = DataTool.findAndEdit("select * from tableName") ' If rs Is Nothing Then ' MsgBox "SQL语句不正确，检索失败！" ' Else ' rs.AddNew ' rs("fieldName") = "新数据" ' rs.Update ' End If ' ' 4) 检索数据，并需要进行批量修改： ' ' Set rs = DataTool.findAndEditBatch("select * from tableName") ' If rs Is Nothing Then ' MsgBox "SQL语句不正确，检索失败！" ' Else ' Do Until rs.Eof ' rs("click") = rs("click") + 1 ' rs.MoveNext ' Loop ' rs.UpdateBatch ' End If ' ' 5) 执行SQL语句直接对数据库进行添加操作 ' ' DataTool.execute "insert into table values(1,'新记录')" ' ' 6) 执行SQL语句直接对数据库进行修改操作 ' ' DataTool.execute "update table set fieldName='更新后的记录' where id=1" ' ' 7) 执行SQL语句直接对数据库进行删除操作 ' ' DataTool.execute "delete from table where id=1" ' '============================================================================================================================== Dim conn As ADODB.Connection Dim ErrDesc As String Dim rs, rsad As ADODB.Recordset '函数：打开数据库连接 '参数：无 '返回：Boolean 连接数据库成功：true；连接失败：false Function dbOpen() As Boolean If conn Is Nothing Then Set conn = New ADODB.Connection End If If conn.State Then ErrDesc = "" dbOpen = True Exit Function End If Dim DataBasePath, DataBaseName, DataBaseUid, DataBasePwd As String Dim connStr As String '----------------------------------------------------- DataBasePath = "192.168.0.1" '数据库服务器地址 DataBaseName = "myDb" '数据库名称 DataBaseUid = "sa" '登录名称 DataBasePwd = "" '登录密码 '----------------------------------------------------- connStr = "provider=SQLOLEDB;Data Source =" & DataBasePath & ";database=" & DataBaseName & ";uid=" & DataBaseUid & ";pwd=" & DataBasePwd conn.ConnectionTimeout = 3 On Error Resume Next conn.Open connStr If Err Then ErrDesc = "数据库连接失败！" dbOpen = False Else ErrDesc = "" dbOpen = True End If End Function '函数：关闭数据库连接 '参数：无 '返回：无 Function dbClose() If conn Is Nothing Then Exit Function If conn.State = 0 Then Exit Function conn.Close Set conn = Nothing End Function '函数：执行查询（单向游标，只读） '参数：strSql String 要执行的SQL字符串 '返回：RecordSet 或 Nothing（数据库连接失败、SQL语句有错误时） Function find(ByVal strSql As String) As ADODB.Recordset If Not dbOpen Then Set find = Nothing: Exit Function Dim rsTmp As ADODB.Recordset On Error Resume Next Set rsTmp = conn.execute(strSql) If Err Then ErrDesc = "检索数据库时发生错误！" Set find = Nothing Else ErrDesc = "" Set find = rsTmp End If End Function '函数：执行查询（动态游标，双向，只读） '参数：strSql String 要执行的SQL字符串 '返回：RecordSet 或 Nothing（数据库连接失败、SQL语句有错误时） Function findDynamic(ByVal strSql As String) As ADODB.Recordset If Not dbOpen Then Set findDynamic = Nothing: Exit Function Dim rsTmp As New ADODB.Recordset On Error Resume Next rsTmp.Open strSql, conn, 2, 1 If Err Then ErrDesc = "检索数据库时发生错误！" Set findDynamic = Nothing Else ErrDesc = "" Set findDynamic = rsTmp End If End Function '函数：执行查询（静态游标，双向，只读） '参数：strSql String 要执行的SQL字符串 '返回：RecordSet 或 Nothing（数据库连接失败、SQL语句有错误时） Function findStatic(ByVal strSql As String) As ADODB.Recordset If Not dbOpen Then Set findStatic = Nothing: Exit Function Dim rsTmp As New ADODB.Recordset On Error Resume Next rsTmp.Open strSql, conn, 3, 1 If Err Then ErrDesc = "检索数据库时发生错误！" Set findStatic = Nothing Else ErrDesc = "" Set findStatic = rsTmp End If End Function '函数：执行查询，并允许修改（动态游标，双向，可单条写入） '参数：strSql String 要执行的SQL字符串 '返回：RecordSet 或 Nothing（数据库连接失败、SQL语句有错误时） Function findAndEdit(ByVal strSql As String) As ADODB.Recordset If Not dbOpen Then Set findAndEdit = Nothing: Exit Function Dim rsTmp As New ADODB.Recordset On Error Resume Next rsTmp.Open strSql, conn, 2, 3 If Err Then ErrDesc = "检索数据库时发生错误！" Set findAndEdit = Nothing Else ErrDesc = "" Set findAndEdit = rsTmp End If End Function '函数：执行查询，并允许修改（动态游标，双向，可批量写入） '参数：strSql String 要执行的SQL字符串 '返回：RecordSet 或 Nothing（数据库连接失败、SQL语句有错误时） Function findAndEditBatch(ByVal strSql As String) As ADODB.Recordset If Not dbOpen Then Set findAndEditBatch = Nothing: Exit Function Dim rsTmp As New ADODB.Recordset On Error Resume Next rsTmp.Open strSql, conn, 2, 4 If Err Then ErrDesc = "检索数据库时发生错误！" Set findAndEditBatch = Nothing Else ErrDesc = "" Set findAndEditBatch = rsTmp End If End Function '函数：执行更新、删除及插入操作 '参数：strSql String 要执行的SQL字符串 '返回：Boolean 执行成功：true；执行失败：false Function execute(ByVal strSql As String) As Boolean If Not dbOpen Then execute = False: Exit Function On Error Resume Next conn.execute strSql If Err Then ErrDesc = "执行数据库更新时发生错误！" execute = False Else ErrDesc = "" execute = True End If End Function '函数：返回错误描述信息 '参数：无 '返回：String Function getErr() getErr = ErrDesc End Function