[已解决][求助]请帮忙修改用EXCEL查询ACCESS (已解决）

jilijun

     模仿别人做的查询系统，但原教程只有按时间和姓名查询，我想添加一个按日期的起始查询
做到这里不会了，请各位老师指点修改，谢谢！！

详见附件，麻烦各位老师了！

  Q2gtJ3Gi.rar (23.58 KB, 下载次数: 28)

2008-1-15 23:25 上传

点击文件名下载附件
[求助]请帮忙修改用EXCEL查询ACCESS

[此贴子已经被作者于2008-1-16 17:04:57编辑过]

最佳答案

月排行榜 / 总排行榜

戏子

2008-1-16 09:09

Private Sub CommandButton1_Click()
Dim CNN As New ADODB.Connection
     Dim RST As New ADODB.Recordset
     Dim Stpath, strSQL As String
     Stpath = ThisWorkbook.Path & Application.PathSeparator & "DATA.mdb"
     CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
     If ComboBox日期.Value = "" Then
     strSQL = "Select * from 门诊数据库2 WHERE 姓名 LIKE '" & ComboBox姓名.Value & "'"
     ElseIf ComboBox姓名.Value = "" Then
     strSQL = "Select * from 门诊数据库2 WHERE 日期 LIKE '" & ComboBox日期.Value & "'"

     Else
     strSQL = "Select * from 门诊数据库2 WHERE 姓名 LIKE '" & ComboBox姓名.Value & "%'" & "AND 日期 between #" & ComboBox日期 & "# AND #" & ComboBox截至日期 & "#"
     End If
     RST.Open strSQL, CNN
     Sheet1.Range("A2:I8000").ClearContents
     Sheet1.Cells(2, 1).CopyFromRecordset RST
RST.Close
    Set RST = Nothing
    Set CNN = Nothing
End Sub

[此贴子已经被作者于2008-1-16 9:11:52编辑过]

跳转到最佳答案楼层

戏子

strSQL = "Select * from 门诊数据库2 WHERE 姓名 LIKE '" & ComboBox姓名.Value & "'" & "AND 日期 between #" & ComboBox日期 & "# AND #" & ComboBox截至日期 & "#"

兰色幻想

日期需要两边加#的,如:

between #" & 开始日期 & "# and #" & 结束日期 &"#"

 具体的你来调试吧

wayy

QUOTE:

以下是引用兰色幻想在2008-1-15 23:42:00的发言：

日期需要两边加#的,如:

between #" & 开始日期 & "# and #" & 结束日期 &"#"

 具体的你来调试吧

学习一下。

hhzjxss

SQL[em06]

jilijun

感谢各位版主的指点！！

可能我的代码中有错误吧，还是没做成功，请帮我贴出完整的代码吧！！

麻烦了！！

戏子

Private Sub CommandButton1_Click()
Dim CNN As New ADODB.Connection
     Dim RST As New ADODB.Recordset
     Dim Stpath, strSQL As String
     Stpath = ThisWorkbook.Path & Application.PathSeparator & "DATA.mdb"
     CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
     If ComboBox日期.Value = "" Then
     strSQL = "Select * from 门诊数据库2 WHERE 姓名 LIKE '" & ComboBox姓名.Value & "'"
     ElseIf ComboBox姓名.Value = "" Then
     strSQL = "Select * from 门诊数据库2 WHERE 日期 LIKE '" & ComboBox日期.Value & "'"

     Else
     strSQL = "Select * from 门诊数据库2 WHERE 姓名 LIKE '" & ComboBox姓名.Value & "%'" & "AND 日期 between #" & ComboBox日期 & "# AND #" & ComboBox截至日期 & "#"
     End If
     RST.Open strSQL, CNN
     Sheet1.Range("A2:I8000").ClearContents
     Sheet1.Cells(2, 1).CopyFromRecordset RST
RST.Close
    Set RST = Nothing
    Set CNN = Nothing
End Sub

[此贴子已经被作者于2008-1-16 9:11:52编辑过]

戏子

要求:录入日期格式为标准短日期格式,如:2008-1-15

HUMWqGf1.rar (24.79 KB, 下载次数: 41)

2008-1-16 09:10 上传

点击文件名下载附件
[求助]请帮忙修改用EXCEL查询ACCESS

学无尽

跟着学习一下！

jilijun

十分感谢戏子版主相助，问题解决了！！

我对VBA不了解，照搬教程的语法。

[此贴子已经被作者于2008-1-16 17:08:28编辑过]