| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 472 人关注过本帖
标题:vb跟查询日期
只看楼主 加入收藏
奔跑的魔
Rank: 2
等 级:论坛游民
帖 子:22
专家分:10
注 册:2013-7-11
结帖率:71.43%
收藏
已结贴  问题点数:20 回复次数:4 
vb跟查询日期
我想输入日期,然后按下查询,其他有关的文本框,显示有关这天的全部信息,该怎么写程序,求大神指点
搜索更多相关主题的帖子: 文本框 信息 
2013-07-19 09:42
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:20 
假设日期在text1中,查询后结果在其他text2(0)...text2(n)中,并且conn连接已打开,查询按钮为command1
Private Sub Command1_Click()
  dim rs as new recordset,a as string,i as integer
  if not isdate(text1) then
    msgbox "日期格式不对,请重新输入日期"
    text1.setfocus
    exit sub
  endif
  a="select * from 数据表名 where 日期=#" & text1 & "#"
  rs.Open a, conn, adOpenKeyset, adLockOptimistic  '打开记录集
  if not rs.eof then
    for i=0 to rs.fields.count - 1
      if not isnull(rs.fields(i)) then text2(i)=rs.fields(i)   '显示第一条记录数据
    next
  endif
  rs.close
End Sub

大神,你这样问问题太泛泛了,你至少有一个非常具体的东西再来问吧,比如说数据库结构、窗体编排都已经设计好了,再来开问吧。要不你干脆给数据库,说你要的功能,让别人完成也比你这样问问题好。
2013-07-19 10:02
奔跑的魔
Rank: 2
等 级:论坛游民
帖 子:22
专家分:10
注 册:2013-7-11
收藏
得分:0 
其实我是,设置了,三个combo combox 分别放的是年,月,日,然后一个 查询按钮,和 两个文本框,我是想,年月日,选好后,点查询按钮,文本框才会显示记录,VB新手,请凉解,楼上的大神。是不是还是像上面的方法解决啊,谢谢
2013-07-19 11:04
奔跑的魔
Rank: 2
等 级:论坛游民
帖 子:22
专家分:10
注 册:2013-7-11
收藏
得分:0 
a="select * from 数据表名 where 日期=#" & text1 & "#"
   rs.Open a, conn, adOpenKeyset, adLockOptimistic  '打开记录集
   if not rs.eof then
     for i=0 to rs.fields.count - 1
       if not isnull(rs.fields(i)) then text2(i)=rs.fields(i)   '显示第一条记录数据(运行的时候,提示错误,不能给只读属性赋值)
     next
   endif
   rs.close
 End Sub
 
2013-07-19 15:37
wosizhuojin
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-8-24
收藏
得分:0 
2013-08-28 11:23
快速回复:vb跟查询日期
数据加载中...
 
   



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

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