【机房收费系统】VB中增删改查实践探索

既然软件由 程序，数据 和文档组成，那么系统自然少不了数据库的使用。 
    今天，我就给大家分享一下，我在这次实践中关于数据库基本功能——增删改查的理解和实现 。

一、VB中集成的数据库对象

站在巨人的肩膀上是我们一贯的作风，那么关于vb和数据库，有哪些巨人等着我们来踩呢？ 下面我来为大家介绍三个大巨人 、四个小巨人。他们是

一、大巨人 （独立对象）

1. connection  
    这次的系统中，主要用到了它的这两个方法。

connection.open  connectionstring 
connetion.execute sql

open 打开数据连接字符串（关于如何获取字符串connectionstring，因为之前写过这个，就不再写了。感兴趣的读者可以链接过去看看。详细介绍了关于四种数据源字符串连接的获取方式）

execute 执行 sql语句(这个没什么注意的)

2.command
这次敲系统没怎么用上，就不多说了

3.recordset

recordset.addnew    '增加新记录 
recordset.update   
recordset.recordcount '统计记录数，在这次系统中我用这个属性来判断信息是否输入正确。例如：
if recordset.recordcount= 0 then
    msgbox "信息有误，请进行核对！"
else 
    txtNumber.text=recordset.fields(0) 
end  if

a、update 方法用来干什么？

答：更新记录，经常有同学在程序的末尾忘记加这句话，然后就会发现，语句都执行了呀！ 为什么数据库中的数据没有变化? 原因就在这里。它还没有同步更新。

b、recordcount =0 的时候， eof 和bof 自然也都是 true 。因为没有记录，所以它既在第一条记录前，又在最后一条记录后。

c、 注意： 如果使用fields 属性的话，一定要清楚它是从0 开始的。 不过在这次系统开发中， 因为是以快速原型法进行开发、 数据库经常改动，我就没有怎么使用fields属性。 因为字段的位置（*）会变。 如果大家遇到和我类似的情况、推荐使用 recordset！字段名 这样的表达方式来提取数据库中的数据。
二、小巨人 依赖对象
1.field
2.parameter
3.error
4.property

本次开发的过程中只用到了 依赖对象errror 示例如下：

MsgString ="查询错误："& err.description 

会对报错原因进行描述，通过查看description 属性就能知道哪里出现了问题。

二、 系统实践过程中代码的具体实现

因为整个系统用的最多的就是增删改查操作，所以将它写到了模块中。如下：

public function ConnectionString（） as string 
ConnectionString = "FileDSN=mycharge.dsn;UID=sa;PWD=222221"
end function 
Public Function ExecuteSQL(ByVal sql As String,MsgString As String) As ADODB.Recordset '从数据库中检索数据

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stokens() As String   '生命一个变量来记录截断后的字符串

    On Error GoTo ExecuteSql_Error
    Connection

    stokens = Split(sql)   'split 函数截断字符串
    Set cnn = New ADODB.Connection
    cnn.Open ConnectionString  
    If InStr("insert,delete,update",UCase$(stokens(0))) Then '判断是否是插入，删除，更新语句 如果是，直接执行；不然就声明一个记录集，存储查询到的记录。
        cnn.Execute sql
        MsgString = stokens(0) & "query successful"
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim$(sql),cnn,adOpenKeyset,adLockOptimistic
        Set ExecuteSQL = rst
        MsgString = "查询到" & rst.RecordCount & "条记录"
    End If
ExecuteSql_Exit:     ' 释放对象
    Set rst = Nothing
    Set cnn = Nothing
    Exit Function
ExecuteSql_Error:
    MsgString = "查询错误：" & Err.Description
    Resume ExecuteSql_Exit 

End Function

调用的时候，如下所示：

dim txtsql as string   ' 记录sql语句
dim msgtext as string   ' 记录执行信息

增加记录：
txtsql = "insert * from 表名称" 

删除记录：
txtsql= "delete * from 表名称 where 列名称 = 值 " ' 值如果是变量的话要'"& 变量名 & "'

更改记录：
txtsql= "UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值"

查找记录
txtsql ="select * from 表名称 where 列名称 =值"

Executesql txtsql,msgtext  ' 执行

如果是select语句的话
set mrc= executesql(txtsql,msgtext)

这就是这次系统中对于vb中增删改查的收获。