vb点虐 报表数据库 vbnet reportviewer

用vb点虐 怎样建立一个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做水晶报表?

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

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

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