Advertisement
Archius11

Untitled

Apr 29th, 2020
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.21 KB | None | 0 0
  1. cn = Новый ComОбъект("ADODB.Connection");
  2.  
  3. StrConnection = "Provider=OraOLEDB.Oracle.1;Password=oracle;User ID=wms;Data Source=//192.168.47.11:1521/wmsdb;Persist Security Info=True;";
  4.  
  5. cn.Open(StrConnection);
  6.  
  7. rs = Новый COMОбъект("ADODB.Recordset");
  8.  
  9. Запрос = "SELECT *
  10. | FROM (Select *
  11. |from CCA_HIST_EXT
  12. |ORDER BY CCA_HIST_EXT.OP_TIME DESC
  13. |)
  14. |WHERE ROWNUM < 1000 AND
  15. //OP_TYPE_NAME = 'mls_change_load_status'";
  16. |NUM_INC = '163277943067971531198618184787465251726'";
  17. //|LOT = '0111T09'";//OP_TIME >= TO_DATE( '20200428', 'YYYYMMDDSSSSS')"; 141305499382841214631709319388576510008
  18.  
  19.  
  20. rs.Open(Запрос, cn);
  21.  
  22. ТЗ = Новый ТаблицаЗначений;
  23. Для Каждого Колон Из rs.fields Цикл
  24. ТЗ.Колонки.Добавить(Колон.Name);
  25. КонецЦикла;
  26.  
  27.  
  28. Пока rs.EOF()=0 Цикл
  29. НоваяСтрока = ТЗ.Добавить();
  30. Для Каждого Колон Из rs.fields Цикл
  31. НоваяСтрока[Колон.Name] = rs.Fields(Колон.Name).Value;
  32. КонецЦикла;
  33. rs.MoveNext();
  34. КонецЦикла;
  35.  
  36. rs.Close();
  37. cn.Close();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement