Visual Basic

Public Sub InsertTest()

     Dim cust As New Customer                            ' add new customer
     With cust
         .First_Name = "Paul"
         .Last_Name = "Miller"
     End With
     Customer.InsertOnSubmit(cust)

     Dim item1 As New Item                               ' add new product item
     With item1
         .Item_Name = "DVD"
         .Item_Price = 19.75
     End With
     Item.InsertOnSubmit(item1)

     Dim item2 As New Item                               ' add new product item
     With item2
         .Item_Name = "BlueRay"
         .Item_Price = 29.75
     End With
     Item.InsertOnSubmit(item2)

     ' ONLY FOR DEBUGGING
     ' print changed objects
     Dim mySet As System.Data.Linq.ChangeSet = Me.GetChangeSet()
     Dim liste As Object = mySet.Inserts

     For Each entry As Object In liste                '<----- prints existing & added entries
         Select Case True
             Case TypeOf (entry) Is Item
                 Console.WriteLine(entry.Item_Name)
             Case TypeOf (entry) Is Customer
                 Console.WriteLine(entry.last_name)
             Case Else
                 Console.WriteLine("Objekt vom Typ '{0}'", entry.GetType.Name)
         End Select

     Next

     SubmitChanges()                                    '<---- isn't writing changes to database
     Console.ReadLine()

 End Sub

Sub Query_Insert_Test()
    Try
        AddQuery = "Begin Transaction "
        AddQuery &= "INSERT INTO tblFoodAndBeverage(Breakfast,Lunch,Dinner,Supper,Snack,Beverage,Grocerries,Sub_Total) VALUES('" & txtBreakFeast.Text & "','" & txtLunch.Text & "','" & txtDinner.Text & "','" & txtSupper.Text & "','" & txtSnack.Text & "','" & txtBeverage.Text & "','" & txtGroceries.Text & "','" & txtSubFnB.Text & "')"
        AddQuery &= "INSERT INTO tblExpenses(Date, <big>Food_And_Beverage</big>, Allowance, Total,Wallet) VALUES('" & DateTimePicker1.Value & "',(S<big>ELECT Food_And_BeverageID FROM [tblFoodAndBeverage],[tblExpenses] WHERE tblFoodAndBeverage.Food_And_BeverageID = tblExpenses.ExpensesID and tblExpenses.Date = '" & DateTimePicker1.Value &</big> "'),'" & txtAllowance.Text & "','" & txtTotalUsage.Text & "','" & txtWalletCash.Text & "')"
        AddQuery &= "Commit Transaction "


        cmd = New SqlCommand(AddQuery, connection)
        connection.Open()

        Dim Check As Integer = cmd.ExecuteNonQuery()
        If Check > 0 Then
            MsgBox("Record Inserted.")
            connection.Close()
        Else
            MsgBox("Error. Record not inserted.")
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message & " #################### " & ex.ToString)
    End Try

End Sub

Private Sub CreateAndDisplayTableau(ByRef frm As Form)
    'Destroy picture boxes on form
    Dim ctrl As Control
    For Each ctrl In frm.Controls
        If TypeOf ctrl Is PictureBox Then
                frm.Controls.Remove(ctrl)
        End If
    Next
End Sub