Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Mar 27th, 2012  |  syntax: ASP  |  size: 0.83 KB  |  hits: 34  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. sql = "INSERT INTO Rilevazioni (NP, T, DATA, ORA, XT, T1, T2, VTETA, XAUTO, HSET, HERR, INT, VINT, KP, KI, XL1, XL2, XL3, XL4)"
  2. sql = sql & "VALUES (" & Replace(CInt(np), ",", ".") & "," & Replace(CSng(t), ",", ".") & ", Date(), Time()"
  3. sql = sql & "," & Replace(CInt(xt), ",", ".") & "," & Replace(CSng(xt1), ",", ".") & "," & Replace(CSng(xt2), ",", ".")
  4. sql = sql & "," & Replace(CSng(vteta), ",", ".") & "," & Replace(CInt(xauto), ",", ".") & "," & Replace(CSng(hset), ",", ".")
  5. sql = sql & "," & Replace(CSng(herr), ",", ".") & "," & xint & "," & Replace(CSng(vint), ",", ".")
  6. sql = sql & "," & Replace(CSng(KP), ",", ".") & "," & Replace(CSng(KI), ",", ".") & "," & Replace(CInt(xl1), ",", ".")
  7. sql = sql & "," & Replace(CInt(xl2), ",", ".") & "," & Replace(CInt(xl3), ",", ".") & "," & Replace(CInt(xl4), ",", ".") & ");"
  8. db.Execute (sql)
create a new version of this paste RAW Paste Data