Visual Basic

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim combo As String
Dim SQLEV As SqlClient.SqlConnection = New SqlClient.SqlConnection
SQLEV.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=db_chart;server=nrppc-mis1\sqlexpress"

combo = ComboBox1.SelectedValue.ToString

Dim command As New SqlCommand("usp_Procedure", SQLEV)
Dim adapter As New SqlDataAdapter(command)

command.CommandType = CommandType.StoredProcedure
With command.Parameters
.Add(New SqlParameter("@Ridfrom", SqlDbType.NVarChar))
.Add(New SqlParameter("@PidTo", SqlDbType.Money)).Direction = ParameterDirection.Output
.Add(New SqlParameter("Returnvalue", SqlDbType.Int)).Direction = ParameterDirection.ReturnValue
End With
End Sub

ALTER PROCEDURE usp_Procedure
@Ridfrom nVarChar(50),
@PidTo nVarchar(20) output

AS

SELECT @PidTo = ProcDetails.Procedure_ID
FROM ReportMaster INNER JOIN
ProcDetails ON ReportMaster.Procedure_ID = ProcDetails.Procedure_ID
WHERE ReportMaster.Report_ID = @Ridfrom

RETURN

Private Function SaveMaterial() As Boolean

    Try
        ' The index of a zero-based collection is Count property minus 1.
        Dim iCnt As Integer
        iCnt = myMaterialsCollection.Count
        iCnt = iCnt - 1

        With myMaterialsCollection
            For Each aItem In myMaterialsCollection
                If iCnt = -1 Then
                    Exit For
                End If
                _gblString = CreateGUIDString()

                gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

                strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
                & " VALUES ('" & _gblString & "',  " _
                & "'" & _frmGuid & "', '" _
                & 1 & "',' " _
                & aItem.txtBoxName & "',' " _
                & aItem.MaterialID & "',' " _
                & aItem.jnts & "',' " _
                & Now() & "');"

                gblCMD.Connection = gblConn
                gblCMD.CommandText = strData
                Dim cmd As New System.Data.SqlClient.SqlCommand

                gblConn.Open()
                gblCMD.ExecuteNonQuery()

                myMaterialsCollection.Remove(iCnt)
                iCnt = iCnt - 1  'decrement until empty
            Next

        End With

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Function

Public Function StoreMaterial2COL(ByRef matID As String, ByRef ctrlname As String, ByRef jnts As String)
    Try
        'need to check to make sure the txtboxName has not been entered already
        'if so then the user is updated the amt and we need to update the
        'jnts and not add a new record.
        aItem.txtBoxName = ctrlname
        aItem.MaterialID = matID
        aItem.jnts = jnts

        myMaterialsCollection.Add(aItem)
    Catch ex As Exception

        'Catch ex As System.InvalidCastException
        MsgBox(ex.ToString)
    End Try
    Return True

End Function

'*#*#*#*#*#*#*#*#*#*#*#*#*
'Need to try to make a more generic method of doing this- a control array maybe????
'This is for column 1 Junk Rods
Private Sub txtRodJ_0_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRodJ_0.LostFocus
    StoreMaterial2COL(lblRods_0.Tag, txtRodJ_0.Name, txtRodJ_0.Text)
End Sub
Private Sub txtRodJ_1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_1.LostFocus
    StoreMaterial2COL(lblRods_1.Tag, txtRodJ_1.Name, txtRodJ_1.Text)
End Sub
Private Sub lblRodJ_2_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_2.LostFocus
    StoreMaterial2COL(lblRods_2.Tag, txtRodJ_2.Name, txtRodJ_2.Text)
End Sub
Private Sub txtRodJ_3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_3.LostFocus
    StoreMaterial2COL(lblRods_3.Tag, txtRodJ_3.Name, txtRodJ_3.Text)
End Sub