VB—联合查询（查询学生信息实例）

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB—联合查询（查询学生信息实例），前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

刚刚进行完了机房收费系统关于联合查询的部分，整个代码进行完了，才发现，联合查询的东西不是很多，要用到知识就只有一个写查询的语句，最难的地方就是分析查询情况，首先呢，简单介绍下我整个代码的思路，先列出查询时可能出现的情况：


1.我们现在将第一句话当成一个查询的条件（卡号=1），仅用这一个条件进行查询

2.将第一句话和第二句话联合起来，作为一个查询条件，进行查询（卡号=1与学号=1）

3.将第一、二、三种加起来，视为一种查询的条件，进行查询

分析完查询可能出现的几种情况，接下来，我们就开始写代码了！

  1. Private Subcmdinquire_Click()
  2.    
  3.     Dim mrc As ADODB.Recordset
  4.     Dim txtsql As String
  5.     Dim msgtext As String
  6.     '定义变量，将文本框中所输入的内容转化成字段输出来
  7.     Dim FLD(0 To 4) As String
  8.     Dim relation(0 To 1) As String
  9.     '定义三种方式，判断文本框中输入的内容是否为空（格式：text1.text<>"")
  10.     Dim ok1 As Boolean
  11.     Dim ok2 As Boolean
  12.     Dim ok3 As Boolean
  13.  
  14.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <>"" Then
  15.         ok1 = True
  16.     Else
  17.         ok1 = False
  18.     End If
  19.  
  20.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <>"" And cmbandor(0).Text <> "" And cmbfield(1).Text<> "" And cmbsign(1).Text <> "" AndTrim(txtinquire(1).Text) <> "" Then
  21.         ok2 = True
  22.     Else
  23.         ok2 = False
  24.     End If
  25.  
  26.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <>"" And cmbandor(0).Text <> "" And cmbfield(1).Text<> "" And cmbsign(1).Text <> "" AndTrim(txtinquire(1).Text) <> "" And cmbfield(2).Text <>"" And cmbsign(2).Text <> "" AndTrim(txtinquire(2).Text) <> "" Then
  27.         ok3 = True
  28.     Else
  29.         ok3 = False
  30.     End If
  31. 定义一个变量FLD（注意：这里定义变量时所用的名称不能和ＶＢ里的关键字相重复）
  32. 　　将下拉菜单中所选择的东西转换成数据库中的字段，进行查询
  33.     FLD(0) = "work_date"
  34.     FLD(1) = "work_time"
  35.     FLD(2) = "work_teacher"
  36.     FLD(3) = "teacher_type"
  37.     FLD(4) = "PC_name"
  38.  
  39.  
  40.     relation(0) = " and "
  41.     relation(1) = " or "
  42.  
  43.    
  44. '当三种查询的条件都满足的时候
  45.     If ok1 = True Then
  46.         If ok2 = True Then
  47.             If ok3 = True Then　　　　　　　　　　　　　　　　（注意：ListIndex属性的使用，这里使用listIndex是为了设定下拉菜单中返回值为字符串）
  48.                 txtsql = "select * fromwork_teacher where " & Trim(FLD(cmbfield(0).ListIndex)) & Trim(cmbsign(0).Text) & "'" &Trim(txtinquire(0).Text) & "'" &relation(cmbandor(0).ListIndex) & Trim(FLD(cmbfield(1).ListIndex)) &Trim(cmbsign(1).Text) & "'" & Trim(txtinquire(1).Text) &"'" & relation(cmbandor(0).ListIndex) &Trim(FLD(cmbfield(2).ListIndex)) & Trim(cmbsign(2).Text) &"'" & Trim(txtinquire(2).Text) & "'"
  49.  
  50.      写查询语句的时候更要注意符号的使用，尤其是单引号和双引号，在这里教给大家一个小方法，我们写完一句查询语句，然后可以 msgBox txtsql 设置一个立即窗口检查下自己是否书写正确！
  51.             Else '满足两种查询条件
  52.  
  53.                 txtsql = "select * fromwork_teacher where " & Trim(FLD(cmbfield(0).ListIndex)) &Trim(cmbsign(0).Text) & "'" & Trim(txtinquire(0).Text) &"'" & relation(cmbandor(0).ListIndex) & Trim(FLD(cmbfield(1).ListIndex))& Trim(cmbsign(1).Text) & "'" & Trim(txtinquire(1).Text)& "'"
  54.             End If
  55.         Else '满足一种查询条件
  56.             txtsql = "select * fromwork_teacher where " & Trim(FLD(cmbfield(0).ListIndex)) &Trim(cmbsign(0).Text) & "'" & Trim(txtinquire(0).Text) &"'"
  57.  
  58.         End If
  59.     Else  '没有输入完整的条件，查空
  60.         Call checktext(0)
  61.         Exit Sub
  62.     End If
  63.  
  64.     Set mrc = Executesql(txtsql,msgtext)
  65.  
  66.     If mrc.EOF Then
  67.  
  68.         MsgBox "没有找到符合要求的结果！",vbOKOnly +vbInformation,"提示"
  69.  
  70.         With myflexgrid
  71.             .Rows = 1
  72.             .CellAlignment = 4
  73.             .TextMatrix(0,0) = "上机日期"
  74.             .TextMatrix(0,1) = "上机时间"
  75.             .TextMatrix(0,2) = "操作教师"
  76.             .TextMatrix(0,3) = "教师类型"
  77.             .TextMatrix(0,4) = "机器号"
  78.  
  79.         End With
  80.         Exit Sub
  81.     Else
  82.         With myflexgrid
  83.             .Rows = 1
  84.             .CellAlignment = 4
  85.             .TextMatrix(0,4) = "机器号"
  86.             Do While Not mrc.EOF
  87.                 .Rows = .Rows + 1
  88.                 .TextMatrix(.Rows - 1,0) =mrc.Fields("work_date")
  89.                 .TextMatrix(.Rows - 1,1) =mrc.Fields("work_time")
  90.                 .TextMatrix(.Rows - 1,2) =mrc.Fields("work_teacher")
  91.                 .TextMatrix(.Rows - 1,3) =mrc.Fields("teacher_type")
  92.                 .TextMatrix(.Rows - 1,4) =mrc.Fields("PC_name")
  93.                 mrc.MoveNext
  94.             Loop
  95.         End With
  96.         mrc.Close
  97.  
  98.     End If
  99.  
  100. End Sub
  101.  
  102. Private SubForm_Load()
  103. cmbandor(0).AddItem"与"
  104. cmbandor(0).AddItem"或"
  105.  
  106. cmbandor(1).AddItem"与"
  107. cmbandor(1).AddItem"或"
  108.  
  109. cmbfield(0).AddItem"上机日期"
  110. cmbfield(0).AddItem"上机时间"
  111. cmbfield(0).AddItem"操作教师"
  112. cmbfield(0).AddItem"教师类型"
  113. cmbfield(0).AddItem"机器号"
  114.  
  115.  
  116. cmbfield(1).AddItem"上机日期"
  117. cmbfield(1).AddItem"上机时间"
  118. cmbfield(1).AddItem"操作教师"
  119. cmbfield(1).AddItem"教师类型"
  120. cmbfield(1).AddItem"机器号"
  121.  
  122. cmbfield(2).AddItem"上机日期"
  123. cmbfield(2).AddItem"上机时间"
  124. cmbfield(2).AddItem"操作教师"
  125. cmbfield(2).AddItem"教师类型"
  126. cmbfield(2).AddItem"机器号"
  127.  
  128. cmbsign(0).AddItem"<"
  129. cmbsign(0).AddItem">"
  130. cmbsign(0).AddItem"="
  131. cmbsign(0).AddItem"<>"
  132.  
  133. cmbsign(1).AddItem"<"
  134. cmbsign(1).AddItem">"
  135. cmbsign(1).AddItem"="
  136. cmbsign(1).AddItem"<>"
  137.  
  138.  
  139. cmbsign(2).AddItem"<"
  140. cmbsign(2).AddItem">"
  141. cmbsign(2).AddItem"="
  142. cmbsign(2).AddItem"<>"
  143. '
  144.  
  145. End Sub
  146. Private Subchecktext(Index As Integer)
  147.     Dim ok1 As Boolean
  148.     Dim ok2 As Boolean
  149.     Dim ok3 As Boolean
  150.  
  151.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <>"" Then
  152.         ok1 = True
  153.     Else
  154.         ok1 = False
  155.     End If
  156.  
  157.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <>"" And cmbandor(0).Text <> "" And cmbfield(1).Text<> "" And cmbsign(1).Text <> "" AndTrim(txtinquire(1).Text) <> "" Then
  158.         ok2 = True
  159.     Else
  160.         ok2 = False
  161.     End If
  162.  
  163.     If cmbfield(0) <> "" Andcmbsign(0) <> "" And Trim(txtinquire(0).Text) <> ""And cmbandor(0).Text <> "" And cmbfield(1).Text <>"" And cmbsign(1).Text <> "" AndTrim(txtinquire(1).Text) <> "" And cmbfield(2).Text <>"" And cmbsign(2).Text <> "" AndTrim(txtinquire(2).Text) <> "" Then
  164.         ok3 = True
  165.     Else
  166.         ok3 = False
  167.     End If
  168.  
  169.     If Not TestTxt(cmbfield(Index).Text) Then
  170.         MsgBox "请选择字段名",vbOKOnly + vbInformation,"提示"
  171.         cmbfield(Index).SetFocus
  172.         Exit Sub
  173.     End If
  174.     If Not TestTxt(cmbsign(Index).Text) Then
  175.         MsgBox "请选择操作符","提示"
  176.         cmbsign(Index).SetFocus
  177.         Exit Sub
  178.     End If
  179.     If Not TestTxt(txtinquire(Index).Text) Then
  180.         MsgBox "请输入要查询的内容","提示"
  181.         txtinquire(Index).SetFocus
  182.         Exit Sub
  183.     End If
  184.  
  185. End Sub
到这了，所有的功能就能全部实现了，看下是不是很简单呢！ 如果谁有更好的方法欢迎指点批评！

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积