can we use Aceess Report in VB6 Application if yes then How
Printable View
can we use Aceess Report in VB6 Application if yes then How
VB Code:
Option Explicit 'ADD REFERENCE TO MS ACCESS XX.X OBJECT LIBRARY 'ADD ONE (1) COMMAND BUTTON (Command1) 'EXAMPLE WILL CREATE A NEW DATABASE AND A NEW REPORT WITH ONE TEXTBOX AND A LINKED LABEL Private Sub Command1_Click() Dim oApp As Access.Application Dim oReport As Access.Report Dim oLabel As Object Dim oTextBox As Object If Dir("D:\RobDog888.mdb", vbArchive Or vbNormal Or vbHidden Or vbReadOnly) <> "" Then Kill "D:\RobDog888.mdb" End If Set oApp = New Access.Application oApp.NewCurrentDatabase "D:\RobDog888.mdb" oApp.Visible = True Set oReport = oApp.CreateReport ' oReport.RecordSource = "qrySomeQuery" oReport.LayoutForPrint = True oReport.Caption = "MyReport" Set oTextBox = oApp.CreateReportControl(oReport.Name, acTextBox, acDetail, "", "", 1560, 1500, 1000, 250) Set oLabel = oApp.CreateReportControl(oReport.Name, acLabel, acDetail, oTextBox.Name, , 500, 1500, 1000, 250) oTextBox.Properties(1).Value = "txtTextBox" oTextBox.Properties(3).Value = "My Text" oLabel.Name = "lblLabel" oLabel.Caption = "My Label" DoCmd.Maximize oApp.RunCommand acCmdPrintPreview 'oReport.Print End Sub
Is there any code that will do the same in VB.NET. also the statement
Dim oApp As Access.Application gives me an error stating that it is not defined and i have not idea whats wrong
Thank you