VB6.0 webBrowser写入HTML语言并将Recordset返回为HTML表格-问答-阿里云开发者社区-阿里云

开发者社区> 问答> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

VB6.0 webBrowser写入HTML语言并将Recordset返回为HTML表格

2016-03-13 11:36:26 2641 1

窗体里添加webBrowser1 (在部件里添加Microsoft internet control)和 Command1控件。 运用以下的函数将 Adodc1.Recordset 返回到HTML表格中,为什么实现不了啊?哪位高手支支招???

Private Sub Command1_Click()
   Dim strHtml As String
    strHtml = "<html>" & vbCrLf
    strHtml = strHtml & "<head>" & vbCrLf
    strHtml = strHtml & "</head>" & vbCrLf
    strHtml = strHtml & "<h1 align='center'>报告单</h1>" & vbCrLf
    strHtml = strHtml & "<body>" & vbCrLf
    strHtml = strHtml & ReturnHTMLTable(Adodc1)
     strHtml = strHtml & "<li>" & vbCrLf
    strHtml = strHtml & "Hello" & vbCrLf
    strHtml = strHtml & "<input type='button' name='Submit22' value=' 打印此页 ' onClick='javascript:print();'>" & vbCrLf
    strHtml = strHtml & "</li>" & vbCrLf
    strHtml = strHtml & "</body>" & vbCrLf
    strHtml = strHtml & "</html>" & vbCrLf

    WebBrowser1.Document.body.innerHTML = strHtml
End Sub

Private Sub Form_Load()
 WebBrowser1.Navigate2 "about:blank"
End Sub
-----------------------------------------------------------------------



Function ReturnHTMLTable(tmpAdodc)
  Set rs = tmpAdodc.Recordset
  rs.MoveFirst
  response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>"
  response.Write "<tr>"
  For Each oField In rs.Fields
    response.Write "<th>" & oField.Name & "</th>"
  Next
  response.Write "</tr>"
  Do While Not rs.EOF
    response.Write "<tr>"
    For Each oField In rs.Fields
    response.Write "<td>"
    If IsNull(oField) Then
      response.Write " "
    Else
      response.Write oField.Value
    End If
    response.Write "</td>"
    Next
    rs.MoveNext
    response.Write "</tr>"
  Loop
  response.Write "</table>"
End Function
取消 提交回答
全部回答(1)
  • 小旋风柴进
    2019-07-17 19:02:20

    不要添加html,head,body这种标签试试,你是设置body容器

        ' strHtml = "<html>" & vbCrLf
       ' strHtml = strHtml & "<head>" & vbCrLf
        'strHtml = strHtml & "</head>" & vbCrLf
        strHtml = strHtml & "<h1 align='center'>报告单</h1>" & vbCrLf
        'strHtml = strHtml & "<body>" & vbCrLf
        strHtml = strHtml & ReturnHTMLTable(Adodc1)
         strHtml = strHtml & "<ul><li>" & vbCrLf
        strHtml = strHtml & "Hello" & vbCrLf
        strHtml = strHtml & "<input type='button' name='Submit22' value=' 打印此页 ' onClick='javascript:print();'>" & vbCrLf
        strHtml = strHtml & "</li></ul>" & vbCrLf
       ' strHtml = strHtml & "</body>" & vbCrLf
       ' strHtml = strHtml & "</html>" & vbCrLf
    
        WebBrowser1.Document.body.innerHTML = strHtml
    0 0
相关问答

1

回答

HTML 表格中,页眉的标签是什么?

2022-03-25 16:45:05 440浏览量 回答数 1

1

回答

HTML 表格中,页脚标签是什么?

2022-03-25 16:45:15 455浏览量 回答数 1

1

回答

在HTML中,表示页面背景的是<body bgcolor=>。这种说法对吗?

2021-11-22 23:12:17 387浏览量 回答数 1

1

回答

在HTML中,表示页面背景的是哪个呢?

2021-10-29 20:20:14 167浏览量 回答数 1

1

回答

HTML-更改\更新页面内容而无需刷新\重新加载页面?mysql

2020-05-17 11:39:30 302浏览量 回答数 1

2

回答

html 跳转页面 js代码怎么写

2018-05-10 19:59:58 1084浏览量 回答数 2

1

回答

HTML5 手机页面 输入表单被键盘遮挡住了

2016-06-07 09:35:21 2795浏览量 回答数 1

1

回答

问 如何在html页面动态生成图片然后分享至微博?

2016-05-30 13:21:07 2110浏览量 回答数 1

1

回答

html页面查询效率低下是什么原因?

2016-03-16 09:01:35 1652浏览量 回答数 1

1

回答

asp,net 如何读取html文件并显示在页面上?html文件地址是从数据库查询得到的?

2016-03-13 08:23:40 2676浏览量 回答数 1
2709
文章
6591
问答
问答排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载