重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你应该在调试的时候在你的把一条带入了参数值的insert语句弄来看看,就能很快看出问题在哪里。另外[date]字段(这个地方最好用个中括号扩起来,敏感字符串哟!
创新互联专业为企业提供光山网站建设、光山做网站、光山网站设计、光山网站制作等企业网站建设、网页设计与制作、光山企业网站模板建站服务,10多年光山做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
如果实在不好弄写各存储过程吧。在Acess里面写一个添加查询吧。用
一般情况下先用EXCEL做好一个样表文件,设定好打印区域和样式,需要填内容的时候,先程序复制一个样表文件,然后调用API打开表格填写内容并打印,如果想用API来实现调整模板和打印预览,可能比较困难,而且很抽象,个人觉得费时费力效果还不一定理想
‘首先,创建一个VB.NET项目,再点击菜单”项目“-”添加引用“,在”Com“-”类型库“里,选择Microsoft.Word 14.0 Object Library(对应Office版本为2010),将以下代码复制粘贴到Form1窗体替换原代码。
’PS:以下代码仅创建表格,将第行2至4列合并,添加1个文字,其他的你自己分析。
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word '引入Word
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象
DDoc = DWrd.Documents.Add '新增文档
Dim DTbl As Word.Table '定义表格对象
DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4) '新增表格
DTbl.Style = "网格型" '表格的样式
DTbl.Cell(1, 2).Select() '选择起始单元格为第1行/第2列
DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended) '向右扩展两个单元格(即选择第1行的第2至4列)
DWrd.Selection().Cells.Merge() '单元格合并
DTbl.Cell(1, 1).Range.Text = 1 '在第1个单元格填写文本
DWrd.Visible = True '显示Word
End Sub
End Class