100分求!! 水晶报表怎样用代码来连接数据库.
谁有代码和方法!谢谢.. 问题点数：100、回复次数：4Top
1 楼joyozz（写代码离不开书）回复于 2004-05-03 16:11:53 得分 0
关注！ UP!Top
2 楼stpangpang（胖在一方）回复于 2004-05-03 16:35:09 得分 50
imports CrystalDecisions.Shared
dim myTableLogonInfos as new TableLogOnInfos()
dim myTableLogoninfo as new TableLogOnInfo()
dim connectionInfo as new ConnectionInfo()
with connectionInfo
.ServerName="服务器名字"
.DataBaseName="数据库名字"
.UserID="用户名"
.Password="密码"
end with
myTableLogonInfo.ConnectionInfo=connectionInfo
myTableLogonInfo.TableName="表的名字"
myTableLogonInfos.Add(myTableLogonInfo)
CrystalReportViewer1.LogonInfo=myTableLogonInfos
CrystalReportViewer1.Reportsource= myReport
没有vs的编辑器，估计可能有些不对，对照一下 看看
Top
3 楼lk_cool（Loken _ 超级无敌小地主）回复于 2004-05-03 17:00:59 得分 50
动态改变数据源的代码
Dim dsdataSet As New DataSet()
Dim oRpt As New rptClient() '已建立的报表rptClient
请读者自行填充数据集dsdataSet
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet.Tables(0))
' 将带有数据的报表对象绑定到 Windows 窗体查看器，rptVew（CrystalReportViewer控件）
rptVew.ReportSource = oRpt
注意 FillDataSet 方法可连接到指定的数据库，提取数据，然后断开数据库连接。如果您希望将数据库中的多个表添加到报表中，请使用 SQL JOIN 语句将这些表联接在一起；然后在 FillDataSet 方法中指定一个结果表
创建主从报表
在报表中，有许多报表是主从表结构，比如订单与订单商品明细，订单是一个表中的一条记录，而分录是另一个表中的多条记录，两个表通过一个字段关联起来，这种报表可利用其分组功能实现，
1. 新建一个工程
2. 往FORM1中添加一个CrystalReportViewer控件
3. 在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库
4. 添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。
5. 添加一个水晶报表，使用报表专家，在项目数据中选择“ADO.NET数据集”，插入表Orders和 Order Details，“链接”中是关联字段的链接，在“字段”中选择要显示的主表和明细表的字段，组中选择分组依据为Orders表OrdersID字段，总计，图表，选择（可进行筛选），样式（可设置报表标题），可自行设置。设置完后，点击完成。
6. 在报表设计器中调整需要显示的字段的位置、宽度等。
7. 在窗口中添加代码。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oRpt As New CrystalReport1()
Dim dsdataSet As New Dataset1()
Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")
CN.Open()
Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)
daOrders.Fill(dsdataSet, "orders")
Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)
daDetails.Fill(dsdataSet, "Order Details")
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet)
CrystalReportViewer1.ReportSource = oRpt
End Sub
运行程序
用程序改变报表中text的文本
代码如下：
Dim GetTextObject As TextObject
' 按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。
GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")
GetTextObject.Text = "XXXX系统"
Top
4 楼zjls（zjls）回复于 2004-05-03 17:21:48 得分 0
谢谢 ！Top
