PC Toledo

... STATIC PROCEDURE ProcessaMigracao(oDlg, oGauge, oLabel, nTotalReg, nLote)
LOCAL cSqlInsert := ""
LOCAL cValues := ""
LOCAL nContador := 0
LOCAL nProcessados := 0
LOCAL cErroPostgres := ""
dbSelectArea("DBF_EST")
dbGoTop()

DO WHILE !EOF()
nContador ...

... o que foi mudado por ele(Wilfried), parece que foi só testes e exemplos.


2026-07-03 09:40 UTC+0200 Wilfried Brunken DF7BE
! Ticket #92 UpDown values:
! Some trouble getting result value.
! Test program added and command docu
! updated.
! The new scripts "hwmk.bat" and
! "hwmk.sh" compile a ...

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