ActiveReports 能给我帮助吗? 我听说ActiveRports这个报表很好用,我于是下了2.0,结果,我连绑定数据员都不知道,拖上一个TEXTBOX居然不能用,我郁闷~有没有关于这个报表的中文帮助?或者,告诉我一点简单连接数据库的方法,我看到里面有个ADO,我连了,但是还是没有效果~~~~~~求各位大虾~~给与指导~~~~!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以看一下带的示例 程序!1、添加一个dao2、设置数据库名称及表名称3、在细节中加一个field,在field中指定数据字段4、运行程序 ADO:先设置数据源Connect String再在Text中写入select * from 表名 where 后面条件自己加,就可以了。这时就可以加入其他控件了,设置它们的DateField属性就可以了。 在detail中添加一个dao控件,选中单击右键选择“properties”在第一栏中输入要连接的数据库类型,然后指定表或数据库,然后在的detail中添加TEXTBOX在field中指定数据字段!示例如下:Private Sub ActiveReport_ReportStart() Me.Toolbar.Tools.Item(4).Visible = False Me.Toolbar.Tools.Add "退出(&E)" Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999 '宽行纸 h=280(279.4)mm*56.7 w=378(377.8)mm*56.7 '窄行纸 h=279(280)mm w=241mm 'A4纸 h=297(296.9)mm w=210mm Printer.PaperSize = 39 'Me.Printer.PaperHeight = 23814 'Me.Printer.PaperWidth = 16840 'ddOLandscape 纵向进纸 'ddOPortrait 横向近纸 iOrientationSav = Printer.Orientation Printer.Orientation = ddOPortrait DAODataControl1.DatabaseName = App.Path & "\Data\Feedb.Mdb" DAODataControl1.RecordSource = "SELECT * FROM TQYB" & Right(pMndDatePath, 4) & " WHERE ZCDM='" & Left(FrmMain.List1, 4) & "'"End Sub 金额栏在VB中用什么做最好 局域网传输变成互联网传输怎么变? vb6简单问题,求解求解,送分送分 29号计算机水平考试结束,怎么没有人来呀。 急救啊~~ sql 备份问题 如何改变grid 和 combobox 中滚动条的颜色,我用了NewWindowProc和SetWindowLong但捕捉不到滚动条绘制的消息 Spread控件问题 怎么样来改文件名?? 关于ado调用SQL存储过程怎样判断是否调用成功?? 谁能帮我把“自动上网的机器人”的第二部分调试通过? 散分,我的网站,欢迎大家访问。
1、添加一个dao
2、设置数据库名称及表名称
3、在细节中加一个field,在field中指定数据字段
4、运行程序
where 后面条件自己加,就可以了。这时就可以加入其他控件了,
设置它们的DateField属性就可以了。
示例如下:
Private Sub ActiveReport_ReportStart()
Me.Toolbar.Tools.Item(4).Visible = False
Me.Toolbar.Tools.Add "退出(&E)"
Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
'宽行纸 h=280(279.4)mm*56.7 w=378(377.8)mm*56.7
'窄行纸 h=279(280)mm w=241mm
'A4纸 h=297(296.9)mm w=210mm
Printer.PaperSize = 39
'Me.Printer.PaperHeight = 23814
'Me.Printer.PaperWidth = 16840
'ddOLandscape 纵向进纸
'ddOPortrait 横向近纸
iOrientationSav = Printer.Orientation
Printer.Orientation = ddOPortrait
DAODataControl1.DatabaseName = App.Path & "\Data\Feedb.Mdb"
DAODataControl1.RecordSource = "SELECT * FROM TQYB" & Right(pMndDatePath, 4) & " WHERE ZCDM='" & Left(FrmMain.List1, 4) & "'"
End Sub