当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 水晶报表4.6的使用示例

ASP.NET
ASP.NET 多附件上传实现代码
asp.net 类库中使用ConfigurationManager.ConnectionStrings
asp.net AjaxControlToolKit--TabContainer控件的介绍
ASP.NET环境下为网站增加IP过滤功能
asp.net访问Access数据库溢出错误
ASP.NET AJAX 4.0的模版编程(Template Programming)介绍
asp.net StringBuilder的用法 实例代码
asp.net Accee数据库连接不稳定解决方案
ASP.NET2.0 SQL Server数据库连接详解
asp.net Repeater之非常好的数据分页
C# 生转换网页为pdf
浅谈ASP.NET的Postback 实例代码
asp.net Ext grid 显示列表
通过ASP.net实现flash对数据库的访问
如何创建一个AJAXControlToolKit的扩展控件
asp.net 简单验证码验证实现代码
asp.net 在客户端显示服务器端任务处理进度条的探讨
Asp.net treeview实现无限级树实现代码
asp.net INI文件读写类
asp.net下检测SQL注入式攻击代码

ASP.NET 中的 水晶报表4.6的使用示例


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 251 ::
收藏到网摘: n/a


Private Sub Command1_Click(Index As Integer)
With cr1 'cr1为报表控件
.PrinterDriver = Printer.DeviceName
.DiscardSavedData = True
'-------------------------------------------------
'连接方式一
.Connect = "DSN = drugdb;UID =sa;PWD =;"
'连接方式二
.Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=evaluate;Data Source=SAMUNCLE"]
'连接方式三
Dim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=drugdb;Data Source=SAMUNCLE"
adocon.ConnectionTimeout = 120
adocon.Open
'-------------------------------------------------
.Destination = crptToWindow '预览
.ReportSource = crptReport
.WindowHeight = Screen.Height
.WindowWidth = Screen.Width
.ReportFileName = App.Path + "\crystaltest47.rpt"
.WindowTitle = "标题"

.WindowState = crptMaximized '窗口最大化
.WindowLeft = 0
.WindowTop = 0
.Formulas(0) = ""
.Formulas(1) = ""
.Formulas(0) = "这是第一个参数!"
.Formulas(1) = "这是第二个参数!" & Chr(13) & Chr(10) & "我回行了"
.FetchSelectionFormula
.Action = 1
End With