关于SQL语句在VB里使用的问题

[karm]

Dim con As adodb.Connection

Dim rsc As adodb.Recordset



str1 = "select 日期 as 日期,入口产量 as 入口产量,出口产量 as 出口产量,本班末包装重量 as 末包重量,上班交班包装重量 as 交班重量,头尾板重量 as 头尾板重量,本班机组缺陷 as 本机组缺陷,缺陷封闭量 as 缺陷封闭量,缺陷放行量 as 缺陷放行量 from 生产情况 where 日期 between #" & CStr(CDate(md_firstdate.Text)) & "# and #" & CStr(CDate(md_enddate.Text)) & "# order by 日期 desc"
Set rsc = con.Execute(str1)

Set Grid.DataSource = rsc

查询时出错,只得出最近日期的数据.后把"order by 日期 desc"去掉只得出开始时间,程序都不报错,有谁能帮帮我?

[xayzmb]

能不能把程序运行时生成的STR1打出来看看。

[DimVar]

要知道具体情况才有较好的解决办法，所以下面这个方法不是效率最高的，但是稳妥的。
where convert(char(8),日期,112) between '" & format(md_firstdate.Text,"yyyyymmdd") & "' and '" & format(md_enddate.Text,"yyyymmdd") & "' order by convert(char(8),日期,112) desc"

[xysophie]

如果你的“日期”字段是datetime﹐可以這樣試試
str1 = "select 日期 as 日期,入口产量 as 入口产量,出口产量 as 出口产量,本班末包装重量 as 末包重量,上班交班包装重量 as 交班重量,头尾板重量 as 头尾板重量,本班机组缺陷 as 本机组缺陷,缺陷封闭量 as 缺陷封闭量,缺陷放行量 as 缺陷放行量 from 生产情况 where 日期 between #" & CDate(md_firstdate.Text) & "# and #" & CDate(md_enddate.Text) & "# order by convert(char(10),日期,111) desc"

[饮水需思源]

日期条件的查询写法：
在access中:
str1=" select ... from ... where 日期=# " & 日期查询变量 & " # "
在SQL中：
str1=" select ... from ... where 日期='"& 日期查询变量 &"'"

[watt]

CStr(CDate(md_firstdate.Text)) -->format(md_firstdate.Text,"yyyy/mm/dd")

[IwantFlay]

同意 xysophie
如果你的日期字段就一个char 或vachar 型.
干脆就用 日期>=CStr(CDate(md_firstdate.Text)) and 日期<CStr(CDate(md_enddate.Text))

介意楼主在使用char时的时候保存时用yyyymmdd格式,

[rongyijizhu]

估计是在sql server中，可如下：
Dim con As adodb.Connection
Dim rsc As adodb.Recordset
str1 = "select 日期 as 日期,入口产量 as 入口产量,出口产量 as 出口产量,本班末包装重量 as 末包重量,上班交班包装重量 as 交班重量,头尾板重量 as 头尾板重量,本班机组缺陷 as 本机组缺陷,缺陷封闭量 as 缺陷封闭量,缺陷放行量 as 缺陷放行量 from 生产情况 where convert(char,日期,102) between & format(CStr(md_firstdate.Text),'yyyy.mm.dd') & " and " & format(CStr(md_enddate.Text),'yyyy.mm.dd') & " order by 日期 desc"
Set rsc = con.Execute(str1)
Set Grid.DataSource = rsc

[karm]

谢谢大家,后来我自已解决了,原来发现我的DATEGRID没有设置标题,SQL语句没错,只是后面改为



Adodc1.RecordSource = str1

Set grid.DataSource = Adodc1

Adodc1.Refresh


嘻嘻,好了!!!