How to Databind in VB.NET

Imports System
Imports System.Data.SqlClient

Dim sConnection As String = "Provider=SQLOLEDB.1;Data Source=(local);User ID=sqlusername;Password=sqlpassword;Initial Catalog=CD;Persist Security Info=True;"

Dim SQL As String
SQL = "SELECT Field1, Field2 From Table"
Dim sqlConn As New OleDb.OleDbConnection(sConnection)
Dim sqlDataAdapter As New OleDb.OleDbDataAdapter(SQL, sqlConn)
Dim sqlDS As New DataSet("Table")
Dim sqlDV As DataView

Try
 sqlConn.Open()
Catch ex As Exception
 Msgbox(ex.Message)
End Try

If sqlConn.State = ConnectionState.Open Then
   Try
      sqlConn.Close()
      Dim sqlTable As DataTable
      sqlTable = sqlDS.Tables("Table1")
      sqlDV = sqlTable.DefaultView
      textBox1.DataBindings.Add("Text", sqlDV, "Field2")
   Catch ex As Exception
      MsgBox(ex.Message)
   End Try
End If

How to connect to MS-SQL using VB.Net

Import System.Data.SqlClient

Dim sConnection As String
sConnection = "Data Source=servername;User ID=sqlusername;Password=sqlpassword;Initial Catalog=CD;Persist Security Info=True;"

Dim SqlCon As New SqlConnection(sConnection)
SqlCon.Open

How to create new file using FileSystemObject

Option Explicit
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile
strDirectory = "C:\New Folder"
strFile = "\New File.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo strDirectory & strFile & " created successfully."
Wscript.Quit

How to read key from registry in VB.NET

Imports Microsoft.Win32

Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Keyname").OpenSubKey("Keyname").OpenSubKey("Keyname").OpenSubKey("Keyname")

MsgBox key.GetValue("keyname")

How to Create New folder using FileSystemObject

Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "c:\New Folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo strDirectory & " created successfully."
WScript.Quit

How to email webpage/HTML page

Import System.Net.Mail

Public Sub EmailWebPage()
Dim myMail As New MailMessage()
myMail.From = New MailAddress("From Email Address")
myMail.To.Add("To Email Address")
myMail.Subject = "Email Subject"
Dim htmlPg As String = SendWebPage("http://servername/htmlpage.html")
myMail.Body = htmlPg
myMail.IsBodyHtml = True
Dim smtp As New SmtpClient(<SMTP SERVER>)
smtp.Send(myMail)
End Sub

Public Function SendWebPage(ByVal url As String) As String
Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
Dim strmRder As New StreamReader(objRequest.GetResponse ().GetResponseStream())
Dim result As String = strmRderstrmRder.ReadToEnd()
strmRder.Close()
Return result
End Function

How to Send plain text Email

Import System.Net.Mail

Dim myMail As New MailMessage()
myMail.From = New MailAddress("From Email Address")
myMail.To.Add("To Email Address")
myMail.Subject = "Email Subject"
myMail.Body = "Email Body"

Dim mysmtp As New SmtpClient(<SMTP SERVER>)
mysmtp.Send(MyMail)

How to create XML file using VB.NET

Import System.XML

Dim xmldoc As New XmlDocument
Dim xmlElem As XmlElement
Dim xmlNde As XmlNode
Dim xmlTxt As XmlText
xmlNde = xmldoc.CreateNode(XmlNodeType.XmlDeclaration, "", "")
xmldoc.AppendChild(xmlNde)
xmlElem = xmldoc.CreateElement("", "DETAILS", "")
xmlTxt = xmldoc.CreateTextNode(String)
With xmlElem
    .AppendChild(xmlTxt)
End With
With xmldoc
    .AppendChild(xmlElem)
    .Save("C:\MyFolder\myXMLFile.xml")
End With

How to enable and disable the Foreign Key constraints in MS-SQL

CREATE PROCEDURE metadata.sp_enabledisableforeignkeys
@ownerName NVARCHAR(128),
@tableName NVARCHAR(128),
@enabled   NVARCHAR(1)
AS
  BEGIN
      DECLARE @CurrentSchema NVARCHAR(300),
              @CurrentTable  NVARCHAR(300),
              @CurrentFKName NVARCHAR(300)
      DECLARE @executeSql NVARCHAR(2000),
              @enableSql  NVARCHAR(20)
      IF @enabled = 'Y'
        SET @enableSql = ' CHECK'
      ELSE
        SET @enableSql = ' NOCHECK'
      DECLARE fklist CURSOR FOR
       SELECT sysschemas.name AS schemaname,
         systables.name  AS tablename,
         sysfks.name     AS fkname
        FROM   sys.foreign_keys sysfks
         INNER JOIN sys.tables systables
          ON systables.object_id = sysfks.parent_object_id
         INNER JOIN sys.schemas sysschemas
          ON sysschemas.schema_id = systables.schema_id
         INNER JOIN sys.tables sysreftables
          ON sysreftables.object_id = sysfks.referenced_object_id
         INNER JOIN sys.schemas sysrefschemas
          ON sysrefschemas.schema_id = sysreftables.schema_id
        WHERE  sysreftables.name = @tableName
          AND sysrefschemas.name = @ownerName
      OPEN fklist
      FETCH NEXT FROM fklist INTO @CurrentSchema, @CurrentTable, @CurrentFKName
      WHILE @@FETCH_STATUS = 0
        BEGIN
         SET @executeSql = 'Alter Table ' + @CurrentSchema + '.' +
          @CurrentTable + @enableSql + ' CONSTRAINT ' + @CurrentFKName
         EXEC Sp_executesql @executeSql
          FETCH NEXT FROM fklist INTO @CurrentSchema, @CurrentTable,
            @CurrentFKName
        END
      CLOSE fklist
      DEALLOCATE fklist
  END 

How to find Foreign Keys in MS SQL

Select SCHEMA_NAME(a.schema_id) 'SCHEMA_NAME'
,OBJECT_NAME(a.parent_object_id) as 'TABLE_NAME'
,OBJECT_NAME(a.referenced_object_id) as 'REFERENCE_TABLE_NAME'
,a.name as 'FOREIGN_KEY_NAME'
From sys.foreign_keys a