| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 612 人关注过本帖, 1 人收藏
标题:VB关于access数据库存入提出问题 sos,sos,sos... ...
只看楼主 加入收藏
chfsjoy
Rank: 1
等 级:新手上路
帖 子:5
专家分:3
注 册:2011-5-7
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:5 
VB关于access数据库存入提出问题 sos,sos,sos... ...
本人学习需要要求交一份期末VB管理系统,我选择了飞机航班管理系统,差不多完成到一半了,可是数据库是我绊脚石,希望各位朋友能给我点建议或者帮助,在下我先谢谢了!废话不多说,现在入正题。
难题是这样的:有两个form,一个form是要求旅客填写日期,舱位,目的地之类的信息,我已完成了这个form1了。还有一个form2,当填写完form1后随后进入form2,form2会提示你航班信息,这就要提取form1和access的数据库信息进入检验筛选而在form2显示。
我知道这样说比较混乱,最后朋友们教教我怎么筛选数据库里面的内容,因为连接数据库我已经懂了,对了,按照我的项目看,不知道把data或者ado控件放在form1好还是form2好呢?!希望各位多多发言,承蒙各位指教,小弟感激不尽!
搜索更多相关主题的帖子: 管理系统 access 数据库 绊脚石 朋友 
2011-06-09 19:52
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:5 
图片附件: 游客没有浏览图片的权限,请 登录注册

无知
2011-06-10 00:11
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
http://topic.

这是一样的问题吗?

不要選我當版主
2011-06-10 15:18
笨蛋别回头
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-6-8
收藏
得分:0 
咳。。。。
2011-06-10 19:00
chfsjoy
Rank: 1
等 级:新手上路
帖 子:5
专家分:3
注 册:2011-5-7
收藏
得分:0 
回复 2楼 Artless
对啊...都是我发布的
2011-06-10 20:11
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:15 
将ado控件放在form2中,form1根据用户输入组合sql语句字符串,并将该字符串传递给form2作为sql查询使用,并将查询结果用datagride控件显示。
假设form1中文本框text1是日期,text2是舱位,text3是目的地,一个命令按钮command1是查询确认,而access数据库已经连接好,里面有一个“航班信息”表,form2里一个ado控件adodc1(不要用data控件),一个datagride控件dg1,我们首先在form2中写个接受sql参数的sub.
public sub inSql(Sql as string)
  '本过程在form2中,主要接受sql参数
  Adodc1.RecordSource=Sql
  Adodc1.Refresh
  Set Dg1.DataSource = Adodc1.Recordset
  Me.Show
end sub

下面编写form1中command1的代码,主要根据text1、text2、text3中填写情况拼写sql语句,并调用form2中的inSql过程,显示查询结果
Private Sub Command1_Click()
  Dim a As String
  '拼接sql语句放在变量a中
  a = ""
  If Trim(Text1) <> "" Then a = "航班日期=#" & Text1 & "# and "
  If Trim(Text2) <> "" Then a = a & "舱位='" & Text2 & "' and "
  If Trim(Text3) <> "" Then a = a & "目的地 like '%" & Text3 & "%' "
  If a <> "" Then
    If Trim(UCase(Right(a, 4))) = "AND" Then a = Left(a, Len(a) - 4) '去掉最后面可能存在的and字符
    a = " where " & a
  End If
  a = "select * from 航班信息 " & a
  Form2.inSql a '调用form2的inSql过程,传递sql参数并在form2中显示查询结果
End Sub

 

[ 本帖最后由 lowxiong 于 2011-6-11 08:10 编辑 ]
2011-06-11 07:39
快速回复:VB关于access数据库存入提出问题 sos,sos,sos... ...
数据加载中...
 
   



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

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