请教!一个vb操作数据库的问题 有这样一个任务 在access数据库中存放着新闻的标题和内容 现在vb编一个程序 要求这个程序能够做到从数据库中读取新闻的标题和内容 并生成一个网页 然后将网页保存到数据库中 请各位赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //要求这个程序能够做到从数据库中读取新闻的标题和内容这个因该没有问题吧//并生成一个网页直接用写文件的方法Private Sub Command1_Click()Dim strsql As StringDim fs, fSet fs = CreateObject("scripting.filesystemobject")Set f = fs.CreateTextFile("c:\test.html", True)strsql = strsql & "<html>" & vbNewLinestrsql = strsql & "<body>" & vbNewLinestrsql = strsql & "<table>" & vbNewLinestrsql = strsql & "<tr>" & vbNewLine'下面这句可以换成记录集strsql = strsql & "<td> " & Text1.Text & " </td>" & vbNewLinestrsql = strsql & "</tr>" & vbNewLinestrsql = strsql & "</table>" & vbNewLinestrsql = strsql & "</body>" & vbNewLinestrsql = strsql & "</html>"f.write strsqlf.CloseEnd Sub//然后将网页保存到数据库中你可以把strsql保存,取出的时候生成或者生成网页后把路径存入数据库 conn.Execute "SELECT * INTO [HTML Export;DATABASE=C:\].[mz.HTM] FROM [mz]"或者这样 就是说标题和内容的位置和大小都是固定的生成html文件时用html中的标签控制,你可以先在dm中写好一个网页,然后把代码用vb写一下就可以了 關於VB寫EXCEL的問題 关于text里面的值改变的问题! 鼠标移动到窗体上时,窗体自动移开的代码哪里有下载 谁能给我些美化窗体得控件!(比如水晶菜单) 看看那错了这只是一个发邮件的程序 大师们:救救我!!! 为什么提示找不到DLL文件?! VB中可以用消息机制吗? 如何把WORD的输入模式改成“自由曲线”?! 急急急急急急急 vsprinter上面翻页按钮可以自定义吗? Microsoft JET Database Engine (0x80040E07) 关于MSFlexGrid控件、急啊 有没有人知道怎么实现菜单设计功能(不用vb的菜单编辑器)?
这个因该没有问题吧//并生成一个网页
直接用写文件的方法
Private Sub Command1_Click()
Dim strsql As String
Dim fs, f
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.CreateTextFile("c:\test.html", True)
strsql = strsql & "<html>" & vbNewLine
strsql = strsql & "<body>" & vbNewLine
strsql = strsql & "<table>" & vbNewLine
strsql = strsql & "<tr>" & vbNewLine
'下面这句可以换成记录集
strsql = strsql & "<td> " & Text1.Text & " </td>" & vbNewLine
strsql = strsql & "</tr>" & vbNewLine
strsql = strsql & "</table>" & vbNewLine
strsql = strsql & "</body>" & vbNewLine
strsql = strsql & "</html>"
f.write strsql
f.Close
End Sub//然后将网页保存到数据库中
你可以把strsql保存,取出的时候生成
或者生成网页后把路径存入数据库
或者这样