哪位高手能给小弟提供一份操作数据库的比较通用的函数学习

Question

哪位高手能给小弟提供一份操作数据库的比较通用的函数学习

Answer 1

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
      mycon.Execute sql
Else
  Set rst = New ADODB.Recordset
  rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
 Set ExecuteSQL = rst
End If
exectuesql_exit:
  Set rst = Nothing
  Set mycon = Nothing
  Exit Function
exectuesql_error:
  Resume exectuesql_exit
End FunctionPublic Function connstring() As String
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/aaaa.mdb"
End Function

Answer 2

操作示例:1.
Dim mrc1 As ADODB.Recordset
txtsql = "select * from tablename where sex='女'"
Set mrc1 = ExecuteSQL(txtsql)'条件显示2.ExecuteSQL("update tablename set myname='abc'")'修改

Answer 3

好，非常感谢
问一下：mycon.ConnectionString = connstring 调用时不用加括号吗？

Answer 4

\2.ExecuteSQL("update tablename set myname='abc'")'修改\这个不用括号.因为不需要返回值.
 ExecuteSQL "update tablename set myname='abc'" 
也可以这样
call ExecuteSQL("update tablename set myname='abc'")'修改

Answer 5

逛街兄在其中使用了Split(),这是个比较耗资源的操作，实际上我们常用的SQL语句就是SELECT，UPDATE，DELETE，INSERT;若你确信自己只用通用函数来执行以上4类SQL语句，用left(strsql,6)就可以得出是什么操作，直接比较就OK了。
若还想执行CREATE,DROP...，用INSTR（）比较。

Answer 6

看数据库的相关使用说明，操作数据库无外乎select  ,update,insert ,delete ,create,drop,alter等