LucAlucard

Bom dia família ScriptBrasil. Seguinte, to com um probleminha e não sei se o firebird tem suporte... Tenho uma procedure que atualiza uma tabela pai e filho. Porém enquanto a procedure não termina de executar. Os clientes não conseguem fazer nem a LEITURA dessas tabelas.. No SQL Server tem um comando chamado with (nolock) que permite fazer a leitura suja.. Mas não sei como fazer isso no Firebird... Alguém tem alguma ideia de como fazer isso? Agradeço desde já, de verdade!

Bom dia pessoal tudo certo? Bom, seguinte. Estou migrando do firebird 2.1 com charset None para um firebird 2.5... não obtive sucesso mesmo usando os parâmetros de -fix. Então lí que o charset NONE pd acarretar em algumas dores de cabeça. Então criei outro banco com charset WIN1252 importei os dados e fiz uma ferramenta no Delphi para comparar os dados.. A ferramenta mostrou diferença em um registro (uma data). Mas quando vou consultar esse registro no IBExpress os 2 registros estão iguais. O problema é... tentei com o ZeosLib, e também com o interbase. E os 2 dão a mesma coisa.. Alguém sabe o porque ele mostra a informação diferente do IBExpress?

Olá a todos. Estou criando um programa usando Python 2.7 de replicação de dados entre bancos firebird. Porém, uso o Firebird 2.1, e gostaria de criar um usuário, mas os comandos "create user....." não estão funcionando. Gostaria de saber se o firebird 2.1 realmente não tem suporte a esse tipo de comando, se só da pra user o GSEC para criar usuários ou se é possível. Se não for possível alguém poderia me dar uma força de como usar os comandos do GSEC no python? De qualquer forma agradeço todo tipo de ajuda. Um forte abraço!!

Ow Jhonas brigadão! Eu dei uma procurada na ferramenta mas não consegui achar, se você souber qm tem, ou um site q tenha pra eu pdr baixar agradeceria muito. Consegui achar um manual dessa ferramenta que citei, mas ela tem algumas exigências primárias de banco de dados que o meu banco não tem... aew vou ter q procurar outra ferramenta. Mas qualquer dia quando eu estiver um tempinho eu faço um tutorial de como usar a ferramenta

Uso Firebird e ele nativamente não tem espelhamento de dados... então fui dar uma procurada e encontre alguns programas de terceiros dentre os quais o mais "vivo" era este: IBReplicator. Porém ainda sim não encontrei muitos materiais na internet e o Help n ajudou muito também... então gostaria de saber.. alguém sabe como configurar essa ferramenta? Se for de ajuda pra alguém eu fiz o download nesse site: http://www.ibphoenix.com/files/IBPReplicat...4.0.9-Win32.zip e alguns sites interessantes mas q também não conseguiram me ajudar foram esses: http://www.firebase.com.br/fb/artigo.php?id=260 http://www.firebirdfaq.org/faq249/ Agradeço desde já qualquer possível ajuda. Um forte abraço!

Bom... comecei a usar o Fast Report e nele funcionou direitinho... o q eu tava fazendo no quick de errado eu n faço a mínima ideia .-.

beleza Jhonas, vou testar aqui e já te dou um feedback brigadão!! ^^ ------------ Então Jhonas, demorei pra responder mas é porque eu estava fazendo os testes... Segui o mesmo modelo dos exemplos do QR mas mesmo assim ele mostra + valores do q deveria... por exemplo.. na select de cabeçalho eu falo pra ele selecionar somente dados da empresa 1 e quando ele vai mostrar ele mostra de todas... Não consigo entender onde eu estou errando tem alguma parte de relacionamento/parâmetro ou algo assim que tem q configurar?

Opa pessoal td bem? Bom, espero q sim ^^ Seguinte gente, eu to tentando fazer um relatório usando Quick Report 3.0.9 usando um SubDetail, mas os dados ficam sendo repetidos digo por exemplo: DETAIL ------------------------- NOME: LUCAS ROGÉRIO ------------------------- COMPRAS: HD PLACA DE VÍDEO MONITOR DETAIL ------------------------- NOME: THANIA RIBEIRO ------------------------- COMPRAS: HD PLACA DE VÍDEO MONITOR Sendo que os dados " HD, PLACA DE VÍDEO, MONITOR" são do Lucas.... Conseguíram entender? Eu n sei porque ele ta repetindo... já tentei de várias formas encontrei até alguns post aqui no fórum mesmo mas nada gera o resultado esperado... a minha select é essa: --------------- --CABEÇALHO --------------- Select empresas.empres_id, empresas.nome, empresas.fantasia, desconto_emp, current_timestamp as datafecha, current_timestamp as datavenc, current_timestamp as dataini, current_timestamp as datafin, from empresas where empresas.apagado <> 'S' order by empresas.nome ---------------- --DETALHE ---------------- select sum(contacorrente.debito-contacorrente.credito) as Valor, conveniados.conv_id, conveniados.chapa, conveniados.titular, conveniados.limite_mes, conveniados.cod_empresa, conveniados.empres_id from contacorrente join conveniados on (conveniados.conv_id = contacorrente.conv_id) join empresas on (empresas.empres_id = conveniados.empres_id) where contacorrente.data between '05/21/2011' and '05/21/2012' and conveniados.empres_id in (1,3) and coalesce(contacorrente.baixa_conveniado,"N") = "N" and contacorrente.cred_id <> 60 group by conveniados.conv_id, conveniados.chapa, conveniados.titular, conveniados.limite_mes, conveniados.cod_empresa, conveniados.empres_id order by Titular Alguém sabe onde eu to errando?

Bom dia família Script Brasil. Gostaria da ajuda de vocês pra conseguir herdar esse componente. O componente em teoria é simples... Eu herdei o IdFTP da palheta Indy. Depois de ter feito isso criei uma variavel ProgressBar e gerei os métodos de Get, Set para que ele possa pegar o ProgressBar selecionado pelo desenvolvedor. Mas não estou conseguindo encontrar a parte onde ele faz está o evento onWorkBegin; onWork; onWorkEnd do IdFTP para tentar dar um overrite e colocar mais coisas nesse evento... Alguém pode me ajudar por favor? O código até agora está assim: unit NewIdFTP; interface uses SysUtils, Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ComCtrls; type //Caso você precise procurar procure na unit "IDComponent" TNewFtpIdFTP = class(TIdFTP) private FProgressBar : TProgressBar; { Private declarations } protected procedure GetProgressBar (Sender : TObject); procedure SetProgressBar (Value : TProgressBar); { Protected declarations } public { Public declarations } published property ProgressBar: TProgressBar read FProgressBar write FProgressBar; { Published declarations } end; procedure Register; implementation uses Math, StrUtils; procedure Register; begin RegisterComponents('Meus Componentes', [TNewFtpIdFTP]); end; { TNewFtpIdFTP } procedure TNewFtpIdFTP.GetProgressBar(Sender: TObject); begin if Sender is TProgressBar then TProgressBar(Sender) := FProgressBar; end; procedure TNewFtpIdFTP.SetProgressBar(Value : TProgressBar); begin FProgressBar := Value; end; end.

entendi... é q me disseram q depende do componente. q alguns conseguem fazer. Aew n sabia se dava pra fazer com o ADO dessa forma... Bom.. td bem então né? vlw gnt brigadão pela resposta

Eu já conhecia esse link .-. Ele também não funcionou.. Tava até usando order by pela tabela (ficava abrindo e fechando td hora.. agr n faço mais isso, uso esse script xD) Mas também não funcionou pra campos virtuais com campos reias junto .-.

você ta usando campo virtual? Estou com o mesmo problema mas no meu caso ele só acntece com campos virtuais... e também to usando o Access como BD

Sim o Lookup ordena os campos realmente, porém quando colocamos esse campo em uma DBGrid ( que é p caso ) ele segue a ordem normal... e usando a proriedade SortOrder da DBGrid ele não ordena... Da erro dizendo que não encontrou o campo específico. Com inner join realmente isso funcionaria mas teria que alterar o sistema todo... não existe uma forma de ordenar somente c/ alguma rotina ou algo assim? Brigadão Jhonas abraço!

Seguinte... Tenho uma DBGrid com os campos... sempre q eu clico na coluna eu pego o field e faço um order by pra ele ordenar os campos e exibi-los na grid. Porém em algumas grids eu usei campos virtuais pra poder fazer o link de uma tabela com outra fazendo o Loockup. Mas como esse campo é virtual não consigo ordena-lo... alguém tem idéia de como fazer a ordenação "na unha"? sem precisar fazer um Inner Join ou algo assim?

Erro do componente mesmo... Fiz cm SP no banco e linquei a SP e funcionou direitinho =D. Brigadão pela ajuda ^^

Estou tento o seguinte erro : unable to allocate memory from operation system. já tentei com IBExpress e Zeus component. Mas eles continuam dando esse erro.. Estou tentando fazer uma migração de mais ou menos 100 Registros de um arquivo Texto para o banco de dados Firebird 2.1. já tenteni de N formas diferentes migração de dados mas quando chega no registro 28000 mais ou menos ele da esse erro... já tentei criar os componentes em tempo de execução e esvaziar a memória dele apos a execução do procedimento. Deixei eles criados e fiquei dando ExecSql, mas sem resultados esperados... Não estou sabendo mais o que fazer... estou tentando achar alguma forma de ler arquivo texto no firebird pra tentar fazer uma procedure mas também não estou achando material suficiente... Alguém tem alguma idéia pra eu fazer? Muito obrigado a todos que tentarem me ajduar.. A mensagem de erro completa é essa: UNABLE TO ALLOCATE MEMORY FROM OPERATIONG SYSTEM. ERROR CODE: -904. UNSUCCESFUL EXECUTION CAUSED BY AN UNAVAILABLE RESOURCE.

era erro meu. vlw Jhonas pela resposta... Mas a caca era minha .-.

Estou tentando usar o FileExists e o CopiFile no Delphi 7 mas caso eu passe o parâmetro desta forma por exemplo: procedure TfrmBackup.btnBackUpLocalClick(Sender: TObject); var CBD, ArqBkp : String; begin if DirDlg.Execute then begin ArqBkp := DirDlg.Path + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp'; CBD := 'C:\sistemas\controleServicos\bd\bd.mdb' if FileExists(CBD) then CopyFile(PAnsiChar(CBD),PAnsiChar(ArqBkp),True) else Showmessage('Arquivo não encontrado!'); end; ele não encontra o diretório... caso eu tente usar desta forma procedure TfrmBackup.btnBackUpLocalClick(Sender: TObject); var CBD, ArqBkp : String; begin if DirDlg.Execute then begin ArqBkp := DirDlg.Path + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp'; CBD := 'C:\sistemas\controleServicos\bd\bd.mdb' if FileExists('C:\sistemas\controleServicos\bd\bd.mdb') then CopyFile(PAnsiChar('C:\sistemas\controleServicos\bd\bd.mdb'),PAnsiChar(ArqBkp),True) else Showmessage('Arquivo não encontrado!'); end; Alguém sabe o porque? É meu Delphi que ta ruim ou algo assim? Tem alguma solução alternativa? Brigadão gente...

n sei o que eu fiz... mas resolveu.. acho q era o comentário que ele não deve aceitar direito

Gente, tentei de várias formas e não ta funcionando. Como faço para que o SQL da query capture o parâmetro? Sempre que eu mando o parâmetro ele no Hint, fala que carregou com o valor mas quando vou dar open ele mostra que não pegou. Alguém sabe se isso é alguma configuração ou mal uso da função e se for como resolver? Obrigado. O trecho do meu código é esse: Mov_Prod.Params[0].AsInteger := Query1AUTORIZACAO_ID.AsInteger; // Mov_Prod.ParamByName('AUTORIZACAO_ID').AsInteger := Query1AUTORIZACAO_ID.AsInteger; Mov_Prod.Active := True;

Alguém já viu esse erro?: Erro: UNEXPECTED END OF EXPRESSION Se viram sabem como resolver? vlw

tem e-mail? aew eu passo um zip com o fonte...

Olá a todos do ScriptBrasil... to com o seguinte problema... tenho um type: type TPedidoTicket = packed record tamanhoMensagem : Smallint; nomeTransacao : array[1..3] of Char; nomeTerminal : array[1..8] of Char; tempo : array[1..4] of Byte; numeroFuncao : array[1..1] of Byte; numeroSeqTransacao : Smallint; end; Porém eu estou usando um IDTcpClient (Indy) com o Delphi 2010... estou fazendo a migração de Delphi 7 para 2010... Porém tem uma parte do código que ele da o seguinte erro: "[DCC Error] UfrmPpTestePdv.pas(197): E2250 There is no overloaded version of 'Write' that can be called with these arguments" e o código do erro é o seguinte: var pedidoTicket : TPedidoTicket ... tcpClient1.IOHandler.Write(pedidoTicket, SizeOf(pedidoTicket), False); As informações que ele pede como entrada no Delphi2010 são: Cons ABuffler: TBytes; [cons ALength: integer = -1];[cons AOffset : Integer = 0] AStream: TStream; [ASize: Int64=0];[AWriteByteCount : Boolean = False] AValue : TString; [AWriteLinesCount : Boolean = False];[AEncoding : TEncoding = nil] Fiz um teste jogando uma variável TBytes qualquer e ele passou na compilação... Só que eu não sei... não sei MESMO.. mesmo procurando em vários sites como fazer isso? Por favor... se alguém puder me ajudar... eu realmente agradeceria muito.. eu realmente to precisando saber como fazer isso... Grato pela ajuda de todos

Gente, eu sei que talvez pareça preguiça mas realmente não encontrei nada. Gostaria de saber se é possível dar um ShellExecute de um arquivo binário ou na memória para que não precise ficar salvando no disco todo o tempo. Mesmo que não seja com essa função, seja com outra se alguém conseguir me ajudar por favor... Agradeço a ajuda de todos

Gente, achei uma forma de salvar os arquivos binários no banco. Porém eu tento abri-los e ele da erro falando "Bitmap image is not valid.". Porém eu salvei um arquivo binário e não imagem. Alguém sabe como eu consigo salvar o arquivo que eu acabei de salvar no banco (SQL SERVER 2008) no meu C: ou algo assim? O código que eu peguei de exemplo foi desse link: http://www.activedelphi.com.br/forum/viewt...1d5f1398c832343