| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5599 人关注过本帖
标题:求助:VB至少一个参数没有被指定值!
取消只看楼主 加入收藏
苏苏酱
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-4-24
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:2 
求助:VB至少一个参数没有被指定值!
查询出库单程序,界面如图所示,我想要的是选择查询。查询命令按钮就是Command6,在文本框输入要查询的字段时,点击按钮,就会在DataGrid控件显示相应内容,数据库已连接好,就是在第一个选中“出库单号”查询运行的时候,出现:至少一个参数没有被指定值!
请问我编的程序有问题吗?哪个地方有问题啊?
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册

请高手指点!不胜感激!作业,很快就要交了



程序代码:
Private Sub Command6_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
   sql = "出库单号=" & Trim(Text1.Text & " ") & " "
End If
If Check2.Value = vbChecked Then
   If Trim(sql) = "" Then
      sql = "商品代码='" & Trim(Text1.Text & " ") & "'"
   Else
      sql = sql & "and 商品代码='" & Trim(Text1.Text & " ") & "'"
   End If
End If
If Check3.Value = vbChecked Then
   If Trim(sql) = "" Then
      sql = "商品名称='" & Trim(Combo2.Text & " ") & "'"
   Else
      sql = sql & "and  商品名称='" & Trim(Combo2.Text & " ") & "'"
   End If
End If
sql = "select * from 出库信息 where " & sql
rs_findreader.CursorLocation = adUseClient
rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If rs_findreader.RecordCount = 0 Then
  MsgBox "查询不到采购管理信息!", vbOKOnly + vbExclamation
Else
  Set DataGrid1.DataSource = rs_findreader
End If
End Sub
搜索更多相关主题的帖子: 不胜感激 数据库 文本框 如图所示 
2016-04-24 10:27
苏苏酱
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-4-24
收藏
得分:0 
是的,全局变量,在通用声明里
程序代码:
Option Explicit
Public conn As New ADODB.Connection ' 标记连接对象
Public userID As String ' 标记当前用户ID
Public userpow As String ' 标记用户权限
Public find As Boolean ' 标记查询
Public sqlfind As String ' 查询语句
Public rs_data1 As New ADODB.Recordset
Public select_menu As String
Public findok As Boolean
Public frmdata As Boolean
Public Const keyenter = 13 ' enter键的ASCII码
2016-04-24 12:00
苏苏酱
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-4-24
收藏
得分:0 
从没用过监视,不知道怎么做。。。。
2016-04-24 21:17
快速回复:求助:VB至少一个参数没有被指定值!
数据加载中...
 
   



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

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