Question

vb.net 水晶报表 动态连接SQL server 100分

如何使用一个报表根据用户的需要打印数据库中的想要打印表？
最好给点代码啊 数据库是SQL SERVER 2000 环境是.net

Answer 1

在VB.NET中，使用Crystal Report制作报表，可以动态指定数据源。用前台的变量（用户选择性数据）通过字符串操作转化为动态数据源范围，这是一个比较成熟的根据用户需求打印数据的方法。你可以通过DataSet的方式来访问后台数据库，这样您需要手动编码来提取数据，填充DataSet，并传递到报表文件中。在这里，您可以动态指定报表数据源了。
简单的说：
Private Sub BindReport()
Dim myConnection As New SqlClient.SqlConnection()
myConnection.ConnectionString = "Server=主机名或者是你的ip地址（本机127.0.0.1）;database=数据库名;uid=用户;pwd=密码"
Dim myCommand As New SqlClient.SqlCommand()
myCommand.Connection = myConnection’定义连接
myCommand.CommandText = "Select * from....." '这里的sql语句就看你的需要来构造了。
myCommand.CommandType = CommandType.Text
Dim myDA As New SqlClient.SqlDataAdapter()
myDA.SelectCommand = myCommand
Dim myDS As New Dataset1()
myDA.Fill(myDS, "Stores")
Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = oRpt
End Sub

应该看懂了吧？

Answer 2

我有代码。但是不是一两句可以说得清楚的。

主要代码是这样的。

Dt = db.RunSQL("Select * From PzMessage")
Ds.Tables("PzMessage").Merge(Dt)
Ds.Tables("Pz6zCredenceTally").Merge(PrintDt)
Me.水晶报表.SetDataSource(Ds)
CrystalReportViewer1.ReportSource = Me.水晶报表

在水晶报表显示窗体中，将查询出来的表内容，增加到水晶报表中的表中。然后开始显示。