| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 471 人关注过本帖
标题:[求助]至少一个参数没有被指定值
只看楼主 加入收藏
lzc_24980
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-6-7
收藏
 问题点数:0 回复次数:3 
[求助]至少一个参数没有被指定值
源代码:
Private Function checkid(userid As Integer) As Integer
Dim str As String
Dim rs1 As New ADODB.Recordset
str = "select id from 员工信息 where id=userid"
rs1.Open str, conn, adOpenKeyset, adLockOptimistic
If rs1("id") <> 0 Then
checkid = 1
Else
checkid = 0
End If
Set rs1 = Nothing
End Function
错误提示:至少一个参数没有被指定值 光标停留在rs1.Open str, conn, adOpenKeyset, adLockOptimistic 语句。
到底是怎么回事呢?
搜索更多相关主题的帖子: 参数 
2006-06-07 20:38
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
str = "select id from 员工信息 where id=userid"
这个userid是什么东东,这样写我想会有问题的噢
一般这是个变量(从你的程序中看出来)
但变量不能这样用,除非它是个表中的字段名
str = "select id from 员工信息 where id="&userid
改成这样试试
要不信的话建议你加这一句看看是个什么东东
Private Function checkid(userid As Integer) As Integer
Dim str As String
Dim rs1 As New ADODB.Recordset
str = "select id from 员工信息 where id=userid"
MsgBox "str=" & str
rs1.Open str, conn, adOpenKeyset, adLockOptimistic
If rs1("id") <> 0 Then
checkid = 1
Else
checkid = 0
End If
Set rs1 = Nothing
End Function

[此贴子已经被作者于2006-6-7 20:53:38编辑过]


2006-06-07 20:49
lzc_24980
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-6-7
收藏
得分:0 
非常感谢, 我试试.
2006-06-12 11:04
lzc_24980
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-6-7
收藏
得分:0 

非常感谢您的指点, 我的问题解决了.

2006-06-12 17:31
快速回复:[求助]至少一个参数没有被指定值
数据加载中...
 
   



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

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