PC Toledo

... 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 ...

... rddInfo( RDDI_EXECUTE, "UPDATE %s SET %s WHERE %s", pcTable, phSource, pchWhere )

5) Inserir dados:
rddInfo( RDDI_EXECUTE, "INSERT INTO %s VALUES ( %s ) ", pcTable, phSource )

6) Deletando:
rddInfo( RDDI_EXECUTE, "DELETE FROM CRMEx WHERE CODCLI = '" + cCod + "'", "SQLMIX" )

7) Teste de ...

... Advantage Server Type=ADS_Local_Server;" + ;
"TableType=ADS_CDX;Security Mode=ADS_IGNORERIGHTS;" + ;
"Lock Mode=Compatible;" + ;
"Use NULL values in DBF Tables with Advantage=True;" + ;
"Exclusive=No;Deleted=No;"
oConexao:CursorLocation := AD_USE_CLIENT
oConexao:CommandTimeOut := 20 ...

... CLINICAL>hbmk2 Clinical
hbmk2[Clinical]: Could not detect any supported C compiler in your PATH.
Setup one or set -comp= option to one of these values: mingw,
msvc, clang, bcc, watcom, icc, pocc, xcc, tcc, mingw64,
msvc64, msvcia64, bcc64, iccia64, pocc64

A mensagem acima é que esta aparecendo ...