Pablo.Softgraf Posted March 19, 2015 Report Share Posted March 19, 2015 Senhores, boa tarde ! Alguém já teve experiencia da classe TDatabase com SQLRDD, especificamente SQL SERVER, preciso gravar , e ele retorna que a classe não suporta o metodo. Application =========== Path and name: C:\SELLER_APONT_TEST\Softsystem1012.EXE (32 bits) Size: 5,057,536 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150306) FiveWin Version: FWHX 15.02 Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 0 mins 21 secs Error occurred at: 19/03/2015, 14:01:05 Error description: Error SQLRDD/0 Operation not supported Stack Calls =========== Called from: => DBRECORDINFO( 0 ) Called from: .\source\classes\DATABASE.PRG => TDATABASE:ISRECLOCKED( 521 ) Called from: .\source\classes\DATABASE.PRG => TDATABASE:SAVE( 962 ) Called from: C:\Softgraf\Projetos\SIS\DESENVOLVIMENTO\PRG1012_SQL\TNfs.PRG => TNFS:GRAVANFS( 2183 ) Called from: C:\Softgraf\Projetos\SIS\DESENVOLVIMENTO\PRG1012_SQL\TNfs.PRG => (b)TNFS:CP_NFSC( 1324 ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2015 Report Share Posted March 19, 2015 Mostre: TNFS:GRAVANFS( 2183 ) Tem alguma coisa aqui que ele não TE SUPORTA!! kkkkkkkkkkkkkkk http://fivewin.com.br/index.php?/topic/20928-dbusearea-sqlrdd/ abs. Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted March 19, 2015 Author Report Share Posted March 19, 2015 Será Kapi, nem ele me suporta ? kkkkkkk Esta é a linha que está ocorrendo a exceção ::oDbfNFS:Save() ::oDbfNFS:Commit() kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2015 Report Share Posted March 19, 2015 Será Kapi, nem ele me suporta ? kkkkkkk Esta é a linha que está ocorrendo a exceção ::oDbfNFS:Save() ::oDbfNFS:Commit() Se ele tá dizendo, é porque é né? kkkkkkkkkkk Você está usando .DBF com SQLRDD? Se sim, tente com o REPLACE para ver. A classe DATABASE.PRG é nativa do FiveWin, pode ser que o pessoal do xHarbour, não previram o comando. Vai saber... Xeiro no kangotyyy, kkkkkkkkkkkkk, abs. Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted March 19, 2015 Author Report Share Posted March 19, 2015 Estou usando SQL SERVER com o SQLRDD, não creio que seja o replace , necessito gravar este registro que está em buffer do TDatabase. e o evento Save não funciona. por que , eu não sei ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2015 Report Share Posted March 19, 2015 Veja se te ajuda os newrônios... http://objectmix.com/xharbour/192234-replace-command-sqlrdd-table-mysql-has-no-effect.html http://www.pctoledo.com.br/forum/viewtopic.php?f=42&t=13486 abs. Quote Link to comment Share on other sites More sharing options...
joaosolution Posted March 20, 2015 Report Share Posted March 20, 2015 Pablo Bom dia O erro ocorre no reclock, retire o travamento do registro na classe tdatabase. Para SQL não é necessário este controle de travamento pois o próprio bd gerencia estes casos. Att João Bosco Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted March 23, 2015 Author Report Share Posted March 23, 2015 Joao, boa noite ! Obrigado, Acabei debugando a classe e já tinha feito isso ! Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted March 23, 2015 Author Report Share Posted March 23, 2015 João , bom dia ! Consegui jogar uma consulta do SQLRDD para um TDATABASE, até ai , tudo bem . o TDatabase é um espelhamento em memoria de tabelas. mesmo que seja uma consulta, e ela estando em memoria por um TDatabase, será que eu consigo deletar um registro do DATABASE criado ? pra manipular os dados como se fosse um ARRAY ? Quote Link to comment Share on other sites More sharing options...
miragerr Posted March 23, 2015 Report Share Posted March 23, 2015 Ola amigos Pablo eu tenho um TDATABASE que fiz especifico para a SQLRDD, se precisar me chame pelo Skype que te mando ela. Fico no aguardo. Quote Link to comment Share on other sites More sharing options...
joaosolution Posted March 23, 2015 Report Share Posted March 23, 2015 Pablo Não entendi muito bem, mas se você fizer a exclusão no banco de dados, quando você ler no TDATABASE o registro não irá aparecer. A TDATABASE eu utilizo para um registro, então eu conseguirei excluir este registro. Att João Bosco Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted November 8, 2017 Author Report Share Posted November 8, 2017 Senhores, boa tarde ! João , estou tentando gravar com SQLRDD usando TDATABASE , não vai de jeito nenhum , segue trecho do código . arquivo com o erro está em anexo. if ::lNewRec //param->(rec_lock(.T.)) nNumpg := param->numpg param->numpg ++ //param->(dbunlock()) ::oDbfOF:NUMPG := nNumpg dDtpg := param->dataproc ::oDbfOF:Append() grava := .T. endif if grava if pg->statuspg # 'E' ::oDbfOF:STATUS1 := ' ' endif //pg->statuspg := 'E' ::oDbfOF:SIGLAEMIT := cSiglaImp ::oDbfOF:HORAEMISS := nHoraEmiss ::oDbfOF:STATUSPG := 'E' ::oDbfOF:CUSTPG := ::cp_of16( ::oDbfOF:PRODUTO, ::oDbfOF:QTDPRO ) // CALCULA O CUSTO ::oDbfOF:CODVEND:= cli->codvend ::oDbfOF:REPASSE:= iif( ::cRepasse="SIM" , 'S', 'N' ) ::oDbfOF:OFTESTE:= iif( ::cOFteste="SIM" , 'S', 'N' ) ::oDbfOF:SIGLAEMIT ::oDbfOF:Commit() ::oDbfOF:Save() endif error.log Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 8, 2017 Report Share Posted November 8, 2017 Eu acho que está faltando um GoTo( nRecno ) ou um Seek para posicionar no local correto do BD. Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted November 8, 2017 Author Report Share Posted November 8, 2017 Meu amigo , problema resolvido , muito obrigado ! kapiaba 1 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.