ADODB.Connection Public dbConn As ADODB.Connection

答案:2 悬赏:30 手机版

解决时间 2021-03-08 08:46

提问者网友：一抹荒凉废墟
2021-03-08 05:42

最佳答案

五星知识达人网友：青尢
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

谢谢解答

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息