Imports System.Data.OleDb Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Form1 Inherits System.Windows.Forms.Form
Dim newCmd As OleDbCommand Dim conn As OleDbConnection Dim da As New OleDbDataAdapter Dim ds As New DataSet2 Dim cr As New CrystalReport1 conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=stdb.mdb;Persist Security Info=False") newCmd = conn.CreateCommand() newCmd.Connection = conn newCmd.CommandText = "select Challan_No, Date, Name from stdb where Challan_No = '" & TextBox1.Text & "'" da = New OleDbDataAdapter(newCmd) da.Fill(ds, "stdb") cr = New CrystalReport1() cr.SetDataSource(ds) CrystalReportViewer1.ReportSource = cr conn.Close() newCmd.Cancel() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)