标题:请帮忙看看这个代码每一运行程序就没有响应了
只看楼主
pxinfo
Rank: 1
等 级:新手上路
帖 子:53
专家分:5
注 册:2019-6-30
结帖率:56.25%
已结贴  问题点数:10 回复次数:3 
请帮忙看看这个代码每一运行程序就没有响应了
请老师帮我看看这个查询代码错了吗?怎么一回车查询程序就没有响应了。VB就退出了
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
      
        Adodc2.ConnectionString = Conn
     Adodc2.RecordSource = "select s.罪犯编号 AS 罪犯编号,s.档案号 AS 档案号,s.姓名 AS 姓名,t.余额 AS 账户余额,p.限购 AS 限额,p.等级 AS 购物等级,p.购物批次 AS 购物批次 from 四知 s,罪犯总账 t,限购表 p where  s.编号 = t.编号 And s.档案号 = p.档案号 And s.姓名 = p.姓名 And s.姓名 like +  '%" & Text1.Text & "'+'%' or s.编号 = t.编号 And  s.档案号=t.档案号 And s.档案号 = p.档案号 And s.姓名 = p.姓名 And s.姓名拼音 like + '" & Text1.Text & "'+'%' "
     Adodc2.Refresh
          Set DataGrid1.DataSource = Adodc2
          DataGrid1.Refresh
  DataGrid1.Columns(0).Width = 1500
  DataGrid1.Columns(1).Width = 800
  DataGrid1.Columns(2).Width = 1000
  DataGrid1.Columns(3).Width = 2500
 DataGrid1.Columns(4).Width = 1500
   DataGrid1.Columns(5).Width = 1500
    DataGrid1.Columns(6).Width = 1500
    'DataGrid1.Columns(7).Width = 1500
   ' DataGrid1.Columns(8).Width = 1500
   ' DataGrid1.Columns(9).Width = 1500
   ' DataGrid1.Columns(10).Width = 1500
       'DataGrid1.Columns(11).Width = 1500
         ' DataGrid1.Columns(12).Width = 1500
   
       Label2.Caption = "人数为 " & Adodc2.Recordset.RecordCount
  End If
End Sub
搜索更多相关主题的帖子: 响应 编号 档案 姓名 And 
2019-07-02 22:30
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:21
帖 子:206
专家分:1346
注 册:2017-8-9
得分:5 
s.罪犯编号的s是什么?

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-07 19:34
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
回2楼,s是别名
--------------------------------------------
表的名字叫 s 吗?from 子句里的表不叫 s 啊。说是别名,少了 AS 关键字

SELECT column_name(s)
FROM table_name
AS alias_name

授人于鱼,不如授人于渔
早已停用QQ了
2019-07-07 23:16
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:21
帖 子:206
专家分:1346
注 册:2017-8-9
得分:0 
回复 楼主 pxinfo
可以把你的数据表发出来吗?不然没法调试。

或者
你先把select语句写简单一点,只查找一个表中的一个字段的内容,看能不能正常输出,
然后再慢慢复杂select语句,这段代码不多,应该很好查问题的。

回复 3楼 风吹过b
取别名可以省略as的

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-07-10 13:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-495666-1-1.html




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

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