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


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

主题：[求助]动态生成网页怎么获取数据库的数据
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 11:36:00 [只看该作者]

Select Case e.Path
    Case "filter.html"
        wb.AddForm("","form1","result.html")
        With wb.AddInputGroup("form1","ipg1","日报表筛选")
            .AddSelect("Name","姓名",dtb.SQLGetComboListString("姓名")) '这里的Name会自动转换为小写name
            .AddInput("StartDate","开始日期","date")
            .AddInput("EndDate","结束日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","筛选","button").Attribute = ""
        End With
        With wb.AddDialog("","dlg1","提示","筛选成功")
            .AddButton("btnOK","OK")
        End With
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
这样能看出问题在哪么？
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 11:38:00 [只看该作者]

.Add("btnok","筛选","button").Attribute = ""
上面发漏了这点
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 11:39:00 [只看该作者]


这点代码为什么显示不了。。
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 11:40:00 [只看该作者]

。Attribute后面： = “onclick=‘myfunction（）’”

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/16 12:17:00 [只看该作者]

红色代码要写对

 

function myfunction(){

    var result = submitAjaxForm('form1','',false);
    alert(result);
    show('dlg1');
}
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 13:21:00 [只看该作者]

哦哦，不好意思，现在成功了
但是我还是想请教下 result返回为空是为什么
帮助文件里的result=='OK'又是哪里来的呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/16 14:49:00 [只看该作者]

以下是引用CoderToSinger在2017/11/16 13:21:00的发言：
哦哦，不好意思，现在成功了
但是我还是想请教下 result返回为空是为什么
帮助文件里的result=='OK'又是哪里来的呢

 

result是你网页返回的，如

 

e.WriteString("OK")

 

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


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 16:02:00 [只看该作者]

 分页查询   点击筛选，为什么会连续弹出三个 "‘姓名‘ 附近有错误" 弹窗
Dim page As Integer = 0 '默认page为0,显示第一页
        Dim pageRow As Integer = 10 '每页10行
        If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
            Integer.TryParse(e.GetValues("page"), page) '提取page参数
        End If
        Dim StartRow As Integer = page * pageRow '此页第一行
        Dim EndRow As Integer = (page+1) * pageRow - 1 '此页最后一行
        Dim flt As String
        If e.PostValues.ContainsKey("name") Then
            flt = "[姓名] = '" & e.PostValues("name") & "'"
        End If
        cmd.CommandText = "selec t [日期],[姓名],[设备编号ID],[工序],[工位],[物料名称],[规格],[数量],[单位],[工时] fro m " & _
                        "(Select Row_Number() Over(Order by [日期] Desc) As 序号, " & _
                   " * Fro m {日报表}) As tmp"
        cmd.CommandText = cmd.CommandText & "wher e" & flt & " tmp.[序号]>=" & StartRow & "And tmp.[序号]<=" & EndRow
        Dim Count As Integer = cmd.ExecuteScalar() '获取行的总数
        DataTables("日报表").SQLLoad(cmd.CommandText)
        cmd.ExecuteReader
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/11/16 16:05:00 [只看该作者]

还有我这不是重新生成一个页面，而是在软件窗口中加载表格数据
上一页下一页的按钮应该怎么解决呢，生成在filter。html页面中还是。。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/16 16:09:00 [只看该作者]

1、你用的是access数据库还是sqlserver数据库？

 

2、具体例子发上来说明。
 回到顶部
总数 53 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询