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


  共有4696人关注过本帖树形打印复制链接

主题：[求助]动态生成网页怎么获取数据库的数据
帅哥哟，离线，有人找我吗？
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么
我在手机上访问这个页面提示我无法打开网页
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/14 16:30:00 [显示全部帖子]

解决了，谢谢！
然后我想要实现：点击筛选按钮，根据姓名和开始日期、结束日期 筛选得到信息 这个怎么用数据库实现
sql语句怎么在httprequest事件里实现
或者不用数据库怎么实现
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/15 10:58:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/15 11:05:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/15 13:18:00 [显示全部帖子]

弹出都是空，怎么解决。。

 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/15 14:36:00 [显示全部帖子]

    Case "result.html"
        Dim flt As String
        If e.PostValues.ContainsKey("Name") Then
            flt = "姓名 = '" & e.PostValues("Name") & "'"
        End If
        If e.PostValues.ContainsKey("StartDate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "日期 >= '" & e.PostValues("StartDate") & "'"
        End If
        If e.PostValues.ContainsKey("EndDate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "日期 <= '" & e.PostValues("EndDate") & "'"
        End If
        msgbox("name:" & e.PostValues("Name"))
        msgbox("CommandText :" & flt)
        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
        With wb.AddButtonGroup("","btg1",True)
            .Add("btn1","重新筛选","","filter.html")
        End With
End Select
e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/15 14:38:00 [显示全部帖子]

找了半天。。没有头绪图片点击可在新窗口打开查看
大小写应该没什么问题吧
 回到顶部
总数 35 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询