我的查询代码哪里出错了

luanyu6688

我做的查询，不知道怎么的余额查不出来和F列、H列查不到数据，请各位帮我看看哪里出错了，代码如下
Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ActiveWorkbook.FullName
strsql = "select f2 from [报表$a:b] where f1='" & [h1] & "'"
Set rs = cnn.Execute(strsql)
Range("i5").CopyFromRecordset rs
strsql = "select * from [收付款$a:h] Where f1 >=#" & [b1] & "# and f1<=#" & [b2] & "# and f3='" & Range("h1") & "'"
Set rs = cnn.Execute(strsql)
Range("a6").CopyFromRecordset rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
复件 客户往来系统.rar (139.56 KB, 下载次数: 10)

2009-7-20 10:01 上传

点击文件名下载附件

chentx

你的余额是怎么来的，另外，你的表既然是要作为一个微型数据库的样式，那就要把标题写在第一行上吧，存储数据的页面老是空那么一两行，不知作用是为何。

LAOMALIN

你报表中并没有石晶的姓名

luanyu6688

我的期初余额在“报表”中B列中，还是”石晶“是没有期初余额的，你可以试其他的客户的帐，也是不行，还我在查明细帐时有两列的数据查不到，怎么解决，请各位帮忙一下

蓝桥玄霜

我这里执行可以的哦。

luanyu6688

原帖由 蓝桥玄霜 于 2009-7-20 11:56 发表
我这里执行可以的哦。

可是在我这里执行不可以，F和H列查不到数据，期初余额I5单元格也查不到数据

luanyu6688