本人学习需要要求交一份期末VB管理系统，我选择了飞机航班管理系统，差不多完成到一半了，可是数据库是我绊脚石，希望各位朋友能给我点建议或者帮助，在下我先谢谢了！废话不多说，现在入正题。
难题是这样的：有两个form，一个form是要求旅客填写日期，舱位，目的地之类的信息，我已完成了这个form1了。还有一个form2，当填写完form1后随后进入form2，form2会提示你航班信息，这就要提取form1和access的数据库信息进入检验筛选而在form2显示。
我知道这样说比较混乱，最后朋友们教教我怎么筛选数据库里面的内容，因为连接数据库我已经懂了，对了，按照我的项目看，不知道把data或者ado控件放在form1好还是form2好呢？！希望各位多多发言，承蒙各位指教，小弟感激不尽！

http://topic.

这是一样的问题吗？

咳。。。。

对啊...都是我发布的

将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 编辑 ]