Untitled

Imports System.Data.SqlClient

Module Module1

    Sub Main(ByVal sArgs() As String)

        Dim ConnString As String

        'Connstring = Server Name, Database Name, Windows Authentication
        ConnString = "Data Source=MATHEW-PC\SQLEXPRESS;Initial Catalog=Test;Integrated Security=True"

        'Write to SQL

        Dim SQLConn As New SqlConnection() 'The SQL Connection
        Dim SQLCmd As New SqlCommand() 'The SQL Command

        SQLConn.ConnectionString = ConnString 'Set the Connection String
        SQLConn.Open() 'Open the connection

        Try
            SQLCmd = New SqlCommand("sps_rssfeeds_insert", SQLConn)
            SQLCmd.CommandType = CommandType.StoredProcedure

            Dim sampParm As SqlParameter = SQLCmd.Parameters.Add("@p_rssid", SqlDbType.Int)
            sampParm.Direction = ParameterDirection.Output

            sampParm = SQLCmd.Parameters.Add("@p_url", SqlDbType.VarChar, 1024)
            sampParm.Value = "Sample Url"

            sampParm = SQLCmd.Parameters.Add("@p_name", SqlDbType.VarChar, 50)
            sampParm.Value = "Sample Name"
            SQLCmd.ExecuteNonQuery()

            Dim iRSSID As Integer = DirectCast(SQLCmd.Parameters("@p_rssid").Value, Integer)

            Console.WriteLine("Rows inserted: {0}", iRSSID)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Throw
        Finally
            SQLConn.Close()
        End Try

        SQLConn.Close() 'Close the connection
        SQLConn.Dispose()

        Console.ReadLine()
    End Sub
End Module