Database

Dim myconnection As New SqlCeConnection(ConnStr)
Dim mycommand As New SqlCeCommand
Dim InsertStr As String = Nothing

mycommand.CommandType = CommandType.Text
mycommand.Connection = myconnection

Dim xdate As Date = DateTimePicker1.Value
xdate = xdate.ToShortDateString


InsertStr = "INSERT INTO Expenses ([Date],BelongTo,Status,ExpenseAmount,ExpenseCurrency) "
InsertStr += "VALUES ('" & xdate & "'," & ExpenseIndex & ",0," & CType(ExpenseAmount.Text, Decimal) & "," & "'" & Currency.SelectedItem.ToString & "');"

mycommand.CommandText = InsertStr

Try
    mycommand.Connection.Open()
    mycommand.ExecuteNonQuery()

Catch ex As Exception
    MsgBox(ex.ToString & vbCrLf & InsertStr)
    mycommand.Connection.Close()
    Exit Sub
End Try

mycommand.Connection.Close()

DECLARE ParentCursor Cursor for
   select iitm_id_parent from z_structure where iitm_id = @pverID
   
open ParentCursor
fetch next from ParentCursor into @versionId
while (@@fetch_status = 0)
begin
    select @isDraft = isnull(ipve_draft, 0) from i_product_version where ipve_id = @versionId
    select @nCount = count(*)
        from i_prod_wwrk
        where wwrk_id = @workflowID and ipro_id in (select ipro_id from i_product_version where ipve_id = @versionId)
   
   if ((@nCount > 0) and (@isDraft = 0))
      insert into e_parents (expo_id, pver_id, pver_parent_id) values (@expoID, @pverID, @versionId)

   fetch next from ParentCursor into @versionId
end
close ParentCursor
deallocate ParentCursor

INSERT INTO E_PARENTS (EXPO_ID, PVER_ID, PVER_PARENT_ID)
	SELECT @expoID, @pverID, z.iitm_id_parent
	FROM z_structure z INNER JOIN i_product_version pv ON z.iitm_id_parent = pv.ipve_id
	WHERE z.iitm_id = @pverID AND ISNULL(pv.ipve_draft, 0) = 0 AND
		EXISTS (SELECT 1 FROM i_prod_wwrk pw
				WHERE pw.wwrk_id = @workflowID AND pw.ipro_id IN
					(SELECT ipro_id FROM i_product_version WHERE ipve_id = z.iitm_id_parent)
				)