My coding is below :-
Imports System.Data.OleDb
Imports System.Data
Public Class ActionDetailForm
Inherits System.Windows.Forms.Form
Public total As Double
Dim Record_Add As Integer
Dim Record_Update As Integer
Dim ra As Integer
Dim odr As OleDbDataReader
Dim myconnection As New OleDbConnection
Dim ocmd As OleDbCommand
'try
Public str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\IISB\My Documents\BENGKEL\UniverseMovieMart\UniverseMovieMart\Movie.mdbb"
Dim con As New OleDbConnection(str)
Dim dt, dt2 As New DataTable
Dim adp, adp2 As OleDbDataAdapter
Dim myconnectionstring As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\IISB\My Documents\BENGKEL\UniverseMovieMart\UniverseMovieMart\Movie.mdb")
Dim price1 As Double = 0
Dim price2 As Double = 0
Dim price3 As Double = 0
Dim price4 As Double = 0
Dim price5 As Double = 0
Dim price6 As Double = 0
Dim price7 As Double = 0
Dim price8 As Double = 0
Dim price9 As Double = 0
Dim price10 As Double = 0
Dim price11 As Double = 0
Dim price12 As Double = 0
Dim price13 As Double = 0
Dim price14 As Double = 0
Dim price15 As Double = 0
Dim price16 As Double = 0
price1 = TextBox.Text * 29.9
total = price1 + price2 + price3 + price4 + price5 + price6 + price7 + price8 + price9 + price10 + price11 + price12 + price13 + price14 + price15 + price16
PayForm.harga = total + DramaDetailForm.total + KidsDetailForm.total
TextBox5.Text = PayForm.harga.ToString(".00")
Me.RichTextBox1.Text = RichTextBox1.Text + " Evolusi KL Drift 2 " + " DVD " + " RM29.90 " + " " & vbCrLf
!--removed tag-->
No one has replied yet! Why not be the first?
Sign in or Join us (it's free).