- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]动态生成网页怎么获取数据库的数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109534)
-- 发布时间：2017/11/14 11:28:00
-- [求助]动态生成网页怎么获取数据库的数据
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm"
e.WriteFile(fl)
End Select
End If
\'以下是动态生成网页的代码
Select Case e.Path
Case "ribaobiao.html"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("","form1","ribaobiao.html")
With wb.AddInputGroup("form1","ipg1","日报表筛选")
.AddSelect("xm","姓名","??") ‘这里怎么获取数据库中不重复的姓名
.AddInput("ksrq","开始日期","date")
.AddInput("jsrq","结束日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","筛选")
End With
e.WriteString(wb.Build) \'生成网页
End Select
新人求解
-- 发布时间：2017/11/14 11:30:00
--
还有 我怎么在手机上访问这个页面，127.0.0.1/ribaobiao.html么
我在手机上访问这个页面提示我无法打开网页
-- 发布时间：2017/11/14 11:34:00
--
.AddSelect("xm","姓名",DataTables("订单").GetComboListString("客户"))
手机不能使用127.0.0.1这种ip，
手机开wifi和电脑在同一个网络，HttpServer启动电脑的局域网ip，如192.168.1.1，手机通过ip访问：http://192.168.1.1/ribaobiao.html
如果不通防火墙开通80端口，或者干脆关闭防火墙测试
-- 发布时间：2017/11/14 16:30:00
--
解决了，谢谢！
然后我想要实现：点击筛选按钮，根据姓名和开始日期、结束日期 筛选得到信息 这个怎么用数据库实现
sql语句怎么在httprequest事件里实现
或者不用数据库怎么实现
-- 发布时间：2017/11/14 16:48:00
--
参考
http://www.foxtable.com/mobilehelp/scr/0115.htm
http://www.foxtable.com/mobilehelp/scr/0110.htm
-- 发布时间：2017/11/15 10:56:00
--
突然又不灵了怎么回事
With wb.AddInputGroup("form1","ipg1","日报表筛选")
.AddSelect("Name","姓名",DataTables("日报表").GetComboListString("姓名")) <=====这里这里这里
.AddInput("StartDate","开始日期","date")
.AddInput("EndDate","结束日期","date")
End With
-- 发布时间：2017/11/15 10:58:00
--
取不到值，变成这样了
-- 发布时间：2017/11/15 11:05:00
--
哇，好了好了，我换成SQLGetComboListString就好了
-- 发布时间：2017/11/15 11:36:00
--
为什么筛选条件没有用，是e.PostValues没有获取到值么，还是拼接的原因
Dim flt As String
If e.PostValues.ContainsKey("Name") Then
flt = "姓名 = \'" & e.PostValues("Name") & "\'"
End If
cmd.CommandText = "selec t [日期],[姓名],[设备编号ID] As 设备编号,[工序],[工位],[物料名称],[规格],[数量],[单位],[工时] fro m {日报表}"
If flt <> "" Then
cmd.CommandText = cmd.CommandText & "wher e" & flt
End If
With wb.AddTable("","Table1")
.CreateFromDataTable(cmd.ExecuteReader)
End With
-- 发布时间：2017/11/15 11:42:00
--
加入代码，看弹出什么。注意Name的大小写问题。
msgbox("name:" & e.PostValues("Name"))
msgbox("CommandText :" & flt)