[求助]动态生成网页怎么获取数据库的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态生成网页怎么获取数据库的数据

共有4039人关注过本帖树形打印复制链接主题：[求助]动态生成网页怎么获取数据库的数据

CoderToSinger

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

[求助]动态生成网页怎么获取数据库的数据 发帖心情

Post By：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

新人求解

CoderToSinger

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：2017/11/14 11:30:00 [只看该作者]

还有我怎么在手机上访问这个页面，127.0.0.1/ribaobiao.html么

我在手机上访问这个页面提示我无法打开网页

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106391 积分：541096 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/11/14 11:34:00 [只看该作者]

.AddSelect("xm","姓名",DataTables("订单").GetComboListString("客户"))

http://www.foxtable.com/webhelp/scr/1435.htm

手机不能使用127.0.0.1这种ip，

手机开wifi和电脑在同一个网络，HttpServer启动电脑的局域网ip，如192.168.1.1，手机通过ip访问：http://192.168.1.1/ribaobiao.html

如果不通防火墙开通80端口，或者干脆关闭防火墙测试

CoderToSinger

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：2017/11/14 16:30:00 [只看该作者]

解决了，谢谢！

然后我想要实现：点击筛选按钮，根据姓名和开始日期、结束日期筛选得到信息这个怎么用数据库实现

sql语句怎么在httprequest事件里实现

或者不用数据库怎么实现

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/14 16:48:00 [只看该作者]

参考

http://www.foxtable.com/mobilehelp/scr/0115.htm

http://www.foxtable.com/mobilehelp/scr/0110.htm

CoderToSinger

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：2017/11/15 10:56:00 [只看该作者]

突然又不灵了怎么回事图片点击可在新窗口打开查看

With wb.AddInputGroup("form1","ipg1","日报表筛选")

.AddSelect("Name","姓名",DataTables("日报表").GetComboListString("姓名")) <=====这里这里这里

.AddInput("StartDate","开始日期","date")

.AddInput("EndDate","结束日期","date")

End With

CoderToSinger

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：2017/11/15 10:58:00 [只看该作者]

取不到值，变成这样了图片点击可在新窗口打开查看

CoderToSinger

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：2017/11/15 11:05:00 [只看该作者]

哇，好了好了，我换成SQLGetComboListString就好了

CoderToSinger

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00

Post By：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

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/15 11:42:00 [只看该作者]

加入代码，看弹出什么。注意Name的大小写问题。

msgbox("name:" & e.PostValues("Name"))

msgbox("CommandText :" & flt)

下一主题 >> << 上一主题

总数 53 1 2 3 4 5 6 下一页

主题：[求助]动态生成网页怎么获取数据库的数据