谁帮我看看这个SQL语句有什么问题？在线等！

三千年不倒

Private Sub butOK_Click()
Dim cnn As New ADODB.Connection 'ADODB连接
    Dim rs As New ADODB.Recordset 'ADODB数据表
    Dim fld As ADODB.Field
    Dim SQL As String
   
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\Administrator\Desktop\iNDEX pROBLEM\db1.mdb;"
    SQL = "select sum(CAP) from ChinaIndex where IDX_NM = “&Me.txtidx.Text&” and DT > “&Me.DTPstart.Value&” and DT < “&Me.DTPend.Value&”" '查询语句
    rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly
Cells(2, 5).CopyFromRecordset rs
rs.Close
cnn.Close


End Sub

数据库太大没法上传 还请见谅！想在数据库里查找一个值然后赋值到某个单元格
txtidx、DTPstart都是控件，输入文字跟时间的

[ 本帖最后由 三千年不倒 于 2010-10-31 11:37 编辑 ]

zhurenmu

首先你打的引号都是错的！

三千年不倒

原帖由 zhurenmu 于 2010-10-31 09:40 发表
首先你打的引号都是错的！

应该怎么打？我以为控件都要用引号加&

zhurenmu

strSQL = "select  avg(F7_5004)  from  TB_OBJECT_5004 where F2_5004=" & sDate & "and F1_5004 in " & sIDs



这个是好的 可以运行的

你打的引号是“    应该是"

zcxqwef

引号不能是全角引号吧

三千年不倒

原帖由 zhurenmu 于 2010-10-31 09:48 发表
strSQL = "select  avg(F7_5004)  from  TB_OBJECT_5004 where F2_5004=" & sDate & "and F1_5004 in " & sIDs



这个是好的 可以运行的

你打的引号是“    应该是"

嗯？我哪里打了“   ？ 除了引号还有什么地方不对吗？

qczvba

sum(CAP)后加  AS  比较灵活
ME  没有必要
DTPstart.Value 两边要加 #

gjj136138139

如果日期值的话前后要加#号的

三千年不倒

原帖由 qczvba 于 2010-10-31 10:29 发表
sum(CAP)后加  AS  比较灵活
ME  没有必要
DTPstart.Value 两边要加 #

非常感谢！不过好像还是不对啊 显示的是语法错误


还有上面说的引号到底哪里不对？

camle

没个附件,只能猜谜.可以把数据删掉一部分传上来呀. 貌似还少了group by

1.      sql = "select sum(CAP) from ChinaIndex where IDX_NM ='" & Me.txtidx.Text & "'  and DT >#" & Me.DTPstart.Value & "#  and DT <#" & Me.DTPend.Value & "#"
   

复制代码