Prime Number between 1 to n | program code | simple prime number code

Prime Number series in vb.net with source code .
in this program i have shown how to write program for
prime number in vb.net using for loop and if .
it is very simple to find out single prime number  but when we comes across prime number
series then its challenge.
in this program i will tell you how to get prime number from 1 to 10 or 1 to n with comments.
just stick with this code later on i will show execution line by line by video

   Public Sub Primenumber()
        Response.Write("Prime number ")
        Dim takeval As Integer
        Dim flag As Integer
        flag = 0
        takeval = txtVal.Text
        Dim i As Integer
        Dim j As Integer
        For i = 2 To takeval

            For j = 2 To (i - 1)

                If i Mod j = 0 Then
                    flag = 0
                    Exit For

                Else

                    flag = 1
                    'Exit For
                End If
            Next j
            If flag = 1 The    
           Response.Write(i)
                Response.Write("</br>")
            End If
        Next i
    End Sub


3 5 7 'will show prime number  between 1 to 10.
you can call primenumber function on button click event also.

TRIGGER IN SQL SERVER 2005 FOR INSERT

ALTER trigger [dbo].[InsertIntoTable]
on [dbo].[stud]
AFTER  Insert
as

Declare @val NVARCHAR(10)
select @val=(select name from inserted)

if (select count(*) from stud where name=@val) > 1
BEGIN
Print 'Data Already Exist'
--ERROR ( 'Data already has enterd' )
ROLLBACK TRAN
END

CRYSTAL REPORT IN VB.NET WITH PARAMETER DATASET

Imports System.Data.SqlClient
Imports System.Data
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Enterprise
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Web
Imports CrystalDecisions.ReportSource

Partial Class _Default
    Inherits System.Web.UI.Page
    ' Dim ClientReport As New ClientReport()
    Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("client").ConnectionString)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub







    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

    
        Dim cmd As New SqlCommand("select_report", con)

        Dim code As String
        Dim dt As New DataTable

        code = txttakenumber.Text
        cmd.Parameters.AddWithValue("@hld_ac_code", code)
        dt = GetDataItem("select_report", CommandType.StoredProcedure, "select_report")
        Dim rpt As New ReportDocument
        rpt.Load("E:\Websites\parameter\ClientReport.rpt")
        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.RefreshReport()





      



    End Sub

    Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
        Dim ds As New DataSet
        Dim dt As New DataTable

        '  Dim code As String
        con.Open()
        Dim cmd As New SqlCommand("select_report ", con)
        cmd.CommandType = CommandType.StoredProcedure
        Dim i As String
        Dim dat As Integer
        dat = 20090711
        'code = txttakenumber.Text
        Dim da As New SqlDataAdapter(cmd)
        cmd.Parameters.AddWithValue("@hld_hold_date", dat)
        i = cmd.ExecuteNonQuery()
        da.Fill(dt)


        ds.Tables.Add(dt)
        CrystalReportViewer1.EnableDatabaseLogonPrompt = False
        Dim rpt As New ReportDocument
        rpt.Load("E:\Websites\parameter\ClientReport.rpt")
        rpt.SetDataSource(dt)
        CrystalReportViewer1.ReportSource = rpt
        Response.ClearContent()
        Response.ClearHeaders()
        con.Close()


    End Sub

    Protected Sub CrystalReportViewer1_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Unload
        CrystalReportViewer1.Dispose()
    End Sub
End Class

crystal report import

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Enterprise
Imports CrystalDecisions.Web
Imports CrystalDecisions.Shared
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub displayBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles displayBtn.Click
        Dim rpt As New ReportDocument

        rpt.Load("E:\Users\dev\Documents\Visual Studio 2008\WebSites\report\CrystalReport.rpt")
        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.RefreshReport()

    End Sub
End Class

crystal report designing using c#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using FinancialEntityLayer;
using FinancialBusinessLayer;
using Financial_Application.Utiltiy;
using System.Data.Common;
using System.Data;
using System.Drawing.Design;
using System.Drawing.Imaging;
using CrystalDecisions.CrystalReports;
using CrystalDecisions.Shared;
using CrystalDecisions.ReportSource;
using CrystalDecisions.Web;
using CrystalDecisions.CrystalReports.Engine;
using CrystalDecisions.Web.Design;
namespace Financial_Application.Reports
{
    public partial class Reports : System.Web.UI.Page
    {
        FinancialBusinessLayer.Report objBL = new FinancialBusinessLayer.Report();
       FinancialEntityLayer.Report objEL = new FinancialEntityLayer.Report();
        ///DataSet ds;
      ClientReport c = new ClientReport();

        protected void Page_Load(object sender, EventArgs e)
        {
        }
        protected void CrystalReportViewer1_Init(object sender, EventArgs e)
        {
            DataSet dsrpt = new DataSet();

            try
                {
                  
                DataTable dt;
                dt = objBL.GetEntity();
                dsrpt.Tables.Add(dt);
                DataTable dt1;
                FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Session["Assign"];
                dt1 = objBL.GetEntityClientInfo(objEL);
                dsrpt.Tables.Add(dt1);
              
             
                //DataTable dt2;
                //dt2 = objBL.GetEntityClientisin(objEL);
                //dsrpt.Tables.Add(dt2);

                CrystalReportViewer1.EnableDatabaseLogonPrompt = false;               
                c.SetDataSource(dsrpt);              
                CrystalReportViewer1.ReportSource = c;
                Response.Buffer = false;             
                Response.ClearContent();
                Response.ClearHeaders();

             
                if(dt.Rows.Count==0 || dt1.Rows.Count==0)
                {
                    lblError.Text = "Record Not Found";
                  
                }
                    else
                   {

                    Session["Ft"] = Session["Format"].ToString();
                    if (Session["Ft"] != null)
                    {
                        lblError.Text = Session["Ft"].ToString();
                        if (lblError.Text == "Pdf")
                        {
                            c.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, true, "Client Report");
                        }

                        if (lblError.Text == "Excel")
                        {
                            c.ExportToHttpResponse(ExportFormatType.Excel, Response, true, "Client Report");
                        }
                        if (lblError.Text == "Text-File")
                        {
                            c.ExportToHttpResponse(ExportFormatType.RichText, Response, true, "Client Report");
                        }
                        if (lblError.Text == "Browser")
                        {
                           // ClientReport cr = new ClientReport();
                            string contentType ="";
                            contentType = "text/html";
                           contentType = "true";
                            c.ExportToHttpResponse(ExportFormatType.HTML32, Response, true, "Client Report");
                           
                           

                        }
                     }   
                    else
                    {
                       c.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, true, "Client Report");
                    }
                }
                }
            catch (Exception ex)
            {
                Console.WriteLine(ex.Message);
            }                 
        }
        protected void CrystalReportViewer1_Unload(object sender, EventArgs e)
        {
            CrystalReportViewer1.Dispose();

        }
     

    }

}


using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using FinancialDatabaseLayer;
using FinancialEntityLayer;
using System.Configuration;
using System.Data;
using System.Data.Common;
using System.Data.SqlClient;


namespace FinancialBusinessLayer
{
    public class Report
    {

        public DataTable GetEntity()
        {
            DataTable dt;
            try
            {
                FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
                //FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
               // objDB.AddParameter("@cum_courrier_id", objEL.IntCourrier_id);
               // objDB.AddParameter("@Mode", objEL.StrMode);

                dt = objDB.getDataTable("usp_Client_Report", System.Data.CommandType.StoredProcedure,"Entity_master");
            }
            catch
            {
                dt = null;
            }
            return dt;
        }



        public DataTable GetEntityClientInfo(object Parameter)
        {
            DataTable dt = null;
            try
            {
                FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
                FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
                objDB.AddParameter("@client_id_from", objEL.ChrClFrom);
                objDB.AddParameter("@client_id_to", objEL.ChrClTo);
                objDB.AddParameter("@cm_groupcd", objEL.ChrGrp);
                objDB.AddParameter("@family", objEL.ChrFm);
                objDB.AddParameter("@branch", objEL.ChrBranch);
               objDB.AddParameter("@isin", objEL.ChrIsin);
                dt = objDB.getDataTable("usp_client_master_search_on_multiple_value", System.Data.CommandType.StoredProcedure, "Client_master");

            }
            catch
            {
                dt = null;
            }
            return dt;
        }




        public DataTable GetEntityClientisin(object Parameter)
        {
            DataTable dt = null;
            try
            {
                FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
                FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
              
                objDB.AddParameter("@isin", objEL.ChrIsin);
                dt = objDB.getDataTable("usp_single_clientSmart_binding", System.Data.CommandType.StoredProcedure, "Client_master");

            }
            catch
            {
                dt = null;
            }
            return dt;
        }
        //public DataSet GetEntityClientInfo(object Parameter)
        //{
        //    DataSet dt = null;
        //    try
        //    {
        //        FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
        //        FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
        //        objDB.AddParameter("@client_id_from", objEL.ChrClFrom);
        //        objDB.AddParameter("@client_id_to", objEL.ChrClTo);
        //        dt = objDB.ExecuteDataSet("usp_client_master_search_on_multiple_value", System.Data.CommandType.StoredProcedure);
        //    }
        //    catch
        //    {
        //        dt = null;
        //    }
        //    return dt;
        //}


        //public DataTable GetIsin(object Parameter)
        //{
        //    DataTable dt;
        //    try
        //    {
        //        FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
        //        FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
        //        objDB.AddParameter("@Isin",objEL.ChrIsin);
        //        // objDB.AddParameter("@Mode", objEL.StrMode);

        //        dt = objDB.getDataTable("usp_Report_Isin", System.Data.CommandType.StoredProcedure, "Entity_master");
        //    }
        //    catch
        //    {
        //        dt = null;
        //    }
        //    return dt;
        //}

        public DataSet binddlScheme(object Parameter)
        {
            DataSet ds;
          
                FinancialDatabaseLayer.DataBase objDB = new DataBase(ConfigurationManager.ConnectionStrings["FinancialConnectionString"].ConnectionString);
                FinancialEntityLayer.Report objEL = (FinancialEntityLayer.Report)Parameter;
                objDB.AddParameter("@Mode",objEL.StrMode);
                ds = objDB.ExecuteDataSet("usp_Single_EntityReportBinding", System.Data.CommandType.StoredProcedure);
         
            return ds;
        }
    }
}


using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace FinancialEntityLayer
{
    public class Report
    {
        public string StrMode
        { get; set; }
        public char[] ChrClFrom
        { get; set; }
        public char[] ChrClTo
        { get; set; }
        public char[] ChrGrp
        { get; set; }
        public char[] ChrSb
        { get; set; }
        public char[] ChrFm
        { get; set; }
        public char[] ChrIsin
        { get; set; }
        public char[] ChrSet
        { get; set; }
        public char[] ChrBranch
        { get; set; }
    }
}

TAKE clientreport.rpt and drag n drop fields