PC Toledo

... um banco SQL usando Harbour e SQLMIX, conecta, tudo ok, porém, não consigo gravar em uma tabela, tento usar via SQL ( insert into nome_tabela values (xx, xxx, xxx) ) e via tabela->(dbappend), nenhuma das formas funciona, alguém tem alguma sugestão ?
Obrigado


Dúvida, porque está testando com o ...

... um banco SQL usando Harbour e SQLMIX, conecta, tudo ok, porém, não consigo gravar em uma tabela, tento usar via SQL ( insert into nome_tabela values (xx, xxx, xxx) ) e via tabela->(dbappend), nenhuma das formas funciona, alguém tem alguma sugestão ?
Obrigado


Dúvida, porque está testando com o ...

... um banco SQL usando Harbour e SQLMIX, conecta, tudo ok, porém, não consigo gravar em uma tabela, tento usar via SQL ( insert into nome_tabela values (xx, xxx, xxx) ) e via tabela->(dbappend), nenhuma das formas funciona, alguém tem alguma sugestão ?
Obrigado


Dúvida, porque está testando com o ...

... por lá aparecerem no TBrowse.

Uso esse código para gravar os dados :
produto->(dbCloseArea())

cSQL := "INSERT INTO produto (descricao,modelo) values ('teste1','teste2')"

If rddInfo( RDDI_EXECUTE, cSQL )

dbusearea( .T., , "SELECT * FROM produto", "produto" )

alert('gravou')
Else
alert ...

Olá!
Depois de incluir no SGBD precisa fechar e puxar de novo.

If lAdd

If lSQL

cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts ...

... rddInfo( RDDI_EXECUTE, "CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11))" )
? rddInfo( RDDI_EXECUTE, "INSERT INTO country values ('LTU', 'Lithuania', 3369600), ('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS ...

... hwg_edit_SetPos( oName:Handle, 1 ) //Set 1 position edit of get
return .t.
EndIf

If lAdd

If lSQL

cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc ...

... 12,28 prompt ' Gravar '
@ 12,38 prompt ' Não Gravar '
menu to op

do case
case op == 1
cSql := "INSERT INTO produto (descricao, modelo) VALUES ('DESC_TESTE','MODELO_TESTE')"
if RDDInfo( RDDI_EXECUTE, cSql, , oCon ) <> NIL
alert('Gravou')
else
alert('Não gravou')
endif
exit
case op ...

Montei um exemplo para acessar um banco SQL usando Harbour e SQLMIX, conecta, tudo ok, porém, não consigo gravar em uma tabela, tento usar via SQL ( insert into nome_tabela values (xx, xxx, xxx) ) e via tabela->(dbappend), nenhuma das formas funciona, alguém tem alguma sugestão ?
Obrigado

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