Visual Basic

<br />
 Private Sub print_me()<br />
        Try<br />
            Dim sql As String = ""<br />
            Me.cnn.Open()<br />
           sql = "select a.srno,a.amount,c.name,b.h_name from satrans as a inner join hor as b on a.h_id=b.h_id  inner join party as c on a.party_id=c.party_id where a.match_id = 1"<br />
<br />
            ad = New SqlDataAdapter(sql, cnn)<br />
            ad.SelectCommand.CommandType = CommandType.Text<br />
            Me.ds = New DataSet<br />
            ad.Fill(ds)<br />
            Me.cnn.Close()<br />
<br />
            Dim rd, new_rd As New          CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
            rd.Load(Application.StartupPath + "\CrystalReport1.rpt")<br />
<br />
           new_rd = Me.reconnectreport(rd)<br />
            rd.SetDataSource(Me.ds)<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.ToString, "Crystal", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
            Me.cnn.Close()<br />
        End Try<br />
    End Sub<br />
<br />
<br />
 Private Function reconnectreport(ByVal report As CrystalDecisions.CrystalReports.Engine.ReportDocument) As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
<br />
        Dim rpt As New CrystalReport1          '### The error occured here<br />
        rpt = reconnectreport(rpt)<br />
<br />
        Dim connection As CrystalDecisions.Shared.IConnectionInfo<br />
        Dim oldServerName As String = report.DataSourceConnections(0).ServerName<br />
        Dim newServerName As String = "SYSTEM2"<br />
        Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName<br />
        Dim newDatabaseName As String = "xcpa"<br />
        Dim userID As String = "sa"<br />
        Dim password As String = ""<br />
        report = report<br />
        ' Change the server name and database in main reports<br />
        For Each connection In report.DataSourceConnections<br />
            If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
            And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                ' SetConnection can also be used to set new logon and new database table<br />
                report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                newServerName, newDatabaseName, userID, password)<br />
            End If<br />
        Next<br />
        ' Change the server name and database in subreports<br />
        Dim subreport As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
        For Each subreport In report.Subreports<br />
            For Each connection In subreport.DataSourceConnections<br />
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
                And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                    ' SetConnection can also be used to set new logon and new database table<br />
                    subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                    newServerName, newDatabaseName, userID, password)<br />
                End If<br />
            Next<br />
        Next<br />
        Return report<br />
    End Function <br />

sitt wrote:

I need to generate barcode label by myself but I can't find any resource about barcode format and generating

sitt wrote:

First of all I'm newly in microsoft technologies and I never learn for the barcode technology before

Vikram A Punathambekar wrote:

A Linked list, by its very nature, is dynamic; you can't use a stack for it.