By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,550 Members | 1,733 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,550 IT Pros & Developers. It's quick & easy.

Adding new row to table from form.

P: 6
Good afternoon All I have got over some hurdles on my current project and now I am stuck again.

Im now having issues with writing the code that takes the calculations from my txt boxes and inserts them as a new row in my access database.

I used the Visual Studio 2005 Wizard to create my DB connections, so im struggling to work it all out.

Here is the code for my form:

Expand|Select|Wrap|Line Numbers
  1.  
  2.  
  3.  
  4.  
  5. Public Class frmCalculator
  6.  
  7.     Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
  8.  
  9.         'ends application
  10.         Me.Close()
  11.  
  12.     End Sub
  13.  
  14.     Private Sub TblPurchaseBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  15.         Me.Validate()
  16.         Me.TblPurchaseBindingSource.EndEdit()
  17.         Me.TblPurchaseTableAdapter.Update(Me.DsLeopard.tblPurchase)
  18.  
  19.     End Sub
  20.  
  21.     Private Sub frmCalculator_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  22.  
  23.         'have the user confirm that they want to exitt he application
  24.         e.Cancel = (MessageBox.Show("Are you sure you want to exit?", "Closing Application", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No)
  25.  
  26.     End Sub
  27.  
  28.     Private Sub frmCalculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  29.  
  30.         'fills the dataset for the tblProducts with Data
  31.         Me.TblProductsTableAdapter.Fill(Me.DsLeopard.tblProducts)
  32.  
  33.         'fills the dataset for the tblPurchase with data
  34.         Me.TblPurchaseTableAdapter.Fill(Me.DsLeopard.tblPurchase)
  35.  
  36.  
  37.         lblProductIDCombo.Visible = False
  38.         cmbProductID.Visible = False
  39.  
  40.     End Sub
  41.  
  42.  
  43.     Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
  44.  
  45.         'calls the PrintForm method
  46.         PrintForm()
  47.  
  48.     End Sub
  49.  
  50.     Public Sub PrintForm()
  51.         ' Takes a screenshot, then initiates the print
  52.         GrabScreen()
  53.         myPrintDialog.Document = myPrintDocument
  54.         If myPrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
  55.             myPrintDocument.Print()
  56.         End If
  57.     End Sub
  58.  
  59.     ' API call to help generate final screenshot
  60.     Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal _
  61.         hdcDest As IntPtr, ByVal _
  62.         nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth _
  63.         As Integer, ByVal nHeight _
  64.         As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc _
  65.         As Integer, _
  66.         ByVal nYSrc As Integer, ByVal dwRop As System.Int32) _
  67.         As Boolean
  68.     ' Variable to store screenshot
  69.     Private bmpScreenshot As Bitmap
  70.  
  71.     Private Sub GrabScreen()
  72.         ' Performs a screenshot, saving results to bmpScreenshot
  73.         Dim objGraphics As Graphics = Me.CreateGraphics
  74.         Dim objSize As Size = Me.Size
  75.         Const SRCCOPY As Integer = &HCC0020
  76.  
  77.         bmpScreenshot = New Bitmap(objSize.Width, objSize.Height, _
  78.                                    objGraphics)
  79.         Dim objGraphics2 As Graphics = _
  80.             Graphics.FromImage(bmpScreenshot)
  81.         Dim deviceContext1 As IntPtr = objGraphics.GetHdc
  82.         Dim deviceContext2 As IntPtr = objGraphics2.GetHdc
  83.  
  84.         BitBlt(deviceContext2, 0, 0, Me.ClientRectangle.Width, _
  85.           Me.ClientRectangle.Height, deviceContext1, 0, 0, SRCCOPY)
  86.         objGraphics.ReleaseHdc(deviceContext1)
  87.         objGraphics2.ReleaseHdc(deviceContext2)
  88.     End Sub
  89.  
  90.     Private Sub myPrintDocument_PrintPage(ByVal sender _
  91.       As System.Object, _
  92.       ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  93.       Handles myPrintDocument.PrintPage
  94.         ' Method that handles the printing
  95.         Dim objImageToPrint As Graphics = e.Graphics
  96.         objImageToPrint.DrawImage(bmpScreenshot, 0, 0)
  97.         bmpScreenshot.Dispose()
  98.         objImageToPrint.Dispose()
  99.         e.HasMorePages = False
  100.     End Sub
  101.  
  102.     Private Sub Compute()
  103.  
  104.         'This Sub Procedure calculates the Shipping, tax and Total Cost
  105.  
  106.         prodPrice = txtProdPrice.Text
  107.         prodQuantity = txtOrderQuant.Text
  108.  
  109.         'Total price of items, minus tax and shipping
  110.         totalPrice = prodPrice * prodQuantity
  111.  
  112.         'Calculates the shipping cost
  113.         shipCost = totalPrice * 0.1
  114.         'Displays Shipping cost in text box
  115.         txtShipCost.Text = shipCost.ToString("C2")
  116.  
  117.         'Calculates the tax
  118.         salesTax = totalPrice * 0.05
  119.         'displays Tax in text box
  120.         txtTax.Text = salesTax.ToString("C2")
  121.  
  122.         'Calculates total cost of purchase including Tax and shipping
  123.         totalCost = totalPrice + shipCost + salesTax
  124.         'Displays total cost in text box
  125.         txtTotalCost.Text = totalCost.ToString("C2")
  126.  
  127.  
  128.  
  129.     End Sub
  130.  
  131.     Private Sub ComputeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComputeToolStripMenuItem.Click
  132.  
  133.         'When the compute button is selected the cost calculation is made
  134.         Call Compute()
  135.  
  136.     End Sub
  137.  
  138.  
  139.     Private Sub CalculateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateToolStripMenuItem.Click
  140.  
  141.         'Ensures that the clear button is not available unless a value is in the appropriate text boxes
  142.         If txtOrderQuant.Text = Nothing Then
  143.             menuItemClear.Enabled = False
  144.         Else : menuItemClear.Enabled = True
  145.         End If
  146.  
  147.         If txtShipCost.Text = Nothing Then
  148.             menuItemClear.Enabled = False
  149.         Else : menuItemClear.Enabled = True
  150.         End If
  151.  
  152.         If txtTax.Text = Nothing Then
  153.             menuItemClear.Enabled = False
  154.         Else : menuItemClear.Enabled = True
  155.         End If
  156.  
  157.         If txtTotalCost.Text = Nothing Then
  158.             menuItemClear.Enabled = False
  159.         Else : menuItemClear.Enabled = True
  160.         End If
  161.  
  162.     End Sub
  163.  
  164.     Private Sub TextClear()
  165.  
  166.         'Clears all of the text boxes used in calculating cost
  167.         txtOrderQuant.Text = Nothing
  168.         txtShipCost.Text = Nothing
  169.         txtTax.Text = Nothing
  170.         txtTotalCost.Text = Nothing
  171.  
  172.  
  173.     End Sub
  174.  
  175.     Private Sub menuItemClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemClear.Click
  176.  
  177.         'When the clear button is selected the calculation boxes are cleared
  178.         Call TextClear()
  179.  
  180.     End Sub
  181.  
  182.     Private Sub ByProductIDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ByProductIDToolStripMenuItem.Click
  183.  
  184.         'hides the product description label and combo box when this option is selected
  185.         lblProductIDCombo.Visible = True
  186.         lblPurchProdDesc.Visible = False
  187.  
  188.         cmbProductID.Visible = True
  189.         cmbProdDesc.Visible = False
  190.     End Sub
  191.  
  192.     Private Sub ByProductDescriptionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ByProductDescriptionToolStripMenuItem.Click
  193.  
  194.         'hides the Product ID combo box and label when this button is selected.
  195.         lblProductIDCombo.Visible = False
  196.         lblPurchProdDesc.Visible = True
  197.  
  198.         cmbProductID.Visible = False
  199.         cmbProdDesc.Visible = True
  200.  
  201.     End Sub
  202.  
  203.     Private Sub RecordsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecordsToolStripMenuItem.Click
  204.  
  205.         'ensure that the accept order button is disabled unless there has been a calculation made.
  206.         If txtTotalCost.Text = Nothing Then
  207.  
  208.             MenuItemAccept.Enabled = False
  209.         Else
  210.             MenuItemAccept.Enabled = True
  211.  
  212.         End If
  213.  
  214.     End Sub
  215.  
  216.     Private Sub MenuItemAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemAccept.Click
  217.  
  218.  
  219.  
  220.  
  221.     End Sub
  222. End Class
  223.  
  224.  
The Last Private Sub MenuItemAccept click is the action that would insert the data to the table, and then I also need toe datagrid view to refresh and show the changes.

Thanks
Mar 29 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.