ADODB.Connection Public dbConn As ADODB.Connection
答案:2 悬赏:30 手机版
解决时间 2021-03-08 08:46
- 提问者网友：一抹荒凉废墟
- 2021-03-08 05:42
ADODB.Connection Public dbConn As ADODB.Connection
最佳答案
- 五星知识达人网友：青尢
- 2021-03-08 06:29
Public dbConn As ADODB.Connection '定义一个ADODB连接Public stuRs As ADODB.Recordset '定义Recordset对象Public SqlFindStr As StringPublic Function Conn2DB() As Boolean'公共Access数据库连函数Dim connStr As StringDim dbName As StringdbName = App.Path & \ & StudentDB.mdb '返回程序所在路径' Access连接字符串conStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbNameSet dbConn = New ADODB.Connection '定义一个ADODB连接对象If dbConn.State adStateOpen Then '判断ADODB连接是否打开dbConn.Open conStr '如果不是打开状态 就打开连接End IfConn2DB = TrueEnd FunctionPublic Function ExcSQL(ByVal sql As String) As ADODB.RecordsetDim rst As ADODB.Recordset'执行一条SQL查询,得到一个记录集Set rst = New ADODB.Recordsetrst.Open Trim$(sql),dbConn,adOpenKeyset,adLockOptimistic '得到记录Set ExcSQL = rstEnd Function
全部回答
- 1楼网友：怀裏藏嬌
- 2021-03-08 07:02
谢谢解答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯