我的查询代码哪里出错了

luanyu6688 · 发表于 2009-7-20 10:01

我做的查询，不知道怎么的余额查不出来和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)

chentx · 发表于 2009-7-20 10:17

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

LAOMALIN · 发表于 2009-7-20 10:42

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

luanyu6688 · 发表于 2009-7-20 10:56

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

蓝桥玄霜 · 发表于 2009-7-20 11:56

我这里执行可以的哦。

luanyu6688 · 发表于 2009-7-20 14:28

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

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

luanyu6688 · 发表于 2009-7-20 17:51

		自动登录	找回密码
密码			免费注册

[求助] 我的查询代码哪里出错了