Guest User

Untitled

a guest
Feb 16th, 2019
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.09 KB | None | 0 0
  1. 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) " & _
  2. "values(@IDLocation,@NumStation,@NumGenLocation2,@DateGenLocation2,@TermGenLocation2,@WriteCounterGenLocation2,@TimeStartGenLocation2,@TimeEndGenLocation2,@HeatWaterGenLocation2,@HeatOilGenLocation2,@PushOilGenLocation2,@PushDezelGenLocation2,@A,@KVA,@NoteGenLocation2,@EstlamDezelGenLocation2,@QmeaGenLocation2,@DriverGenLocation2,@TimeStart,@NumTalabSarfGenLocation2,@UserID)", con)
  3. cmd.CommandType = CommandType.Text
  4. cmd.Parameters.AddWithValue("@IDLocation", Form1.cmboboxSelectLocation.SelectedValue.ToString())
  5. cmd.Parameters.AddWithValue("@NumStation", txtNumStation.Text.ToString())
  6. cmd.Parameters.AddWithValue("@NumGenLocation2", FGenLocation2.cmboboxNameGenLocation2.SelectedText.ToString())
  7. cmd.Parameters.AddWithValue("@DateGenLocation2", DTPGenLocation2.Value.ToString("yyyy/MM/dd"))
  8. cmd.Parameters.AddWithValue("@TermGenLocation2", FGenLocation2.cmboChooseTermGenLocation2.SelectedText.ToString())
  9. cmd.Parameters.AddWithValue("@WriteCounterGenLocation2", FGenLocation2.txtreadcounterGenLocation2.Text)
  10. cmd.Parameters.AddWithValue("@TimeStartGenLocation2", FGenLocation2.dtpTimeStartGenLocation2.Value.ToString("hh:mm"))
  11. cmd.Parameters.AddWithValue("@TimeEndGenLocation2", FGenLocation2.dtpTimeEndGenLocation2.Value.ToString("hh:mm"))
  12. cmd.Parameters.AddWithValue("@HeatWaterGenLocation2", FGenLocation2.txtHeatwaterGenLocation2.Text)
  13. cmd.Parameters.AddWithValue("@HeatOilGenLocation2", FGenLocation2.txtHeatoliGenLocation2.Text)
  14. cmd.Parameters.AddWithValue("@PushOilGenLocation2", FGenLocation2.txtPusholiGenLocation2.Text)
  15. cmd.Parameters.AddWithValue("@PushDezelGenLocation2", FGenLocation2.txtPushdezelGenLocation2.Text)
  16. cmd.Parameters.AddWithValue("@A", FGenLocation2.txtAmberGenLocation2.Text)
  17. cmd.Parameters.AddWithValue("@KVA", FGenLocation2.txtkilovoltGenLocation2.Text)
  18. cmd.Parameters.AddWithValue("@NoteGenLocation2", FGenLocation2.txtNoteGenLocation2.Text)
  19. cmd.Parameters.AddWithValue("@EstlamDezelGenLocation2", FGenLocation2.txtestlamDezelGenLocation2.Text)
  20. cmd.Parameters.AddWithValue("@QmeaGenLocation2", FGenLocation2.txtkmeaGenLocation2.Text)
  21. cmd.Parameters.AddWithValue("@DriverGenLocation2", FGenLocation2.txtdriverGenLocation2.Text)
  22. cmd.Parameters.AddWithValue("@TimeStart", FGenLocation2.txtTimeStart.Text)
  23. cmd.Parameters.AddWithValue("@NumTalabSarfGenLocation2", FGenLocation2.txtNumTalabSarfGenLocation2.Text)
  24. cmd.Parameters.AddWithValue("@UserID", login.txtusrname.Text)
  25. If con.State <> ConnectionState.Open Then con.Open()
  26. cmd.ExecuteNonQuery()
  27. con.Close()
Add Comment
Please, Sign In to add comment