处理数据库函数

<!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:"Cambria Math"; panose-1:2 4 5 3 5 4 6 3 2 4; mso-font-charset:1; mso-generic-font-family:roman; mso-font-format:other; mso-font-pitch:variable; mso-font-signature:0 0 0 0 0 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-1610611985 1073750139 0 0 159 0;} @font-face {font-family:"/@宋体"; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; text-align:justify; text-justify:inter-ideograph; mso-pagination:none; font-size:10.5pt; mso-bidi-font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:宋体; mso-fareast-theme-font:minor-fareast; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-font-kerning:1.0pt;} .MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} /* Page Definitions */ @page {mso-page-border-surround-header:no; mso-page-border-surround-footer:no;} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->

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

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

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

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

 

  Dim stokens() As String

  Dim connectionstring 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