学生上机信息统计——对两张表的联合查询

 

   在学生上机信息统计中，

  此处，因为要查询两张表，而且两张表查询的先后有时要严格表明，所以，在查询时，有两种思路：
 
   1，定义两个Recordset对象，并根据字段，判断是先查询学生信息表，还是先查询学生上机表
 
   2，两张表有一个共同的字段：卡号，所以，可以根据卡号将两张表连起来查询，这样比较方便。
   因为第一种方式比较复杂，容易出错，所以，我选择了第二种方式，将两张表联合起来。
 
   下面是对两张表联合起来的查询的语句：



 
查询结果如下：



 
但是，，实际的时候，用户进行的查询都是有条件的查询，所以，在SQL 语句中还应加上条件。



 
但是卡号因为在两张表中都存在，所以在查询时，如果不指定是哪张表，会出现不明确的问题，导致查询无法进行。所以，在用卡号作为条件时，应该在卡号前面指定表明，以表明是对哪张表的卡号进行查询。。
 
另外，在查询时，因为并不是所有列的信息我们都要显示给用户，所以，可以指定返回的列：

select Stubaseinfo.卡号,姓名,上机日期,上机时间,下机日期,下机时间,消费金额,金额 from StuBaseInfo ,StuShangJi where StuBaseInfo .卡号=StuShangJi.卡号 and 姓名='刘慧超'

 
 
组合查询的过程：
   1，输入值的非空和完整性验证
   2，将查询时输入的条件字符转换成数据库的字段名
   3，分别对一个字段，两个字段，三个字段，这三种情况编写SQL语句
 
下面是我的部分代码：

'查询之前先清空表格结构
myFlexGrid.ClearStructure

'如果第一个与或没有选择，下面的文本框都不可用
'同理，如果第二个文本框没有选择的话，下面的文本框也都不可用
'这一检查放在了两个change事件里面
'只有一个查询条件时，只能用第一条；如果有两个查询条件时，只能用前两条；

' 查询前，先进行非空判断
'先判断有三个查询条件的情况
If Testtxt(Cmb1.Text) = True And Testtxt(Cmb2.Text) = True Then
If Testtxt(CmbZiDuan1.Text) = False Or Testtxt(CmbZiDuan2.Text) = False Or Testtxt(CmbZiDuan3.Text) = False Then '如果三个字段名中有一个为空的话，提示字段名为空
MsgBox "字段名不能为空！", vbOKOnly + vbExclamation, "警告"      '提示字段名不能为空
Exit Sub
ElseIf Testtxt(CmbCaoZuo1.Text) = False Or Testtxt(CmbCaoZuo2.Text) = False Or Testtxt(CmbCaoZuo3.Text) = False Then '如果操作符为空
MsgBox "操作符不能为空！", vbOKOnly + vbExclamation, "警告"   '如果操作符为空
Exit Sub
Else
If Testtxt(txtCheck1.Text) = False Or Testtxt(txtCheck2.Text) = False Or Testtxt(txtCheck3.Text) = False Then   '如果要查询的内容有一个为空的话
MsgBox "查询内容不能为空！", vbOKOnly + vbExclamation, "警告"    '如果查询内容为空
Exit Sub
End If
End If

'将组合关系转换成数据库可识别的字符
If Trim(Cmb1.Text) = "与" Then  '转换组合关系1的字符
ZuHe1 = "and"
Else
ZuHe1 = "or"
End If

If Trim(Cmb2.Text) = "与" Then   '转换组合关系2的字符
ZuHe2 = "and"
Else
ZuHe2 = "or"
End If

'将操作符转换为数据库可识别内容,,嘿嘿，不知道大家看不看得出金额和余额......
If CmbZiDuan1.Text = "余额" Then
CmbZiDuan1.Text = "金额"
End If

If CmbZiDuan2.Text = "余额" Then
CmbZiDuan2.Text = "金额"
End If

If CmbZiDuan3.Text = "余额" Then
CmbZiDuan3.Text = "金额"
End If

'查询前先判断字段是否是卡号，然后根据卡号分情况执行SQL语句
If CmbZiDuan1.Text = "卡号" Then   '为卡号指定一个表名
KaHao1 = "stushangji.卡号"
Else
KaHao1 = CmbZiDuan1.Text
End If

If CmbZiDuan2.Text = "卡号" Then   '如果查询的字段为卡号，则必须为卡号指定一个表名
KaHao2 = "stushangji.卡号"
Else
KaHao2 = CmbZiDuan2.Text
End If

If CmbZiDuan3.Text = "卡号" Then   '如果查询的字段为卡号，则必须为卡号指定一个表名
KaHao3 = "stushangji.卡号"
Else
KaHao3 = CmbZiDuan3.Text
End If

'执行查询
SQL = "select Stushangji.卡号,姓名,上机日期,上机时间,下机日期,下机时间,消费金额,金额 from stubaseinfo,stushangji where (StuBaseInfo.卡号=StuShangJi.卡号) and (" & KaHao1 & Trim(CmbCaoZuo1.Text) & "'" & Trim(txtCheck1.Text) & "'" & " " & ZuHe1 & " " & KaHao2 & Trim(CmbCaoZuo2.Text) & "'" & Trim(txtCheck2.Text) & "'" & " " & ZuHe2 & " " & KaHao3 & Trim(CmbCaoZuo3.Text) & "'" & Trim(txtCheck3.Text) & "')"
Set Rst = ExecuteSQL(SQL, strMsg)     '执行查询

End If

下面是一个运行时的SQL 语句：



 
虽然看起来有点复杂，但是基本东西都是一样的。