|
Dim Conn As Object, rst As Object, strText$, strConn$, strSQL$, strMyr$, k, i&, x&
Set Conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
strText = "日期" & ">=#" & TextBox1.Text & "# And " & "日期" & "<=#" & TextBox2.Text & "#" & " "
For i = 1 To 3
If Me.Controls("ComboBox" & i).Value <> "" Then
strText = strText & "And " & Me.Controls("label" & i + 2).Caption & "='" & Me.Controls("ComboBox" & i).Value & "'"
End If
'If Me.TextBox3.Text <> "" Then
'strText = strText & "And " & "label6.Caption & " = " & text3.text & "
'End If
Next
With Sheets("日记账")
i = .Cells(Rows.Count, 1).End(3).Row
End With
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & ThisWorkbook.FullName
strSQL = "SELECT * From [日记账$A1:f" & i & "] Where " & strText
Conn.Open strConn
Set rst = Conn.Execute(strSQL)
Range("a2").CurrentRegion.Offset(1).ClearContents
Range("a2").CopyFromRecordset rst
i = [c65536].End(3).Row - 1
If i > 0 Then
ReDim k(1 To i)
For x = 1 To i
k(x) = x
Next
'Range("y2").Resize(i) = Application.Transpose(k)
End If
现在两个问题,第一是combobox有3个,名称为账目名称的就是可用的,收支类型和收支方式选择了条件就报错“至少一个参数没有被指定值”下面有截图
第二个问题,我的textbox3也就是备注文本框,想要模糊查询,代码应该怎么写?
再次感谢有大神帮我解决下
本帖最后由 cutecpu 于 2023-3-4 21:42 编辑
strText = strText & " And 备注 like '%" & textbox3.text & "%'"
strSQL = "SELECT * From [日记账$A1:f" & i & "] Where " & strText
Conn.Open strConn
Set rst = Conn.Execute(strSQL)
加上紅色那句
|
-
错误提示
-
日期和账目名称都是好的
|