爱问知识人 爱问教育 医院库

VB组合查询语句求助

首页

VB组合查询语句求助


        

提交回答
好评回答
  • 2019-06-02 23:39:16
    Adodc1.RecordSource = "select * from kaoqin where " & Combo2 & " = '" & Combo3 & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1

    刘***

    2019-06-02 23:39:16

其他答案

    2019-06-03 00:23:01
  •   dim ss=""If Check1。Value = "1" Thenss = Combo1。Textss = "%%" & ss & "%%"s = " and 学历 like '" + ss + "'"End IfIf Check2。
      Value = "1" Thenss = Text1。Textss = "%%" & ss & "%%"s = s &" and 姓名 like '" + ss + "'"End IfIf Check3。Value = "1" Thenss = Combo3。
      Textss = "%%" & ss & "%%"s = s & " and 部门 like '" + ss + "'"End IfIf Check4。Value = "1" Thenss = Combo4。Textss = "%%" & ss & "%%"s = s & " and 性别 like '" + ss + "'"End IfAdodc1。
      RecordSource = "SELECT * FROM ygxx where '1'='1' " & sAdodc1。Refresh。

    就***

    2019-06-03 00:23:01

  • 2019-06-02 23:57:39
  • 思路是这样:把check和combo控件做成控件数组,然后combo(0).tag=“学历” comb0(1).tag=“姓名”,依次类推dim I as integerPrivate Sub Check_Click(Index As Integer)I=indexEnd Sub最后在“查询”单击事件中dim S as strings="select * from ygxx where "s=s & combo(i).tag & " like '" & combo(i).text & "'"Adodc1.RecordSource = sAdodc1.Refresh

    w***

    2019-06-02 23:57:39

类似问题

换一换
  • 程序设计 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):