Dim a As String

Private Sub Command1_Click()

Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from 入货表 where 日期 like '" & a & "'&'-'& '" & Combo1.Text & "'& '%'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
Label7.Caption = rs.Fields(1) '此语句用来测试有没有查出数据
End Sub

Private Sub Form_Load()
Label2.Caption = Year(Date)
a = Label2.Caption
End Sub
为什么以上语句的RS.bof老是为真？
说明a 的值为年，combo1.text为1,2,3,4....
我的意思是：从combo1.text中选一个月值的数字（1，2，3等）进行数据库查询
数据库的日期字段是以文本形式存数据的，如：2007-9-9

[此贴子已经被作者于2007-9-10 14:25:57编辑过]

没有记录BOF即为真
此时访问RECORDSET.FIELDS会出错

IF NOT RS.BOF THEN Label7.Caption = rs.Fields(1)


还有你的SQL语句好像。。。。

"select * from 入货表 where 日期 like '" & a & "-" & Combo1.Text & "-%'"

[此贴子已经被作者于2007-9-10 14:47:07编辑过]

sql = "select * from 入货表 where 日期 like '" & a & "'&'-'& '" & Combo1.Text & "'& '%'"
改為：
sql="select * from 入货表 where convert(varchar(10),日期,120) = convert(varchar(10),'"& a & "-' & '"& combo1.text &"',120)"
日期好像用like 查詢，不太合適。。。。你那樣還不如給一個日期范圍，取日期范圍內的數據。。。

[此贴子已经被作者于2007-9-10 16:32:46编辑过]

详细啊 收藏了紧急呀

--------------------------------------------

月光里，冷冷清清，几行小脚印,昭示[url=http://www.gw365.com/huazhuang/4864.asp]可丽儿[/url]曾经来过或不忍离去的踌躇 乌鸦飞过，白色的，[url=http://www.gw365.com/shoush/4870.asp]千朵朵[/url]全身都是白色的

汗。。。問題 到底解決了沒有？？？LZ也不說句話。。還是已經下線了。。？？

[此贴子已经被作者于2007-9-10 20:08:05编辑过]

请教一个很菜的问题：
我怎么就是找不到在哪里发表问题的主题贴子？.
请教教我吧。先行谢过！

你是要找帖還是發帖。。﹝
如果是發帖 的話。。那麼在網頁的左上方有一個發表文章，發帖就在這裡發。。。
如果是找帖 的話。。那麼在網頁的左下方有一個探索。。或者在網頁上方，大概中間部分有一個探索。。。

那是“搜索”……

如果是發帖 的話。。那麼在網頁的左上方有一個發表文章，發帖就在這裡發。。。

如图，没有“发表文章”？