麻烦高手帮忙指点下语法错误

yajq

在表格中有textbox2和textbox3两个文本框，会输入日期，想用sql语句查询该日期范围内的数据并加载给listbox，运行代码在strSQL这里出错，想请问下这句需要怎么改，accdb文件放在D盘根目录，谢谢。


代码如下：

Private Sub CommandButton2_Click()
Sheets("发票查询").ListBox1.Clear
Dim cnADO As Object
    Dim rsADO As Object
    Dim strPath As String
    Dim strSQL As String
    Dim i, j As Long
    Dim k As Integer
    Dim str1, str2
    strPath = "D:\发票.accdb"
'创建一个连接对象，命名为cnADO
    Set cnADO = CreateObject("ADODB.Connection")
    On Error GoTo ErrMsg
'使用cnADO将本VBA程序与目标数据库连接起来
    With cnADO
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionTimeout = 100
        .Open strPath
        .cursorlocation = 3
    End With
    str1 = CDate(TextBox2.Value)
    str2 = CDate(TextBox3.Value)
'将SQL语句写在strSQL变量中
    strSQL = "SELECT * FROM 发票 WHERE 开票日期 between str1 and str2"
'使用Connection对象的Execute属性运行SQL语句
    Set rsADO = cnADO.Execute(strSQL)
   
'利用Recordset对象Fields集合取得所有字段名，写入第1行
    Sheets("发票查询").ListBox1.AddItem
    For i = 0 To rsADO.Fields.Count - 1
        Sheets("发票查询").ListBox1.List(0, i) = rsADO.Fields(i).Name
    Next i

    For i = 1 To rsADO.RecordCount
    Sheets("发票查询").ListBox1.AddItem
    For j = 0 To rsADO.Fields.Count - 1
    If rsADO.Fields(j) <> "" Then
        Sheets("发票查询").ListBox1.List(i, j) = rsADO.Fields(j)
        Else
        Sheets("发票查询").ListBox1.List(i, j) = ""
        End If
    Next j
        rsADO.movenext
    Next i
    rsADO.Close
    cnADO.Close
    Set rsADO = Nothing
    Set cnADO = Nothing
    Exit Sub
ErrMsg:
    MsgBox Err.Description, , "错误报告"
End Sub

yajq

自己顶下，在线求助 strSQL = "SELECT * FROM 发票 WHERE 开票日期 between str1 and str2"这句需要怎么修改

taller

yajq

taller 发表于 2023-5-24 23:15

老师好，strSQL 本地窗口值为 "SELECT * FROM 发票 WHERE 开票日期 between 2023-05-01 and 2023-05-27" ，sql中日期要写成 #2023-05-01#，请问在你给的这个语句中需要如何再修改下，按老师给的代码listbox只写出了表头，recordcount得到的值为0，应该是between 2023-05-01 and 2023-05-27这里日期间要加个#吧

z865593849

如果是sql报错，而且还有日期，日期要用##

taller

yajq 发表于 2023-5-24 23:32
老师好，strSQL 本地窗口值为 "SELECT * FROM 发票 WHERE 开票日期 between 2023-05-01 and 2023-05-27" ...

那就自己加上井号

kdsea

您需要将`strSQL`中的`str1`和`str2`替换为`#" & str1 & "# AND #" & str2 & "#"`，这将在SQL语句中嵌入实际的日期范围。另外，请注意，日期类型应用`#`括起来，在SQL中才能正确识别。修改后的代码如下：

```VBA
Private Sub CommandButton2_Click()
    Sheets("发票查询").ListBox1.Clear
    Dim cnADO As Object
    Dim rsADO As Object
    Dim strPath As String
    Dim strSQL As String
    Dim i, j As Long
    Dim k As Integer
    Dim str1, str2
   
    strPath = "D:\发票.accdb"
   
    '创建一个连接对象，命名为cnADO
    Set cnADO = CreateObject("ADODB.Connection")
    On Error GoTo ErrMsg
   
    '使用cnADO将本VBA程序与目标数据库连接起来
    With cnADO
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionTimeout = 100
        .Open strPath
        .cursorlocation = 3
    End With
   
    '获取Text Box中输入的日期
    str1 = Format(TextBox2.Value, "yyyy\/mm\/dd")
    str2 = Format(TextBox3.Value, "yyyy\/mm\/dd")
   
    '将SQL语句写在strSQL变量中
    strSQL = "SELECT * FROM 发票 WHERE 开票日期 BETWEEN #" & str1 & "# AND #" & str2 & "#"
   
    '使用Connection对象的Execute属性运行SQL语句
    Set rsADO = cnADO.Execute(strSQL)
   
    '利用Recordset对象Fields集合取得所有字段名，写入第1行
    Sheets("发票查询").ListBox1.AddItem
    For i = 0 To rsADO.Fields.Count - 1
        Sheets("发票查询").ListBox1.List(0, i) = rsADO.Fields(i).Name
    Next i

    For i = 1 To rsADO.RecordCount
        Sheets("发票查询").ListBox1.AddItem
        For j = 0 To rsADO.Fields.Count - 1
            If rsADO.Fields(j) <> "" Then
                Sheets("发票查询").ListBox1.List(i, j) = rsADO.Fields(j)
            Else
                Sheets("发票查询").ListBox1.List(i, j) = ""
            End If
        Next j
        rsADO.movenext
    Next i
   
    rsADO.Close
    cnADO.Close
    Set rsADO = Nothing
    Set cnADO = Nothing
    Exit Sub
   
ErrMsg:
    MsgBox Err.Description, , "错误报告"
End Sub
```

请注意，在代码中将Text Box输入的日期格式化为`yyyy\/mm\/dd`，这是为了在SQL中正确识别日期格式。另外，请注意添加错误处理以避免出现错误时停止执行。     这是CHAPT GPT 回答的，测试下，不定行