barcode_type_page
QR Code
Crystal
.NET
Florence, Italy]]>
QR Code, abbreviated from Quick Response Code, is the most popular 2D barcode symbology around the world. Its large data capacity and high-speed reading have made it commonly used in advertising and marketing applications.]]>
QR Code Crystal Report Generator is developed for Crystal Report to generate QR Code barcodes. With integrated QR Code Crystal Report Generator, high quality QR Code barcode could be generated without using font. This page demonstrates how to insert QR Code barcodes in Crystal Reports.]]>
- Numeric data (digits 0 - 9)
- Alphanumeric data (digits 0 - 9; upper case letters A -Z; nine other characters: space, $ % * + - . / : )
- Byte data (default: ISO/IEC 8859-1)
- Kanji characters]]>
- Windows Vista
- Windows XP]]>
- C#, VB.NET, Managed C++, Borland Delphi for .NET
- Microsoft Visual Studio 2005/2008/2010]]>
BizCode Generator for Crystal Report and unzip;]]>
barcode_type_page
QR Code
Crystal
.NET
protected void Page_Load(object sender, EventArgs e)
{
OleDbConnection aConnection = new OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Demo/BarcodeDemoData.
mdb");
aConnection.Open();
OleDbDataAdapter dataAdapter = new OleDbDataAdapter
("select * from Customer", aConnection);
DataSet ds = new DataSet();
dataAdapter.Fill(ds);
//add a new column named "Barcode" to the DataSet, the new column data
type is byte[]
ds.Tables[0].Columns.Add(new DataColumn("Barcode", typeof(byte[])));
WebQRCode barcode = new WebQRCode ();
foreach (DataRow dr in ds.Tables[0].Rows)
{
barcode.Data = (int)dr["CustomerId"] + "";
byte[] imageData = barcode.drawBarcodeAsBytes();
dr["Barcode"] = imageData;
}
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"));
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables[0]);
CrystalReportSource1.DataBind();
aConnection.Close();
}]]>
Protected Sub CrystalReportViewer1_Init(ByVal sender As Object,
ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
Dim aConnection As New OleDbConnection
("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:/Demo/BarcodeDemoData.mdb")
aConnection.Open()
Dim dataAdapter As New OleDbDataAdapter("select * from Customer",
aConnection)
Dim ds As New DataSet()
dataAdapter.Fill(ds)
'add a new column named "Barcode" to the DataSet, the new column
data type is byte[]
ds.Tables(0).Columns.Add(New DataColumn("Barcode", GetType(Byte())))
Dim barcode As New WebQRCode ()
For Each dr As DataRow In ds.Tables(0).Rows
barcode.Data = CInt(dr("CustomerId")) & ""
Dim imageData As Byte() = barcode.drawBarcodeAsBytes()
dr("Barcode") = imageData
Next
CrystalReportSource1.ReportDocument.Load(Server.MapPath
("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables(0))
CrystalReportSource1.DataBind()
aConnection.Close()
End Sub]]>