SEARCH ALL TABLES IN SQL PROCEDURE

CREATE PROC SearchAllTables
(
@SearchStr nvarchar(100)
)
AS
BEGIN

CREATE TABLE #Results (ColumnName nvarchar(370), ColumnValue nvarchar(3630))

SET NOCOUNT ON

DECLARE @TableName nvarchar(256), @ColumnName nvarchar(128), @SearchStr2 nvarchar(110)
SET  @TableName = ''
SET @SearchStr2 = QUOTENAME('%' + @SearchStr + '%','''')

WHILE @TableName IS NOT NULL

BEGIN
    SET @ColumnName = ''
    SET @TableName = 
    (
        SELECT MIN(QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME))
        FROM     INFORMATION_SCHEMA.TABLES
        WHERE         TABLE_TYPE = 'BASE TABLE'
            AND    QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME) > @TableName
            AND    OBJECTPROPERTY(
                    OBJECT_ID(
                        QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME)
                         ), 'IsMSShipped'
                           ) = 0
    )

    WHILE (@TableName IS NOT NULL) AND (@ColumnName IS NOT NULL)

    BEGIN
        SET @ColumnName =
        (
            SELECT MIN(QUOTENAME(COLUMN_NAME))
            FROM     INFORMATION_SCHEMA.COLUMNS
            WHERE         TABLE_SCHEMA    = PARSENAME(@TableName, 2)
                AND    TABLE_NAME    = PARSENAME(@TableName, 1)
                AND    DATA_TYPE IN ('char', 'varchar', 'nchar', 'nvarchar', 'int', 'decimal')
                AND    QUOTENAME(COLUMN_NAME) > @ColumnName
        )

        IF @ColumnName IS NOT NULL

        BEGIN
            INSERT INTO #Results
            EXEC
            (
                'SELECT ''' + @TableName + '.' + @ColumnName + ''', LEFT(' + @ColumnName + ', 3630) 
                FROM ' + @TableName + 'WITH (NOLOCK) ' +
                ' WHERE ' + @ColumnName + ' LIKE ' + @SearchStr2
            )
        END
    END    
END

SELECT ColumnName, ColumnValue FROM #Results

END

BLINKING TEXT COLOR CHANGE

Dim i As Integer = 0

Dim j As Integer

// on form load timer1.start() or timer1.enable=true

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim str As String = "2017-01-01"
        Dim c(str.Length) As Char
        c = str.ToCharArray
        If j = 0 Then
            TextBox1.ForeColor = Color.Blue
            TextBox2.ForeColor = Color.Blue
            If i < str.Length Then
                'TextBox1.Text = TextBox1.Text & c(i)
                i = i + 1
            Else
                i = 0
                'TextBox1.Text = ""
            End If
            j = 1
        Else
            j = 0

            TextBox1.ForeColor = Color.Red
            TextBox2.ForeColor = Color.Red
        End If
    End Sub

AUTOSIZE COLUMNS IN DATAGRIDVIEW

 //COPY AND PASTE IT ON FORM_LOAD EVENT

DataGridView1.AutoResizeColumns()

             DataGridView1.AutoSizeColumnsMode =
        DataGridViewAutoSizeColumnsMode.AllCells

Time Difference Between Columns

SUBSTRING(CONVERT(VARCHAR(20),(enddatetime - startdatetime),120),12,8)

SQL ConnectionString with IP ADDRESS

<appSettings>
 
 <add key="ConnectionStringsql" value="Server=103.245.119.115,1433;Network Library=DBMSSOCN;Initial Catalog=mydatabase;User Id=sa;Password=pass100;"/>
 
     </appSettings>

Copy system files - visual studio 2015

     

 My.Computer.FileSystem.CopyFile("c:\myfiles\test.txt", "z:\process\documents\test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.UICancelOption.DoNothing)

view PDF document on a cell click on datagridview - visual studio 2015

//first of all load pdf reader from toolbox->addtab->choose items->com components

 Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       
        Dim ofd As New OpenFileDialog
        ofd.Filter = "PDF| *.pdf"
        ofd.FileName = "z:\process\documents\" & DataGridView1.CurrentRow.Cells(1).Value 
         Me.AxAcroPDF1.LoadFile(ofd.FileName)
    End Sub

view a PDF document on button click in a Windows Form - Visual studio 2015

Me.AxAcroPDF1.LoadFile("C:\Temp\PDF_DemoFile_2.pdf")

VBA pdf export from excel

//developer tab for create button, alt+f11 for vba open

Sub PDFActiveSheet()
'www.contextures.com
'for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

EXPORT TO EXCEL Visual Studio 2015

//go to project -> add reference -> Microsoft office 16.0 object library and Microsoft Excel Library

// Imports Excel = Microsoft.Office.Interop.Excel
// copy paste this code for EXPORT BUTTON

 Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer

        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")


        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                For k As Integer = 1 To DataGridView1.Columns.Count
                    xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
                    xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
                Next
            Next
        Next

        xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MsgBox("You can find the file C:\vbexcel.xlsx")
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Google Map as a background HTML

//copy and paste this code in your html page

<!DOCTYPE html>
<html>
<head>

    <title></title>
<meta charset="utf-8" />
 
<style type="text/css" >

    #googlemaps {
    height: 100%;
    width: 100%;
    position:absolute;
    top: 0;
    left: 0;
    z-index: 0; /* Set z-index to 0 as it will be on a layer below the contact form */
    }

    #contactform {
    position: relative;
    z-index: 1; /* The z-index should be higher than Google Maps */
    width: 250px;
    margin: 5px auto 0 770px;
    padding: 5px;
    background: coral;
    height: auto;
    opacity: .80;  /*Set the opacity for a slightly transparent Google Form*/
    color:white;
 
     text-align:center ;
    }

 </style>
</head>
<body>
    <div id="googlemaps"></div>
    <div id="contactform">
        <h2>NOIDA</h2>
     
            <p style="font-family:Calibri;">
            A-10 A, Sector – 68, Noida-201301,<br />
            District – Gautam Budh Nagar,<br />
            Uttar Pradesh, INDIA<br />
            +91-120-6759600<br />
            cylmktg@afflatusfravure.com<br />
        </p>
    </div>

</body>

</html>
<!--!-- Include the Google Maps API library - required for embedding maps -->
<script src="http://maps.googleapis.com/maps/api/js?sensor=false"></script>

<script type="text/javascript">

// The latitude and longitude of your business / place
    var position = [28.6046998, 77.3900557];

function showGoogleMaps() {

    var latLng = new google.maps.LatLng(position[0], position[1]);

    var mapOptions = {
        zoom: 16, // initialize zoom level - the max value is 21
        streetViewControl: false, // hide the yellow Street View pegman
        scaleControl: true, // allow users to zoom the Google Map
        mapTypeId: google.maps.MapTypeId.ROADMAP,
        center: latLng
    };

    map = new google.maps.Map(document.getElementById('googlemaps'),
        mapOptions);

    // Show the default red marker at the location
    marker = new google.maps.Marker({
        position: latLng,
        map: map,
        draggable: false,
        animation: google.maps.Animation.DROP
    });
}
google.maps.event.addDomListener(window, 'load', showGoogleMaps);

</script>

// you have to just change the co-ordinates

Find your co-ordinates here

Website CAREER FORM with send mail,attached resume and linked resume

Imports System.Data.OleDb
Imports System.Data
Imports System.Web.Configuration
Imports System.Web.UI.HtmlControls.HtmlGenericControl
Imports System.Web.HttpApplication
Imports System.Drawing
Imports System.Net.Mail

Dim mail As New MailMessage()
        mail.From = New MailAddress("" & txtemail.Text & "")
        mail.To.Add("kapil@afflatusgravure.com")

        Dim sb As New StringBuilder
        FileUpload1.SaveAs(Server.MapPath("~/RESUMES/") & FileUpload1.FileName)
        Dim file As String = (Server.MapPath("~/RESUMES/") & FileUpload1.FileName)
        sb.Append("<a href=" & file & ">" & txtname.Text & "_" & "RESUME</a>")
        mail.Subject = ddlist1.Text
        mail.Body = "Name:" & " " & txtname.Text & "<br/>" & "Mobile:" & " " & txtmobile.Text & "<br/>" & "E-Mail:" & " " & txtemail.Text & "<br/>" & "Date Of Birth:" & " " & txtdob.Text & " <br/>" & "Applied For:" & " " & ddlist1.Text & "<br/>" & "Qualification:" & " " & txtqualification.Text & "<br/>" & "Skills:" & " " & txtskills.Text & "<br/>" & "Experience:" & " " & txtexperience.Text & "<br/>" & "Remarks:" & " " & txtremarks.Text & "<br/>" & "Resume:" & " " & sb.ToString()


        mail.IsBodyHtml = True

 //if u want ATTACHED RESUME with mail

        'If Not file = "" Then
        '    Dim MsgAttach As New Attachment(file)
        '    mail.Attachments.Add(MsgAttach)
        'End If

  Dim smtp As New SmtpClient("103.245.119.210")
        smtp.Send(mail)

             Image1.Visible = True
        txtdob.Text = ""
        txtemail.Text = ""
        txtexperience.Text = ""
        txtmobile.Text = ""
        txtname.Text = ""
        txtqualification.Text = ""
        txtremarks.Text = ""
        txtskills.Text = ""

//FOR ACCEPT DOC/MSWORD ONLY with fileupload control

 If (
            FileUpload1.PostedFile.ContentType = "text/rtf" Or
        FileUpload1.PostedFile.ContentType = "application/doc" Or
        FileUpload1.PostedFile.ContentType = "appl/text" Or
         FileUpload1.PostedFile.ContentType = "application/vnd.msword" Or
         FileUpload1.PostedFile.ContentType = "application/vnd.ms-word" Or
         FileUpload1.PostedFile.ContentType = "application/winword" Or
         FileUpload1.PostedFile.ContentType = "application/word" Or
         FileUpload1.PostedFile.ContentType = "application/msword" Or
         FileUpload1.PostedFile.ContentType = "application/x-msw6" Or
         FileUpload1.PostedFile.ContentType = "application/x-msword"
            ) Then

Getting Information About Public users IP Location

Imports System.IO
Imports System.Net
Imports System.String


 Dim strClientIP As String
        strClientIP = Request.UserHostAddress()

        Dim strComputerName As String
        Dim host As System.Net.IPHostEntry
        host = System.Net.Dns.GetHostEntry(Request.ServerVariables.Item("REMOTE_HOST"))
        strComputerName = host.HostName

        Dim ExternalIP As String
        ExternalIP = (New WebClient()).DownloadString("http://checkip.dyndns.org/")
        ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")) _
                     .Matches(ExternalIP)(0).ToString()

        Dim FILENAME As String = Server.MapPath("IP.txt")
        Dim objStreamWriter As StreamWriter
        objStreamWriter = File.AppendText(FILENAME)
        objStreamWriter.WriteLine("External IP    :" & " " & ExternalIP)
        objStreamWriter.WriteLine("Computer Name  :" & " " & strComputerName)
        objStreamWriter.WriteLine("Local IP       :" & " " & strClientIP)
        objStreamWriter.WriteLine("Date & Time    :" & " " & DateTime.Now)
        objStreamWriter.WriteLine("-----------------------------------------------------")
        objStreamWriter.Close()
        Dim objStreamReader As StreamReader
        objStreamReader = File.OpenText(FILENAME)
        Dim contents As String = objStreamReader.ReadToEnd()
        objStreamReader.Close()

Disable Copy Text From Web Pages

// copy paste this script inside  head section of page OR contentplaceholder's head content

<script type="text/javascript">

function disableSelection(target){
if (typeof target.onselectstart!="undefined") //IE route
target.onselectstart=function(){return false}
else if (typeof target.style.MozUserSelect!="undefined") //Firefox route
target.style.MozUserSelect="none"
else //All other route (ie: Opera)
target.onmousedown=function(){return false}
target.style.cursor = "default"
}

</script>

//Then copy paste these scripts according usage inside body section OR contentplaceholder

<script type="text/javascript">
disableSelection(document.body) //disable text selection on entire body of page
</script>

<script type="text/javascript">
var somediv=document.getElementById("mydiv")
disableSelection(somediv) //disable text selection within DIV with id="mydiv"
</script>

<script type="text/javascript">
var alltables=document.getElementsByTagName("table")
for (var i=0; i<alltables.length; i++)
disableSelection(alltables[i]) //disable text selection within all tables on the page
</script>

Disable Right Click On Web Pages

// copy and paste this code inside your body section OR contentplaceholder

<script language=JavaScript>
<!--

var message="";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}

document.oncontextmenu=new Function("return false")
// -->
</script>

Disable Right Click on Images

// copy and paste this script inside your body section OR contentplaceholder

<script>

document.oncontextmenu = function(e){
var target = (typeof e !="undefined")? e.target: event.srcElement
if (target.tagName == "IMG" || (target.tagName == 'A' && target.firstChild.tagName == 'IMG'))
return false
}

</script>

SQL- See Table RelationShips

//RUN QUERY IN SQL

SELECT
K_Table = FK.TABLE_NAME,
FK_Column = CU.COLUMN_NAME,
PK_Table = PK.TABLE_NAME,
PK_Column = PT.COLUMN_NAME,
Constraint_Name = C.CONSTRAINT_NAME
FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS C
INNER JOIN INFORMATION_SCHEMA.TABLE_CONSTRAINTS FK ON C.CONSTRAINT_NAME = FK.CONSTRAINT_NAME
INNER JOIN INFORMATION_SCHEMA.TABLE_CONSTRAINTS PK ON C.UNIQUE_CONSTRAINT_NAME = PK.CONSTRAINT_NAME
INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE CU ON C.CONSTRAINT_NAME = CU.CONSTRAINT_NAME
INNER JOIN (
SELECT i1.TABLE_NAME, i2.COLUMN_NAME
FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS i1
INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE i2 ON i1.CONSTRAINT_NAME = i2.CONSTRAINT_NAME
WHERE i1.CONSTRAINT_TYPE = 'PRIMARY KEY'
) PT ON PT.TABLE_NAME = PK.TABLE_NAME

Using Date & Time in EXCEL

https://www.ablebits.com/office-addins-blog/2015/06/24/calculate-time-excel/

Link Any Type Of File as OBJECT

<object type="text/html" width=100% height="250" data="CONTENTS/Packaging South Asia.pdf">

</object>

TITLE MARQUEE

//<!-- Add the script to the HEAD of your document -->

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var scrl = " Afflatus Gravures Pvt.Ltd. ";
function scrlsts() {
 scrl = scrl.substring(1, scrl.length) + scrl.substring(0, 1);
 document.title = scrl;
 setTimeout("scrlsts()", 300);
 }
//  End -->
</script>


//<!-- Add the event loader to the body tag as below -->

<body onLoad="scrlsts()">