Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim cmd As New OleDbCommand("insert into TbGenLocation2 (IDLocation, NumStation, NumGenLocation2, DateGenLocation2, TermGenLocation2, WriteCounterGenLocation2, TimeStartGenLocation2, TimeEndGenLocation2, HeatWaterGenLocation2, HeatOilGenLocation2, PushOilGenLocation2, PushDezelGenLocation2, A, KVA, NoteGenLocation2, EstlamDezelGenLocation2, QmeaGenLocation2, DriverGenLocation2, TimeStart, NumTalabSarfGenLocation2, UserID) " & _
- "values(@IDLocation,@NumStation,@NumGenLocation2,@DateGenLocation2,@TermGenLocation2,@WriteCounterGenLocation2,@TimeStartGenLocation2,@TimeEndGenLocation2,@HeatWaterGenLocation2,@HeatOilGenLocation2,@PushOilGenLocation2,@PushDezelGenLocation2,@A,@KVA,@NoteGenLocation2,@EstlamDezelGenLocation2,@QmeaGenLocation2,@DriverGenLocation2,@TimeStart,@NumTalabSarfGenLocation2,@UserID)", con)
- cmd.CommandType = CommandType.Text
- cmd.Parameters.AddWithValue("@IDLocation", Form1.cmboboxSelectLocation.SelectedValue.ToString())
- cmd.Parameters.AddWithValue("@NumStation", txtNumStation.Text.ToString())
- cmd.Parameters.AddWithValue("@NumGenLocation2", FGenLocation2.cmboboxNameGenLocation2.SelectedText.ToString())
- cmd.Parameters.AddWithValue("@DateGenLocation2", DTPGenLocation2.Value.ToString("yyyy/MM/dd"))
- cmd.Parameters.AddWithValue("@TermGenLocation2", FGenLocation2.cmboChooseTermGenLocation2.SelectedText.ToString())
- cmd.Parameters.AddWithValue("@WriteCounterGenLocation2", FGenLocation2.txtreadcounterGenLocation2.Text)
- cmd.Parameters.AddWithValue("@TimeStartGenLocation2", FGenLocation2.dtpTimeStartGenLocation2.Value.ToString("hh:mm"))
- cmd.Parameters.AddWithValue("@TimeEndGenLocation2", FGenLocation2.dtpTimeEndGenLocation2.Value.ToString("hh:mm"))
- cmd.Parameters.AddWithValue("@HeatWaterGenLocation2", FGenLocation2.txtHeatwaterGenLocation2.Text)
- cmd.Parameters.AddWithValue("@HeatOilGenLocation2", FGenLocation2.txtHeatoliGenLocation2.Text)
- cmd.Parameters.AddWithValue("@PushOilGenLocation2", FGenLocation2.txtPusholiGenLocation2.Text)
- cmd.Parameters.AddWithValue("@PushDezelGenLocation2", FGenLocation2.txtPushdezelGenLocation2.Text)
- cmd.Parameters.AddWithValue("@A", FGenLocation2.txtAmberGenLocation2.Text)
- cmd.Parameters.AddWithValue("@KVA", FGenLocation2.txtkilovoltGenLocation2.Text)
- cmd.Parameters.AddWithValue("@NoteGenLocation2", FGenLocation2.txtNoteGenLocation2.Text)
- cmd.Parameters.AddWithValue("@EstlamDezelGenLocation2", FGenLocation2.txtestlamDezelGenLocation2.Text)
- cmd.Parameters.AddWithValue("@QmeaGenLocation2", FGenLocation2.txtkmeaGenLocation2.Text)
- cmd.Parameters.AddWithValue("@DriverGenLocation2", FGenLocation2.txtdriverGenLocation2.Text)
- cmd.Parameters.AddWithValue("@TimeStart", FGenLocation2.txtTimeStart.Text)
- cmd.Parameters.AddWithValue("@NumTalabSarfGenLocation2", FGenLocation2.txtNumTalabSarfGenLocation2.Text)
- cmd.Parameters.AddWithValue("@UserID", login.txtusrname.Text)
- If con.State <> ConnectionState.Open Then con.Open()
- cmd.ExecuteNonQuery()
- con.Close()
Add Comment
Please, Sign In to add comment