<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>WDM - SQL SP Execute Non Query</Title>
      <Shortcut>WDM-SQLSPExecuteNonQuery</Shortcut>
      <Description>WDM - SQL SP Execute Non Query [VB.NET]</Description>
      <Author>Daren Hawes</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=04c533e3-52da-4b80-a58a-a28f21e35f44</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA['SQL Configuration
        Dim SqlCommand As New SqlCommand
        SqlCommand.CommandText = "dbo.Property_DeleteProperty"
        SqlCommand.CommandType = System.Data.CommandType.StoredProcedure
        SqlCommand.Connection = DatabaseConnection

        'Parameters
        SqlCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        SqlCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@PropertyID", System.Data.SqlDbType.Int, 4)).Value = PropertyID

        'Connect to DB and fire
        SqlCommand.Connection.Open()

        Dim ReturnVal As Integer = SqlCommand.ExecuteNonQuery

        'Close connection
        SqlCommand.Connection.Close()

        Return ReturnVal
]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>