处理数据库函数

来源：互联网发布：想开淘宝店卖什么好编辑：程序博客网时间：2024/05/16 07:55

处理数据库中数据常用的一个函数：

Public Function ExecuteSQL(ByVal sql AsString, ByVal msgstring As String) As ADODB.Recordset

Dim cnn As ADODB.Connection （1）.定义一个连接

Dimrst As ADODB.Recordset （2）.定义一个记录集

Dimstokens() As String

Dimconnectionstring As String

connectionstring = "filedsn=andy.dsn;UID=sa;pwd=123456"

On Error GoTo Executesql_error

stokens() = Split(sql) '将sql中字符串中的每个单词，分别赋给一维数组的每个单位

Set cnn = New ADODB.Connection （3）.实例化连接

cnn.Open connectionstring （4）.打开连接，让程序连接到特定的数据库

'如果有insert，delete，update语句可以直接执行sql语句而不用去查询，connection，command，recordset都可以执行sql语句

If InStr("INSERT,DELETE,UPDATE", UCase$(stokens(0))) Then

cnn.Execute sql （5）.执行sql语句（update，delete，insert）

msgstring = stokens(0) & "query sucessfully!" ‘执行成功！

Else

'查询记录集，并且返回记录集

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient '远程数据服务用法当用于客户端 (ADOR)Recordset 或 Connection 对象时，只能将 CursorLocation 属性设置为 adUseClient。

rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic（6）.select语句返回一个记录集(rst)，rst.open “select* from student _info”,cnn,adopenkeyset,adlockoptimistic

'打开一个数据库元素，此元素可提供对表的记录、查询的结果或保存的 Recordset 的访问。

Set ExecuteSQL = rst

msgstring = "查询到" & rst.RecordCount & "条记录"

End If

Executesql_exit:

Set rst = Nothing

Set cnn = Nothing

Exit Function

Executesql_error:

msgstring = "查询错误：" & Err.decription

Resume Executesql_exit