vb跟查询日期
我想输入日期,然后按下查询,其他有关的文本框,显示有关这天的全部信息,该怎么写程序,求大神指点
假设日期在text1中,查询后结果在其他text2(0)...text2(n)中,并且conn连接已打开,查询按钮为command1
Private Sub Command1_Click()
dim rs as new recordset,a as string,i as integer
if not isdate(text1) then
msgbox "日期格式不对,请重新输入日期"
text1.setfocus
exit sub
endif
a="select * from 数据表名 where 日期=#" & text1 & "#"
rs.Open a, conn, adOpenKeyset, adLockOptimistic '打开记录集
if not rs.eof then
for i=0 to rs.fields.count - 1
if not isnull(rs.fields(i)) then text2(i)=rs.fields(i) '显示第一条记录数据
next
endif
rs.close
End Sub
大神,你这样问问题太泛泛了,你至少有一个非常具体的东西再来问吧,比如说数据库结构、窗体编排都已经设计好了,再来开问吧。要不你干脆给数据库,说你要的功能,让别人完成也比你这样问问题好。