PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → SUBDIVIDINDO UMA CARGA SQL EM DIFERENTES PEDAÇOS
SUBDIVIDINDO UMA CARGA SQL EM DIFERENTES PEDAÇOS
Iniciado por Boller, nov., 11 2020 3:20 PM - Sem resposta
Membro registado
3.180 mensagems
Popularité : +89 (91 votes)
Publicado em novembro, 11 2020 - 3:20 PM
//SUBDIVIDINDO UMA CARGA SQL EM DIFERENTES PEDAÇOS
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/