Find Duplicate Value in Array C# Asp.net

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

public partial class Default2 : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        int[] test = { 3, 6, 8, 10, 2, 3 ,6 };
        int count = 0;
       // Random ranDuplicateChange;
        for (int i = 0; i < test.Length; i++)
        {
            count = 0;
         //   Console.WriteLine(" {0} :: The current number is: {1} ", i, test[i]);
            for (int j = 0; j < test.Length; j++)
            {
                if (test[i] == test[j])
                {
                    count++;
                    if (count >= 2)
                    {
                        Response.Write ("Duplicate found: {0}"+ test[j] +"<BR>");
                       
                    }
                }
            }
        }

    }



}

Sample Select Web page c# gridview

Sample Select Web page c# gridview

Default.aspx:

asp:GridView ID="GridView1" runat="server" CellPadding="4" ForeColor="#333333"   DataKeyNames="BusinessEntityID"
        GridLines="None" AutoGenerateColumns="False"  AutoGenerateEditButton="True" AutoGenerateDeleteButton="True" DataSourceID="SqlDataSource1">
        



connection string

            ConnectionString="<%$ ConnectionStrings:AdventureWorks2008R2ConnectionString %>"
            UpdateCommand= "update Person_test set BusinessEntityID=@BusinessEntityID,FirstName=@FirstName,MiddleName=@MiddleName,LastName=@LastName WHERE BusinessEntityID=@BusinessEntityID"
            DeleteCommand="Delete from Person_test where BusinessEntityID=@BusinessEntityID"

            >


Default.aspx.cs


using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        SqlDataSource1.SelectCommand = "SELECT * FROM [Person_test]";
    }
    protected void Button1_Click(object sender, EventArgs e)
    {
     //  SqlDataSource1.SelectCommand = "select * from Person_test where BusinessEntityID ='" + TextBox1.Text + "' or FirstName= '" + TextBox2.Text + "' or MiddleName= '" + TextBox3.Text + "' or LastName='" + TextBox4.Text + "'";
       SqlDataSource1.SelectCommand = "Select * from Person_test where BusinessEntityID like '%" + TextBox1.Text + "%'or FirstName like '%" + TextBox2.Text + "%'or MiddleName like '%" + TextBox3.Text + "%'or LastName like '%" + TextBox4.Text + "%'";
    }
    protected void Button2_Click(object sender, EventArgs e)
    {
        SqlDataSource1.SelectCommand= "Insert into person_testshweta([BusinessEntityID],[FirstName],[MiddleName],[LastName]) select '"+TextBox1.Text+"','"+TextBox2.Text+"','"+TextBox3.Text+"','"+TextBox4.Text+"'";
    }
}


Webconfig.aspx







    
                    providerName="System.Data.SqlClient" />
   

    
        
        
        
    




Sql command to create table


select BusinessEntityID,FirstName,LastName into Person_test  from   Person.Person

Excel data load in SQL Server table using OLEDB ,VBA

Sub test()

Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & Application.ActiveWorkbook.FullName & ";" & _
        "Extended Properties=Excel 8.0"
 
    'Import by using Jet Provider.
           
    strSQL = "" & _
    "" & _
    " Insert into [odbc;Driver={SQL Server};" & _
             "Server=SEVERSQL1;Database=Mydb;" & _
             "UID=budget;PWD=Password].[ForecastUpdate1111] " & _
             "SELECT * FROM [UpdateData$]"
           
           
'    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    'debug.print "Records affected: " & lngRecsAff
     
    cn.Close
    Set cn = Nothing


End Sub

Constructors in VB.NET

A constructor in VB.NET is defined as a procedure that has the name New (rather than Initialize as in VB 6.0) and can accept arguments to allow clients to pass data into the instance to assist with initialization. Constructors do not return values and therefore are always declared as a Sub.Mar 1, 2002

Divide by Sum SQL Server same table join

Divide by Sum SQL Server same table join

select a.objsub,a.bu, a.period_01a, a.period_01a/sum(b.period_01a),sum(b.period_01a)FROM FORECAST_DATA a
left outer join FORECAST_DATA b on a.bu=b.bu  and  b.objsub like '9991%'
where left(a.objsub,2) in ('41','53','54','55','56')
--and a.bu='021000'
group by a.objsub, a.period_01a,a.bu

having sum(b.period_01a)<>0

Parameter by Value and reference

https://www.dotnetperls.com/parameter

C# program that demonstrates parameter passing

using System;

class Program

{

    static void Main()

    {

        int val = 0;

        Example1(val);

        Console.WriteLine(val); // Still 0.

        Example2(ref val);

        Console.WriteLine(val); // Now 2.

        Example3(out val);

        Console.WriteLine(val); // Now 3.

    }

    static void Example1(int value)

    {

        value = 1;

    }

    static void Example2(ref int value)

    {

        value = 2;

    }

    static void Example3(out int value)

    {

        value = 3;

    }

}

Output

0

2

3

 

Notes, Example 1. Example1 uses value-passing semantics for its declaration. Therefore, when it changes the value of its parameter int, that only affects the local state of the method.

Notes, Example 2. Example2 uses the ref modifier for its int parameter. This informs the compiler that a reference to the actual variable (int val) is to be passed to Example2.

Note:

The ref keyword is used in the calling syntax in Main. When Example2 sets its parameter to 2, this is reflected in the Main method.

Notes, Example 3. Example3 uses out on its parameter. This has compile-time checking features. These involve definite assignment rules.

Finally:

Example3 sets its parameter to 3—this is reflected in the calling location.

Ref, out. What is the difference between ref and out? The difference is in the compiler's application of the definite assignment analysis step.

Important:

The compiler demands that an out parameter be "definitely assigned" before any exit. There is no such restriction with the ref.

Windows Port

https://msdn.microsoft.com/en-us/library/cc875824.aspx

Temporary table in PL/SQL, kind of Select into

 create global temporary table temp_raj 
 on commit preserve rows 
 as 
 select * from raj.sal where 1=0 

 insert into temp_raj select * from raj.sal; 

Insert C# SQL/Connection String

string strSQL1;

            strSQL1 = "   insert into [tblcontrol_Comt] ( [SLNO],[Status],[Reason]) select " + t1 + ",'" + DropDownList4.SelectedItem + "','" + TB_Comment.Text + "'";

            strSQL = strSQL + strSQL1;

            //Response.Write(strSQL);

            //Response.End();

            SqlCommand cmd = new SqlCommand(strSQL, myConnection);

            cmd.CommandTimeout = 30000;

            cmd.CommandType = CommandType.Text;

            myConnection.Open();

            cmd.ExecuteNonQuery();

            myConnection.Close();

 private string ConnectionString

    {

        get

        {

            string connectionString = ConfigurationManager.ConnectionStrings["ConnectionString1"].ConnectionString;

            return connectionString;

        }

    }

On Sat, Mar 10, 2018 at 10:42 PM, Rajeev Kumar <rajeevkum@gmail.com> wrote:

 string strSQL1;

            strSQL1 = "   insert into [tblcontrol_Comt] ( [SLNO],[Status],[Reason]) select " + t1 + ",'" + DropDownList4.SelectedItem + "','" + TB_Comment.Text + "'";

            strSQL = strSQL + strSQL1;

            //Response.Write(strSQL);

            //Response.End();

            SqlCommand cmd = new SqlCommand(strSQL, myConnection);

            cmd.CommandTimeout = 30000;

            cmd.CommandType = CommandType.Text;

            myConnection.Open();

            cmd.ExecuteNonQuery();

            myConnection.Close();

--

Rajeev Kumar
949-378-6094

insert C# SQL

 string strSQL1;

            strSQL1 = "   insert into [tblcontrol_Comt] ( [SLNO],[Status],[Reason]) select " + t1 + ",'" + DropDownList4.SelectedItem + "','" + TB_Comment.Text + "'";

            strSQL = strSQL + strSQL1;

            //Response.Write(strSQL);

            //Response.End();

            SqlCommand cmd = new SqlCommand(strSQL, myConnection);

            cmd.CommandTimeout = 30000;

            cmd.CommandType = CommandType.Text;

            myConnection.Open();

            cmd.ExecuteNonQuery();

            myConnection.Close();

JD Edwards Excel Integration - JE

Load Excel Name Range Data to SQL Server table, VBA

Sub ShowRecordCount()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\temp\JW_E&PM_041.xlsx;" & _
"Extended Properties=Excel 12.0;"
    .Open
End With

sSQL = "SELECT * FROM rngloaddata"

Set oRs = New ADODB.Recordset
oRs.Open sSQL, cn, adOpenStatic, adLockBatchOptimistic, adCmdText

Set cn2 = CreateObject("ADODB.Connection")
    With cn2
        .CursorLocation = adUseClient
        .Open "Driver={SQL Server};Server=Server01; Database=budget; UID=DB; PWD=xxxxxx"
        .CommandTimeout = 0
        oRs.MoveFirst
       
   
   
    For i = 0 To Range("rngloaddata").Columns.Count - 1
        strcolnmName = strcolnmName & ", CAST('' AS VARCHAR(255))" & oRs.Fields(i).Name
       
    Next
   
    tablstr = "IF OBJECT_ID('tempdb..##temp1345') IS NOT NULL  drop table ##temp1345     select  " & Right(strcolnmName, Len(strcolnmName) - 1) & " into ##temp1345"
    Debug.Print tablstr
    .Execute tablstr
    Debug.Print tablstr
   
    Do While Not oRs.EOF
    strcolnmValue = ""
            For i = 0 To Range("rngloaddata").Columns.Count - 1
                strcolnmValue = strcolnmValue & ",'" & oRs.Fields(i) & "'"
            Next
       
        .Execute "INSERT INTO ##temp1345 select " & Right(strcolnmValue, Len(strcolnmValue) - 1)
           
            oRs.MoveNext
            Loop
    End With

cn.Close
End Sub

Insert Data Using Named range in SQL server table Excel VBA

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\temp\JW_E&PM_041.xlsx;" & _
"Extended Properties=Excel 12.0;"
    .Open
End With

sSQL = "SELECT * FROM testrangdata"
'sSQL = "SELECT * FROM [Sheet1$A1:E46]"
Set oRs = New ADODB.Recordset
oRs.Open sSQL, cn, adOpenStatic, adLockBatchOptimistic, adCmdText

Set cn2 = CreateObject("ADODB.Connection")
    With cn2
        .CursorLocation = adUseClient
        .Open "Driver={SQL Server};Server=Server1\SQL1; Database=mydb; UID=bbbbb; PWD=MMMMM"
        .CommandTimeout = 0
        oRs.MoveFirst
        Do While Not oRs.EOF
        Debug.Print oRs.Fields(1)
     
            .Execute "INSERT INTO budget.dbo.delthisTEMP_TABLE ( [BU] ) VALUES ('" & oRs.Fields(1) & "')"
            oRs.MoveNext
            Loop
    End With

cn.Close

XLSX excel vba connectionstring

Sub test()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\temp\JW_E&PM_04.xlsx;" & _
"Extended Properties=Excel 8.0;"
.Open
End With
End Sub


Sub ShowRecordCount()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\temp\JW_E&PM_04.xlsx;" & _
"Extended Properties=Excel 12.0;"
    .Open
End With

sSQL = "SELECT * FROM [sheet1$]"
Set oRs = New ADODB.Recordset
oRs.Open sSQL, cn, adOpenStatic, _
               adLockBatchOptimistic, adCmdText
MsgBox oRs.RecordCount
cn.Close
End Sub


read named range in VBA


Sub ShowRecordCount()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\temp\JW_E&PM_04.xlsx;" & _
"Extended Properties=Excel 12.0;"
    .Open
End With

sSQL = "SELECT * FROM testrange"
'sSQL = "SELECT * FROM [Sheet1$A1:E46]"
Set oRs = New ADODB.Recordset
oRs.Open sSQL, cn, adOpenStatic, _
               adLockBatchOptimistic, adCmdText
MsgBox oRs.RecordCount
cn.Close
End Sub

Convert Amount into currency with $ sign and commas using jquery/javascript

currentamount.toString().replace(/(\d)(?=(\d\d\d)+(?!\d))/g, "$1,")