| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 503 人关注过本帖
标题:查询语句出错,不知道错在哪了!帮我看看,谢谢
只看楼主 加入收藏
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
结帖率:87.21%
收藏
 问题点数:0 回复次数:2 
查询语句出错,不知道错在哪了!帮我看看,谢谢
为什么我combo6选择了“电气类”就出错,提示搜索引擎找不到输入表或查询“电器类”?我选择模具类或设备类就不出错!郁闷了!表格内容一样的,只是表名不同
请帮我看看!我头晕了,在线等!

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String


Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Combo6.Clear
Combo6.AddItem "电器类"
Combo6.AddItem "模具类"
Combo6.AddItem "设备类"

Combo6.Text = Combo6.List(0)
If Combo6.Text = "电器类" Then
   Combo5.Visible = False
   Label5.Visible = False
   Else
   Combo5.Visible = True
   Label5.Visible = True
End If
End Sub

Private Sub Command1_Click() '查询
 If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\beijian.mdb;Persist Security Info=False"
    sql = "select * from " & Combo6.Text & ""
    rs.Open sql, cn, 3, 3
   If rs.EOF And rs.BOF Then
      MsgBox "没有记录", 32, "系统"
      If cn.State = adStateOpen Then cn.Close
      If rs.State = adStateOpen Then rs.Close
      Exit Sub
    Else
    Set MSHFlexGrid1.DataSource = rs
    Label6.Caption = "总共查询到:" & rs.RecordCount & "条记录!"
   End If
End Sub
搜索更多相关主题的帖子: 查询 看看 在线 
2013-04-23 20:49
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
收藏
得分:0 
一个数据库里有3张表格分别是,模具类,电器类,设备类

学习--------------学习-------------------学习--------------------!!
2013-04-23 20:50
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
收藏
得分:0 
不好意思,是我的数据库出问题了,麻烦大家了

学习--------------学习-------------------学习--------------------!!
2013-04-23 21:11
快速回复:查询语句出错,不知道错在哪了!帮我看看,谢谢
数据加载中...
 
   



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

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