Show Crystal Report Using VB 6.0 and Access Database

 

Write this code in VB6.0

Private Sub Command1_Click()

CrystalReport1.WindowState = crptMaximized
CrystalReport1.DiscardSavedData = True
CrystalReport1.ReportFileName = “DatabasePath”
CrystalReport1.DataFiles(0) = “ReportPath”

If you want to pass value from vb6.0 to Crystal Report

‘CrystalReport1.Formulas(0) = “FDate='” & fromDate & “‘”

Optional If you use password protected database
‘CrystalReport1.Password = Chr$(10) & “sanjoy-pakiza”

Optional If you use Selection Formula
‘CrystalReport1.SelectionFormula = “{tblEmployeePersonalInfo.EID}=” &  1
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.Action = 1

End Sub

Advertisements

Access Database Connecion and Add Edit Delete Using Vb6.0

‘First Create A Database Connection, Use A Module For DBConnection

Public db As ADODB.Connection

Public Sub DBConnection()

Set db = New ADODB.Connection

db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Persist Security Info=False”

‘    db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Jet OLEDB:Database Password=yourPassword;”

End Sub

‘ Code Developed By :

‘ Sanjoy Debnath. mail:s4sanjoy@gmail.com

‘——————————————————————-

‘ Instraction For Safe Project Load

‘ Add Microsoft ADO Data Control 6.0 (OLEDB) Components Your Project

‘——————————————————————-

Dim rst As ADODB.Recordset

Private Sub Form_Load()

‘Open Database Connection

Call DBConnection

End Sub

Private Sub cmdAdd_Click()

Set rst = New ADODB.Recordset

rst.Open “select * from tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

rst.AddNew

rst(“SerialNo”) = 1

rst(“Date”) = #6/25/2010#

rst(“Name”) = “Mr.ABC”

rst.Update

rst.Close

MsgBox “One Row Added”

End Sub

Private Sub cmdUpdate_Click()

Set rst = New ADODB.Recordset

rst.Open “UPDATE tblSample SET tblSample.SerialNo = 2, tblSample.[Date] = #6/28/2010#, tblSample.Name = ‘Mr. XYZ’ WHERE tblSample.SerialNo=” & 1, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “One Row Updated”

End Sub

Private Sub cmdDelete_Click()

‘Using Delete Condition

‘This Line Delete Selected Row

Set rst = New ADODB.Recordset

rst.Open “Delete * From tblSample Where SerialNo=” & 2, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “Delete Successfull”

‘This Line Delete All RecordFrom tblSample

‘rst.Open “Delete * From tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

End Sub

Download Sample Code