vs2015vb.net水晶报表连接oracle入门示例

一、前言

水晶报表入门示例,万事开头难,入门之后再深入即可。

环境

vs2015

win10Oracle11g

二、新建Windows窗体应用程序

1.项目说明

新建项目,Form1添加Button组件,Form2中添加CrystalReportViewer组件,新建水晶报表。

Button1_Click事件打开Form2,Form2中Form2_Load方法加载水晶报表。

2.添加水晶报表

添加水晶报表到项目

设置数据库专家

配置Oracle服务器

拖动字段到水晶报表中

三、源码

Form1.vb

Imports System
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f2 As New Form2
        f2.Show()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Form2.vb

Imports System
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '方式1:使用项目中的报表
        Dim r As New CrystalReport1

        '方式2:使用项目外的报表
        'Dim r As New ReportDocument()
        'r.Load("D:\vb_demo\vs2015_demo\vs2015_demo\Resources\r.rpt")

        Dim c As New ConnectionInfo()
        c.ServerName = "orcl"
        c.UserID = "scott"
        c.Password = "root"
        Dim t As New TableLogOnInfo()
        t.ConnectionInfo = c

        For Each table As Table In r.Database.Tables
            table.ApplyLogOnInfo(t)
            'table.Location = CType("SCOTT.DEPT", String)
        Next

        r.SetDatabaseLogon("SCOTT", "root", "orlc", "", True)
        CrystalReportViewer1.ReportSource = r
        CrystalReportViewer1.Refresh()
        CrystalReportViewer1.Show()

    End Sub
End Class

四、测试

正常运行示例

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值