数据库连接问题，很郁闷!!!

2005-11-20 12:46:12 267 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

浅析C++中引用与指针的区别引用和指针的概念及区别1.引用及指针概念指针概念引用概念2.引用与指针的区别 1.引用及指针概念如果熟悉指针和引用的使用，就会感觉到指针和引用在很多场景使用起来还是有很大的相似性的，尽管它们在概念上是俩个完全不同的东西。那么这二者之间到底具有怎样的相似性以及又有怎样的区别呢？在谈这个话题之前我们先简单回顾一下指针和引用的概念：指针概念在计算机科学中，指针（Pointer）是编程语言中的一个对象，利用地址，它的值直接指向（points to）存在电脑存储器中另一个地方的值。由于通过地址能找到所需的阅读详情

可能是我的问题太长了，实际上是这样的
我用记录集取数据的时候，把SQL语句当做字符发送到记录集的source对象执行
在测试的时候，数据库连接成功，但是执行到这条语句的时候
Set userRst = GetSql(strQuery)
'向getsql函数发送一条sql语句，strquery为SQL语句,然后赋给记录集useRst
If userRst.RecordCount = 1 Then
If txtPassWord.Text = userRst.Fields("userpassword") Then
Load MDIfrmMain
MDIfrmMain.Show
Unload Me
Else
MsgBox "密码错误"
Exit Sub
End If
就是if语句的时候，提示"实时错误‘3704’，对象关闭时，不允许操作"
很郁闷，数据库连接是成功的，请问这是什么原因。万分感谢！！！！！

...全文

C++引用以及和指针的区别 C++引用以及和指针的区别阅读详情

kingmaple

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

faysky2 2005-11-20

打赏
举报

winehero(编程人生) 说得对，问题就出在那了，我到是没注意到

winehero 2005-11-20

打赏
举报

'GetSql函数Set Rst=Getsql这句有问题,赋值方向搞反了,应该是:
Set Getsql=Rst

faysky2 2005-11-20

打赏
举报

你在If userRst.RecordCount = 1 Then这句前加上MsgBxo userRst.State 测试记录集是否打开
MsgBxo userRst.State
If userRst.RecordCount = 1 Then
....

kingmaple 2005-11-20

打赏
举报

另外，我是在sub main()函数中进行连接的
Public Sub main()
If Link = True Then
MsgBox "数据库连接成功"
Load frmLogin
frmLogin.Show
Else
MsgBox "数据库连接失败"
End If
End Sub
不知这样可否

kingmaple 2005-11-20

打赏
举报

也没有关闭，下面是连接函数

Public Function Link() As Boolean
On Error GoTo linkerr
Set Con = New ADODB.Connection
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data\milk.mdb;Persist Security Info=False"
Con.CursorLocation = adUseClient
Con.CommandTimeout = 15
Con.Open
Link = True
Exit Function
linkerr:
Link = False
MsgBox "数据连接错误"
End Function

faysky2 2005-11-20

打赏
举报

Rst.ActiveConnection = Con，其中的Con打开了没有？有没有在其他地方关闭了？

kingmaple 2005-11-20

打赏
举报

没有关闭呀，下面是GetSql函数的代码

Public Function GetSql(ByVal strSql As String) As ADODB.Recordset
On Error GoTo linkerr
Dim Rst As New ADODB.Recordset
Rst.Source = strSql
Rst.ActiveConnection = Con
Rst.CursorType = adOpenKeyset
Rst.LockType = adLockOptimistic
Rst.Open
Set Rst = GetSql
Exit Function
linkerr:
MsgBox "错误代码：" & Err.Number & "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误提示"
End Function

faysky2 2005-11-20

打赏
举报

你的GetSql函数里已经把记录集关闭了吧？你把rs.Close那句注释掉，再试试

数据库连接问题，很郁闷!!!

相关推荐