Visual Basic

'populates store data from store table

    Private Sub StoreList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreList1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = StoreList1.SelectedValue
        Dim stdv As DataView
        Dim i As Integer
        Dim val(0) As String
        Dim st As New bL_vmi_calculatorDataSet._Master___StoreDataTable
        stdv = New DataView(st)
        stdv.Sort = "Store"


        val(0) = ItemSelected

        i = stdv.Find(val(0))


        RegionTextBox.Text = DataTableReader.Equals(i, 1)
       


    End Sub


    'populates titles info from master title list table with TITLE

    Private Sub TitleBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TitleBox1.SelectedIndexChanged, TitleBox1.SelectedValueChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(1) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "TITLE"


        val(1) = ItemSelected

        j = tldv.Find(val(1))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 0)
        'UPCbox1.Enabled = False
        'SKUBox1.Enabled = False

    End Sub
    'populates titles info from master title list table with UPC
    Private Sub UPCbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UPCbox1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(0) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "UPC (12 Digit)"


        val(0) = ItemSelected

        j = tldv.Find(val(0))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 3)
        'TitleBox1.Enabled = False
        'SKUBox1.Enabled = False
    End Sub
    'populates titles info from master title list table with SKU
    Private Sub SKUBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKUBox1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(2) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "BL SKU"


        val(2) = ItemSelected

        j = tldv.Find(val(2))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 1)
        'UPCbox1.Enabled = False
        'TitleBox1.Enabled = False
    End Sub

SET INSTANCE=%1<br />
SET DatabaseName=%2<br />
SET USR_ID=%3<br />
SET USR_PWD=%4<br />
SET ScriptName=%5<br />
SET OutFile="C:\Output.out"<br />
SQLCMD -S %INSTANCE% -d %DatabaseName% -U %USR_ID% -P %USR_PWD% -i %ScriptName% -o %OutFile&