| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 659 人关注过本帖
标题:[求助]为什么每次运行的时候,到recordset定义的rss就出错?
只看楼主 加入收藏
fayeflo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-6-12
收藏
 问题点数:0 回复次数:4 
[求助]为什么每次运行的时候,到recordset定义的rss就出错?

新手上路,各位大虾帮帮忙!
一个信息输入的界面,每次运行的时候Rss总会报错:Set Rss = Cnn.Execute(SQL) 实时错误424,要求对象
如果把检测相同记录的程序删除,运行到Rss.AddNew时仍会报424的错误
各位帮帮忙,帮我解决一下!

Private Sub CmdOK_Click()

Dim txtSQL As String
'信息完整输入
If Trim(Text1.Text) = "" Then
MsgBox "请输入完整!", vbOKOnly + vbExclamation, "提示"
Text1.SetFocus
Exit Sub
End If

If Trim(Text2.Text) = "" Then
MsgBox "请输入完整!", vbOKOnly + vbExclamation, "提示"
Text2.SetFocus
Exit Sub
End If

If Trim(Text3.Text) = "" Then
MsgBox "请输入完整!", vbOKOnly + vbExclamation, "提示"
Text3.SetFocus
Exit Sub
End If

‘检测手册号是否重复
txtSQL = "select * from LX_QYSC where SCH='" & Trim(Text3.Text) & "'"
Set Rss = Cnn.Execute(SQL)

If Rss.BOF = ture Then
MsgBox " 手册号已存在,请检查!", vbOKCancel + vbExclamation, "警告"
Text3.SetFocus
End If

'信息保存
Rss.AddNew
Rss.Fields(0) = Trim(Text1)
Rss.Fields(1) = Trim(Text2)
Rss.Fields(2) = Trim(Text3)
Rss.Update
MsgBox "保存成功!", vbOKOnly + vbExclamation, "提示"
Rss.Close
End Sub

Private Sub Form_Load()
Dim Rss As New Recordset
Dim Cnn As New Connection
Dim ConnStr As String


Set Cnn = New Connection
ConnStr = "PROVIDER=MSDASQL;dsn=inexport;uid=inexportuser;pwd=65703101;"
Cnn.ConnectionString = ConnStr
Cnn.Open


Set Rss = New Recordset
Rss.Open "select * from LX_QYSC", Cnn, adOpenStatic, adLockOptimistic

End Sub

搜索更多相关主题的帖子: rss recordset SQL 定义 
2007-06-21 16:40
不惑
Rank: 2
等 级:论坛游民
威 望:2
帖 子:569
专家分:13
注 册:2007-3-22
收藏
得分:0 
没见过这样的写法
2007-06-21 16:51
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
收藏
得分:0 
Cnn 不是全局变量

程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2007-06-21 19:05
不惑
Rank: 2
等 级:论坛游民
威 望:2
帖 子:569
专家分:13
注 册:2007-3-22
收藏
得分:0 
第一,楼上说的:cnn在本程序中未定义,是不是全局的在其它地方定义过了.
第二,Set Rss = Cnn.Execute(SQL)中的SQL在本程序中未附值,是不是在其它地方给过值?
2007-06-21 19:18
fayeflo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-6-12
收藏
得分:0 
回复:(不惑)第一,楼上说的:cnn在本程序中未定义,是...
那个SQL应该是txtSQL,但是还是在这个地方报错,我试试把cnn定义为全局变量吧
2007-06-22 08:32
快速回复:[求助]为什么每次运行的时候,到recordset定义的rss就出错?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016417 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved