关于access的。高分请教

2004-10-18 04:18:41 189 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

新手必看：从高分系列到Landsat，手把手教你识别和下载主流卫星遥感影像本文为新手提供卫星遥感影像的识别与下载全流程指南，涵盖高分系列到Landsat等主流数据源的选择、获取与处理技巧。重点解析GIS应用中卫星遥感影像的三大分辨率选择逻辑，并分享五大免费平台的实战操作，帮助用户高效获取和利用遥感数据。阅读详情

测试代码段如下：
Private Sub Form_Load()
Dim str As String
dim conn as new adodb.connection
Dim rst As New ADODB.Recordset

str = "select a.水表号,b.表上数字-a.表上数字 as 水耗 from 水表抄表信息 a inner join 水表抄表信息 b on a.水表号=b.水表号 where a.记录日期=#2004-10-15# and b.记录日期=#2004-10-16#"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=H:\ÎÊ\µç±í.mdb;Persist Security Info=True"
conn.Open
rst.CursorLocation = adUseClient
rst.Open str1, conn

If ExecuteSQL(str, rst) = True Then
Set DataGrid1.DataSource = rst
End If
End Sub
'*****************************************************************************************以上代码没有问题，但是如果我想用传递参数的方法，把str中的#2004-10-15#和#2004-10-15#分别作为参数，如何做，为何我的老是出错，错误提示：至少一个参数没有传入，看我代码
private sub form_load()
dim dt_begin as date
dim dt_end as date
dt_begin=#15/10/2004#
dt_end=#16/10/2004#
str="select a.水表号,b.表上数字-a.表上数字 as 水耗 from 水表抄表信息 a inner join 水表抄表信息 b on a.水表号=b.水表号 where a.记录日期=dt_begin and b.记录日期=dt_end"
............(其他代码相同，其实，这里的dt_begin,dt_end也是做演示用的，真正程序中的应该是让用户选择的)
end sub
‘*******************************************************************************
access 数据库中的表“水表抄表信息”如下
流水号水表号表上数字抄录时间
1 1 200 2004-10-15
2 2 400 2004-10-15
3 1 500 2004-10-16
4 2 1000 2004-10-16
每天晚上都会抄录的，测试查16号一天1表走水数字和2号走水数字，结果应为
水表号走水数字日期
1 300 2004-10-16
2 600 2004-10-16

sql语句在单acess中和vb不传参的时候都能通过，但是当我想利用传参来弄的时候就无论如何通不过了。恳请大家帮忙，高分。

...全文