收录日期:2019/01/21 20:20:22 时间:2016/05/23 01:21:22 标签:数据库(包含打印,安装,报表)
我将db.mdb文件跟vb 文件放在同一目录下
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
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   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
      'rst.MoveLast     'get RecordCount
      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

里面的ConnString 应当怎么设置
比如ConnString="PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source="
ConnString="Provider=Microsoft.jet.OLeDB.3.51;Data Source=" & App.path & "\adodao.mdb;"
或者
ConnString=""Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source= c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"
用以下连接字符串即可
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\YourDbName.mdb" & ";Persist Security Info=False"

下面的错误怎么解决呢? 谁有办法减小pbvm9.dll的体积? malloc的most restrictive type问题 realplayer安装后不见了,怎么回事? 向 grantbb(小兵) 表示歉意,刚才结贴时忘记了给分,另外再开一贴,大家再来!!! 关于database的简单问题!~~~~~~~初学者请大哥们多关照!~~~~~~~~~~~~~~~~~ 关于静态事件§什么情况下使用静态事件? 网上找到的漂亮的圣诞祝福网页送给大家 转换简单问题---初学者--取上级节点值 关于交叉表的问题希望大家给予指导 从SQLServer数据库获取数据的一个疑问?? [请教]同步通信和异步通信的区别? ■竞拍■----大东MM的靓照!!! 蛙蛙请教:在web里做套打需要解决的几个问题? 用ant打包如何指定jar运行的主要类(Main-Class)? java Applet 得到当前页面 textarea 框的串? 如何让程序编的窗口显示出来呀 [杨振宁与28岁女硕士生订婚],大家讨论讨论…… call语法问题 急救急救!~~~~很简单的一个问题 ComboBox邦定DataSet的问题 -- 求ComboBox 控件高手指点~ -------急 mysql的查询问题 这个语句是什么意思呢? 100分,请教声音问题. 急寻<asp.net程序员参考>电子书或是类库大全什么的,谢谢 弱弱的问,在只用ATL做的控件中如何弹出popup menu啊?我的方法不行 C++ Is Dead? 关于体检的问题 请教:count(*)和sub(num)的区别! PHP支持Access?