vb.net报表数据库 vbnet数据库编程

如何用VB.NET做水晶报表?

CrystalReportViewer

dataset 定义数据源

.rpt 文件描述具体报表样式

再加一个调用报表的FORM，就可以实现简单的报表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

相关问答

Q1: vb.net 水晶报表问题：水晶报表数据来源与数据库，怎样把数据库中同一个字段的各个小类按不同属性分为大类

Private Sub daywaterlevel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'创建一个内含连接信息的数据库链接对象

Dim myConnection As New SqlConnection

myConnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=cwfzx;server=yllsony;Connect Timeout=30 "

'定义一个报表对象

Dim myreportDoc As New ReportDocument

Dim myDBConncetionInfo As ConnectionInfo

Dim myTable As Table

'循环处理Tables集合中的每一个Table对象并设置登陆信息

For Each myTable In myReportDoc.Database.Tables

myDBConncetionInfo = myTable.LogOnInfo.ConnectionInfo()

With myDBConncetionInfo

.ServerName = "yllsony "

.databaseName = "cwfzx "

.UserId = "sa "

.Password = "636490 "

End With

Next

'定义一个sqldataAdapter类型的变量

Dim MyCommand As SqlDataAdapter

'创建数据集对象

Dim ds As DataSet = New dsDayWater

'创建一个SqlDataAdapter对象

MyCommand = New SqlDataAdapter( "select stcd,tm,z from tb_river_r ", myConnection)

'链接到数据库,提起数据,然后中断链接

MyCommand.Fill(ds, "tb_river_r ")

'载入报表

myReportDoc.Load(Application.StartupPath "\crdaywater.rpt ")

'将数据集ds传递给报表对象

myReportDoc.SetDataSource(ds)

'绑定报表查看器控件

CrtViewerWater.ReportSource = myReportDoc

End Sub

Q2: 用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '创建空的access数据库文件--数据库文件.mdb，密码为123

        Dim Mycat As Catalog = New Catalog()

        Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

        '以下代码创建一个名为“实验数据表”

        Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

        MyTable.Name = "实验数据表"    '表命名

        '给表“实验数据表” 创建一个字符串字段，字段名“姓名”

        MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

        '给表“实验数据表” 创建一个整数字段，字段名“学号”

        MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

        '给字段“学号”创建一个主键“PimaryKey_Field”        

        MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

        Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

        MyTable = Nothing

        Mycat = Nothing

    End Sub

End Class

vb.net报表数据库的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet数据库编程、vb.net报表数据库的信息别忘了在本站进行查找喔。