mkyx Posted April 29, 2021 Report Share Posted April 29, 2021 Bom dia pessoal abençoado, Toda vez que eu executo os camando insert, update e delete no bd do mysql, para exibir na tabela, eu tenho que executar um dbUseArea de novo, senão continua com os dados antigos, eu uso o SQLRDD. Tem como deixar essa atualização da tabela automaticamente, depois do insert, update e delete, como é no dbf? Obrigado a todos que puderem ajudar. Jose Adenildo, apelido Pompeo (Aqui no forum está como mkyx, e tentei alterar para Pompeo, mas, não consegui). Guaratinguetá, SP Fivewin, xHarbour, SQLRDD Quote Link to comment Share on other sites More sharing options...
joaosolution Posted April 29, 2021 Report Share Posted April 29, 2021 Bom dia Vc já tentou usar o commit: oSql := SR_GetConnection() cComm := "DELETE FROM IDEMPREG_DBF "+; "WHERE EMPRESA=NULL" nErr := oSql:exec( cComm,, .T.,@nReturn) oSql:Commit() Att João Bosco Quote Link to comment Share on other sites More sharing options...
mkyx Posted April 29, 2021 Author Report Share Posted April 29, 2021 fiz assim: APCODE:="UPDATE ESTOQUE SET DESCRICAO="+CHR(34)+ALLTRIM(DESC)+CHR(34)+" WHERE CODIGO="+CHR(34)+CODP+CHR(34)+";" OSQL:EXEC(APCODE ) oSql:Commit() SR_dbRefresh() oLSTB_0:upstable() oLSTB_0:REFRESH() mas, não atualiza a tabela na tela, só atualiza a tabela dentro do ,mysql. se eu sair do módulo e acessar de novo, então, está lá, as alterações, mas não é isso que eu busco. O que eu quero, é que quando executar o update, e o refresh no listbox ou xbrowse, os dados do BD, apareça na tela, automaticamente. Quote Link to comment Share on other sites More sharing options...
joaosolution Posted April 29, 2021 Report Share Posted April 29, 2021 Caro Jose Desta forma não vai funcionar pois quando vc dá um dbselectarea vc têm uma instância dos dados nesta área aberta. Neste caso vc terá que usar o dbselectarea novamente para carregar as atualizações efetuadas. E dar um refresh no listbox. Att Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted April 29, 2021 Report Share Posted April 29, 2021 Duas Sugestões: -Primeira APCODE:="UPDATE ESTOQUE SET DESCRICAO="+CHR(34)+ALLTRIM(DESC)+CHR(34)+" WHERE CODIGO="+CHR(34)+CODP+CHR(34)+";" OSQL:EXEC(APCODE ) oSql:Commit() alias->(Sr_SetFilter(''),Sr_DbRefresh()) oLSTB_0:upstable() oLSTB_0:REFRESH() -Segunda Sr_BeginTransaction() APCODE:="UPDATE ESTOQUE SET DESCRICAO="+CHR(34)+ALLTRIM(DESC)+CHR(34)+" WHERE CODIGO="+CHR(34)+CODP+CHR(34)+";" OSQL:EXEC(APCODE ) Sr_CommitTransaction() alias->(Sr_SetFielter(''),Sr_DbRefresh()) oLSTB_0:upstable() oLSTB_0:REFRESH() Veja se funciona para vc! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.