https://padlet.com/taiffdisted/k7ocdhq4nffc Made with joy en-us 2019-03-04 03:39:02 UTC 2019-03-04 08:27:07 UTC hello@padlet.com taiffdisted https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337331416 Sub FillRecipeInfo(recipeName As String)
Dim viewRecipeSql As String
Dim viewRecipeCmd As SqlCommand
If recipeName = "" Then
Throw New Exception("recipeName cannot be blank")
End If

viewRecipeSql = "SELECT * FROM Recipe WHERE name=@n"
viewRecipeCmd = New SqlCommand(viewRecipeSql, conn)
viewRecipeCmd.Parameters.Clear()
viewRecipeCmd.Parameters.AddWithValue("n", recipeName)

Dim adapter As SqlDataAdapter = New SqlDataAdapter(viewRecipeCmd)
Dim ds As DataSet = New DataSet()
adapter.Fill(ds, "oneRecipe")
Dim dt As DataTable = ds.Tables("oneRecipe")
If (dt.Rows.Count = 0) Then
MsgBox("NO RECIPES FOUND WITH THE NAME " & recipeName)
Else
Dim dr As DataRow = dt.Rows(0)
IDLabel.Text = dr("id")
RecipeNameTextBox.Text = dr("name")
CategoryTextBox.Text = dr("category")
EnergyTextBox.Text = dr("energy")
CookingTimeTextBox.Text = dr("cookingTime")
End If
End Sub

]]> 2019-03-04 03:39:21 UTC https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337331416 taiffdisted https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337335953 Private Sub UpdateButton_Click(sender As Object, e As EventArgs) Handles UpdateButton.Click
If UpdateRecipe() = True Then
MsgBox("Update Successfull")
Else
MsgBox("Failed to Update")
End If
End Sub

Function UpdateRecipe() As Boolean
Dim updateRecipeSql As String
Dim updateRecipeCmd As SqlCommand

updateRecipeSql = "UPDATE Recipe SET name=@n, category=@c, energy=@e, cookingTime=@ct WHERE id=@id"
updateRecipeCmd = New SqlCommand(updateRecipeSql, conn)
updateRecipeCmd.Parameters.Clear()
updateRecipeCmd.Parameters.AddWithValue("n", RecipeNameTextBox.Text)
updateRecipeCmd.Parameters.AddWithValue("c", CategoryTextBox.Text)
updateRecipeCmd.Parameters.AddWithValue("e", EnergyTextBox.Text)
updateRecipeCmd.Parameters.AddWithValue("ct", CookingTimeTextBox.Text)
updateRecipeCmd.Parameters.AddWithValue("id", IDLabel.Text)

Dim rowsAffected = updateRecipeCmd.ExecuteNonQuery()
If rowsAffected = 1 Then
Return True
Else
Return False
End If
End Function

]]> 2019-03-04 04:05:41 UTC https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337335953 taiffdisted https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337355814 Function IsAnyTextBoxEmpty() As Boolean
Dim name = Trim(RecipeNameTextBox.Text)
Dim cat = Trim(CategoryTextBox.Text)
Dim energy = Trim(EnergyTextBox.Text)
Dim ct = Trim(CookingTimeTextBox.Text)

If name.Length > 0 Then
If cat.Length > 0 Then
If energy.Length > 0 Then
If ct.Length > 0 Then
Return False
End If
End If
End If
End If
Return True
End Function

Private Sub InputBox_TextChanged(sender As Object, e As EventArgs) _
Handles RecipeNameTextBox.TextChanged, CategoryTextBox.TextChanged,
EnergyTextBox.TextChanged, CookingTimeTextBox.TextChanged
If IsAnyTextBoxEmpty() Then
ConfirmAddButton.Enabled = False
Else
ConfirmAddButton.Enabled = True
End If
End Sub

]]> 2019-03-04 06:57:33 UTC https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337355814 taiffdisted https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337361713 Function AddRecipe() As Boolean
Dim insertRecipeSql As String
Dim insertRecipeCmd As SqlCommand

insertRecipeSql = "INSERT INTO Recipe (name, category, energy, cookingTime)
VALUES (@n, @c, @e, @ct)"
insertRecipeCmd = New SqlCommand(insertRecipeSql, conn)
insertRecipeCmd.Parameters.Clear()
insertRecipeCmd.Parameters.AddWithValue("n", Trim(RecipeNameTextBox.Text))
insertRecipeCmd.Parameters.AddWithValue("c", Trim(CategoryTextBox.Text))
insertRecipeCmd.Parameters.AddWithValue("e", Trim(EnergyTextBox.Text))
insertRecipeCmd.Parameters.AddWithValue("ct", Trim(CookingTimeTextBox.Text))

Try
Dim rowsAffected = insertRecipeCmd.ExecuteNonQuery()
If rowsAffected = 1 Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function]]> 2019-03-04 07:34:57 UTC https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337361713 taiffdisted https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337371892 Private Sub DeleteButton_Click(sender As Object, e As EventArgs) Handles DeleteButton.Click
If RecipeListBox.SelectedIndex >= 0 Then
If MsgBox("Delete " & RecipeListBox.SelectedItem, MsgBoxStyle.YesNo, "Delete Recipe Confirmation") = MsgBoxResult.Yes Then
If DeleteRecipe() Then
RecipeListBox.Items.RemoveAt(RecipeListBox.SelectedIndex)
MsgBox("Delete successful")
End If
End If
End If
End Sub

Function DeleteRecipe() As Boolean
Dim deleteRecipeSql As String
Dim deleteRecipeCmd As SqlCommand

deleteRecipeSql = "DELETE FROM Recipe WHERE name=@n"
deleteRecipeCmd = New SqlCommand(deleteRecipeSql, conn)
deleteRecipeCmd.Parameters.Clear()
deleteRecipeCmd.Parameters.AddWithValue("n", RecipeListBox.SelectedItem)

Try
Dim rowsAffected = deleteRecipeCmd.ExecuteNonQuery()
If rowsAffected = 1 Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function

]]> 2019-03-04 08:26:39 UTC https://padlet.com/taiffdisted/k7ocdhq4nffc/wish/337371892