|
SUBDIVIDINDO UMA CARGA SQL EM DIFERENTES PEDAÇOS |
Iniciado por Boller, nov., 11 2020 3:20 PM - Sem resposta |
| |
| | | |
|
| |
Membro registado 3.655 mensagems Popularité : +175 (223 votes) |
|
Publicado em novembro, 11 2020 - 3:20 PM |
v_sql_insert01, v_sql_insert02, v_sql_insert03, v_sql_insert04, v_sql_insert05, v_sql_insert06, v_sql_insert07, v_sql_insert08, v_sql_insert09, v_sql_insert10 is array of string s_sql_insert is string = fLoadText(EDT_File_SQL) s_sql_insert = UTF8ToAnsi(s_sql_insert,charsetAnsi) s_sql_insert = Replace(s_sql_insert,CR,"") s_sql_insert = Replace(s_sql_insert,Charact(10),"") s_sql_insert = Replace(s_sql_insert,Charact(13),"") s_sql_insert = NoAccent(s_sql_insert) x is int LOOP(1000) x++ IF x <= 100 Add(v_sql_insert01, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 101 AND x <= 200 Add(v_sql_insert02, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 201 AND x <= 300 Add(v_sql_insert03, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 301 AND x <= 400 Add(v_sql_insert04, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 401 AND x <= 500 Add(v_sql_insert05, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 501 AND x <= 600 Add(v_sql_insert06, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 601 AND x <= 700 Add(v_sql_insert07, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 701 AND x <= 800 Add(v_sql_insert08, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 801 AND x <= 900 Add(v_sql_insert09, ExtractString(s_sql_insert,x,";",FromBeginning)) ELSE IF x >= 901 AND x <= 1000 Add(v_sql_insert10, ExtractString(s_sql_insert,x,";",FromBeginning)) END END Add(v_sql_insert10,"COMMIT;") s_sql_insert01 is string = ArrayToString(v_sql_insert01,";"+CR) s_sql_insert02 is string = ArrayToString(v_sql_insert02,";"+CR) s_sql_insert03 is string = ArrayToString(v_sql_insert03,";"+CR) s_sql_insert04 is string = ArrayToString(v_sql_insert04,";"+CR) s_sql_insert05 is string = ArrayToString(v_sql_insert05,";"+CR) s_sql_insert06 is string = ArrayToString(v_sql_insert06,";"+CR) s_sql_insert07 is string = ArrayToString(v_sql_insert07,";"+CR) s_sql_insert08 is string = ArrayToString(v_sql_insert08,";"+CR) s_sql_insert09 is string = ArrayToString(v_sql_insert09,";"+CR) s_sql_insert10 is string = ArrayToString(v_sql_insert10,";"+CR)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|