Protected Sub Page_Load(sender As Object, e As EventArgs) Dim aConnection As New OleDbConnection( "Provider=.4.0 Data Source=C:/KACrystalData.mdb") aConnection.Open() Dim dataAdapter As New OleDbDataAdapter( "select * from Product", aConnection) Dim ds As New DataSet() dataAdapter.Fill(ds) 'Add the Barcode column to the DataSet ds.Tables(0).Columns.Add( New DataColumn( "Barcode", GetType( Byte()))) Dim qrcode As New BarCode() 'Barcode settings qrcode.Symbology = qrcode.X = 6 qrcode.Y = 6 qrcode.LeftMargin = 24 qrcode.RightMargin = 24 qrcode.TopMargin = 24 qrcode.BottomMargin = 24 qrcode.ImageFormat = .Png For Each dr As DataRow In ds.Tables(0).Rows qrcode.CodeToEncode = CInt(dr( "ProductId")) & "" Dim imageData As Byte() = qrcode.generateBarcodeToByteArray() dr( "Barcode") = imageData Next (Server.MapPath( "CrystalReport1.rpt")) (ds.Tables(0)) CrystalReportSource1. wincc report designer example, using visual basic script in wincc software. I'm using crystal reports 9 for address labels with VB6 / access The problem is I have 4 address fields and a postcode. Protected void Page_Load( object sender, EventArgs e) I am using the below mentioned command for report in pdf generation. I need to know how can I add my report created in crystal report 9 from my visual basic (v 6).
0 Comments
Leave a Reply. |