SQL求两个日期间的数据结果

crystal16810

我是来讨说法的 发表于 2018-9-6 12:49
你的sql最终是这样的：
(Select 学生编号,学生姓名,性别,身份证号,宿舍房号,班级,联系电话,家长联系电话, ...

您好，感谢回复，这个代码不是原来上载的吧？

crystal16810

请问，如果是多条件查询，这样写对吗？感谢回复。
If sDate1(1, 1) <> "" Then sWhere = sWhere & "where [入住时间] between #" & sDate1(1, 1) & "# and  #" & sDate1(2, 1) & "# "

LMY123

crystal16810 发表于 2018-9-6 15:38
请问，如果是多条件查询，这样写对吗？感谢回复。
If sDate1(1, 1)  "" Then sWhere = sWhere & "where [ ...

Sub ADO_有字段名()
  Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
  [a9:K65536] = Empty
  Set mycn = CreateObject("adodb.connection")
  Set myrs = CreateObject("adodb.recordset")
  mycn.Open "dsn=excel files;hdr=yes;dbq=" & ThisWorkbook.FullName
  Sql = "select * from[学生入住登记表$] " _
  & "WHERE (入住时间>=#" & Cells(2, 12) & "# AND 入住时间<=#" & Cells(3, 12) & "#) " _
  & "AND 宿舍房号='" & Cells(2, 8) & "' "
  myrs.Open Sql, mycn, 1, 1
  Range("a9").CopyFromRecordset myrs
End Sub

crystal16810

LMY123 发表于 2018-9-6 16:24
Sub ADO_有字段名()
  Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
...

感谢老师的回复及指导，您这个是两条件同时进行的时候可以实现呢，但如果希望可以是两条件时可以实现，只是单条件也可以实现，该如何设置。再次感谢您的指导。

LMY123

crystal16810 发表于 2018-9-6 17:06
感谢老师的回复及指导，您这个是两条件同时进行的时候可以实现呢，但如果希望可以是两条件时可以实现，只 ...

Sub ADO_有字段名()
  Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
  [a9:K65536] = Empty
  Set mycn = CreateObject("adodb.connection")
  Set myrs = CreateObject("adodb.recordset")
  mycn.Open "dsn=excel files;hdr=yes;dbq=" & ThisWorkbook.FullName
  If Len(Cells(2, 8)) = 0 And Cells(3, 12) <> "" Then '''查询条件只有日期
      Sql = "select * from[学生入住登记表$] WHERE (入住时间>=#" & Cells(2, 12) & "# AND 入住时间<=#" & Cells(3, 12) & "#) "
  ElseIf Len(Cells(2, 8)) And Cells(3, 12) = "" Then '''查询条件只有宿舍房号
      Sql = "select * from[学生入住登记表$] WHERE 宿舍房号='" & Cells(2, 8) & "' "
  ElseIf Len(Cells(2, 8)) And Cells(3, 12) <> "" Then '''查询条件为日期与宿舍房号双条件
      Sql = "select * from[学生入住登记表$] WHERE (入住时间>=#" & Cells(2, 12) & "# AND 入住时间<=#" & Cells(3, 12) & "#) AND 宿舍房号='" & Cells(2, 8) & "' "
  Else '''///什么查询条件也没有
      Sql = "select * from[学生入住登记表$] "
  End If
  myrs.Open Sql, mycn, 1, 1
  Range("a9").CopyFromRecordset myrs
End Sub

crystal16810

LMY123 发表于 2018-9-6 17:28
Sub ADO_有字段名()
  Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
...

感谢15楼老师的指点，已经搞定了，非常感谢！