PC Toledo

... hb_JsonEncode(aValores)
? 'ArrayToSQL: ', ArrayToSQL( aValores, "," )
? 'Valores: ', ValType( ArrayToSQL( aValores, "," ) )
? 'Resultado: ', " VALUES (" + ArrayToSQL( aValores, "," ) + ")"

cSQL := ;
"INSERT INTO " + AllTrim( cTabela ) + ;
" (" + ArrayToSQL(aCampos, ",") + ")" + ;
" VALUES ...

... in timestamp strings
though only first three ones (milliseconds) are significant.
Recently some tools begin to generate such timestamp values and
Harbour had problems with decoding them correctly.

* src/compiler/hbmain.c
+ allow to pass file name for source code compiled by hb ...

... A diferença é que dentro de tab não cria a dialog


IF lWithDialog
INIT DIALOG oDlg ;
CLIPPER ;
NOEXIT ;
TITLE "demoget2.prg - get values" ;
AT 0, 0 ;
SIZE 600, 450 ;
FONT oFont ;
ON INIT { || Dlg_Settimer( oDlg, @oTimer, oSayT ) }

SET KEY FSHIFT, VK_F3 TO hwg_Msginfo( "Shift-F3 ...

... UPDATE controlados:
CREATE PROCEDURE inserir_cliente (
IN nome VARCHAR(100), IN empresa_id INT
)
BEGIN
INSERT INTO clientes (nome, empresa_id) VALUES (nome, empresa_id);
END;

4. Triggers para auditoria
- Se qualquer empresa modificar dados, você pode usar triggers para registrar alterações ...

... returns .T. or .F..
- MSGBOX() is used for user feedback.
- ISDATE() checks for valid date input.
- STR() and LTRIM() convert and clean numeric values for display.
Would you like me to package this into a .prg file or help you compile it in HMG




use a dbf to save data




DBF Structure ...

... que cria buttons pra clicar.


/*
test codeblock

Based on sample of Valteçom - Uberaba - MG - Brasil
*/

#include "demo.ch"

// don't initialize values here
STATIC nRowPos, nColPos

FUNCTION DemoA( lWithDialog, xDlg )

LOCAL aList := {}, nCont, nTable, xButton

hb_Default( @lWithDialog, .T ...

... programa do início do post, com pequena alteração sobre criar dialog ou não.



/*
test codeblock
*/

#include "minigui.ch"

// don't initialize values here
STATIC nRowPos, nColPos

FUNCTION DemoButton( lWithDialog, xDlg )

LOCAL aList := {}, nCont, nMesa, xButton, bCode

hb_Default( @lWithDialog ...

... é dele.
Apenas simplifiquei, dependendo do ponto de vista...

mesas.png


/*
test codeblock
*/

#include "minigui.ch"

// don't initialize values here
STATIC nRowPos, nColPos

FUNCTION Main()

LOCAL aList := {}, nCont, nMesa, cName, bCode

nColPos := -1
nRowPos := -1

FOR nCont = 1 TO 35 ...

... ug_id;", daí vai me retornar um recordSet com os campos que pedi retorno, e assim posso ter os IDs inseridos.
INSERT INTO pessoas (nome, email)
VALUES ('João da Silva', 'joao@email.com')
RETURNING id;

Exemplo de uso:
cSQL := "INSERT INTO pessoas (nome, email) " + ;
"VALUES ('João da Silva ...

... HTRACK class as substitute for Windows only HTRACKBAR
demoimage1.prg Y Icons and background bitmaps
demoimage2.prg Y Icons and bitmaps using hex values
demoini.prg P Use INI file: create and read
demolenta.prg Y Multi platform alternative for tab
demolistbox.prg S S Y Demo for listbox ...

Entendi.
Pode ser:

INSERT INTO tabela ( colunas ) VALUES valoes, ( colunas ) VALUES valores


Mas isso seria gastar mais texto/tempo.

Também pode ser:

INSERT INTO tabela VALUES ( valores )


Mas isso obriga a colocar os campos exatos da tabela, na mesma sequência definida na estrutura ...

... nada aqui no meu CPU, está o DBF e Mysql sendo acessado por IP.
A sentença:

INSERT INTO colaboradores (COLABORA,ENDERECO,BAIRRO,CIDADE,UF,CEP..) values ('ITAMAR'...etc), (mais outro reg...), (Mais outro reg.Sem precisar da palavra values...)

Estava colocando values (...), values (...)

Saudações ...

... cNewTable + " ( "
FOR nCont = 1 TO FCount()
cSQLFix += FieldName( nCont )
IF nCont != FCount()
cSQLFix += ", "
ENDIF
NEXT
cSQLFix += " ) VALUES "
cTxt := ""
DO WHILE ! Eof()
GrafTempo( RecNo(), LastRec() )
Inkey()
cSQL := "( "
FOR nCont = 1 TO FCount()
xValue := FieldGet( nCont )
DO ...

Olá!
Fiz aqui, uns testes... pegando o macete VALUES (), (), () tava colocando VALUES (), VALUES ()...
Pego de 10 em 10 registros, por vez.
Ai tem o campo id autoincrement, talvez desligue pq não usei assim no DBF.
O campo data que criei NOT NULL, aceita criar mas em compensação não grava nada kkkkk ...

... do not run out of memory by using large packets accidentally.

You can also get strange problems with large packets if you are using large BLOB values but have not given mysqld access to enough memory to handle the query. If you suspect this is the case, try adding ulimit -d 256000 to the ...