tem que user sub-select e NOT IN
2008/6/10 Marcos Abreu Ferreira <[EMAIL PROTECTED]>:
> Pessoal,
>
> estou precisando fazer um INNER JOIN, mas não estou conseguindo achar
> o erro. Estou usando o mySQL 5.0. O problema que tenho é o seguinte.
>
> Tenho uma tabela com uma relacao de documentos co
Pessoal,
estou precisando fazer um INNER JOIN, mas não estou conseguindo achar
o erro. Estou usando o mySQL 5.0. O problema que tenho é o seguinte.
Tenho uma tabela com uma relacao de documentos com os campos codigo e
descricao e uma tabela fundos com os campos fundo e documento.
Preciso de um
Poste seu código para poderem ver.
- Original Message -
From: Daniel F. C.
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 09, 2008 11:29 PM
Subject: Re: [delphi-br] Criar um Form
eu tenho um sistema de contabilidade e agora estou tentando criar um for de
Usuario, n
eu tenho um sistema de contabilidade e agora estou tentando criar um for de
Usuario, na minha concepcao fiz tudo certinho, mas quando clico no menu
CADASTRO/Usuario ele da esse erro:
Project Contabil.exe raised exception class EIBInterBaseError with message
'Dynamic SQL Error
SQL Error code =
sta mensagem que não continham texto foram removidas]
______ NOD32 3169 (20080609) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Infelizmente, vc terá que fazer isso na mãocrie um novo grid derivado do
InfoPower e faça as modificações que vc precisa, esse recurso não vem de por
padrão, o único que eu conheço que já vem de padrão é o da Dev, e alguns grid's
Open-Source por ai.
Vinicius dos Santos
Blog: http://tuplas.b
Olá Luiz,
eu fiz o mesmo teste aqui, criei uma aplicação da mesma forma, tenho meu PC
onde está instalado o MySQL e outro de teste.
coloquei o software para rodar na outra máquina e obtive 1.200 conexões,
quanto o meu computador estava extremamente lento quase congelando o erro
aconteceu. nessa
Alguém sabe se há no DBGrid do Infopower o recurso de colocar a coluna em
order by ou order by desc (crescente/decrescente) cf clica-se no título
da coluna ? E se há, como fazê-lo ?
Desde já agradeço a atenção dispensada
Dival Zambon Junior
[As partes desta mensag
Pq vc já não deixa os componentes criados no FORM, assim cada vez q vc passar o
sSQL, vc fecha a query/conexão, atribui o valor, abre á conexão/query, e
retorna o resultado.
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SE
Como falei, Fellipe, vc tem que estudar mais o mecanismo de acesso a dados,
para entender o porque dessas coisas.
Perdão pela franqueza, mas fica difícil dar aula de Delphi em um grupo de
discussão.
Você realmente tem que aprender certas coisas estudando, testando e tentando.
Todas as sua
Uma coisa é liberar uma instância de um objeto de consulta. Outra coisa é
finalizar uma transação.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 9 Jun 2008 16:28:50 -0300
Subject: Re: [delphi-br] Ajuda numa função que retorna DataSet.
ok funcionou, a dica do joao resolveu o problema
mas o comando:
dmGeral.qryBaixa.OnCalcFields := pintar;
nao esta chamando essa procedure:
procedure TfrmMonitorar.Pintar(Dataset: TDataset);
begin
DBGrid1.Color := clblue;
end;
nao esta pintando de azul o grid.
2008/6/9 felipe govoni <[EMAI
Beleza galera, valeu.. minha duvida era se eu dar o Free no RetDados, ele
iria dar no cQ de dentro da função.. :D...
O problema agora, é a transacao... quando eu der o Free na funcao RetDados,
tudo nela é liberado, inclusive a transacao?
[]s
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> Fellipe
Faço isso a um bom tempo, o seu problema é que você está dando FREE sempre,
isso faz com que retorne NIL afinal você liberou, bem faz o seguinte então:
Caso 1: Você provavelmente deva ter um DATAMODULE que fica com a conexão do
banco, coloque neste Datamodule um componente TIBCQuery, e faça sua
Assim não funga? Tirando o Free que libera o ponteiro.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free( )
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Envia
Fellipe Henrique wrote:
> Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
> estilo:
>
> with RetDados('select * from cliente') do
> begin
> ShowMessage(FieldByName('RAZAO').AsString);
> end;
with RetDados('select * from cliente') do
try
ShowMessage(FieldByName('RAZAO
e como faço para implementa-lo?
2008/6/9 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>:
> Isso se deve ao fato que você não ter esse método implementado, você só
> possui a declaração.
>
>
> De: delphi-br@yahoogrupos.com.br [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> felipe govoni
Você pode fazer isso mas de qualquer forma vc vai ter que liberar essa memória.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free; ß AKI
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviad
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mos
Isso se deve ao fato que você não ter esse método implementado, você só possui
a declaração.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de felipe
govoni
Enviada em: segunda-feira, 9 de junho de 2008 15:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] cria
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem entender o
que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
Boa tarde pessoal
ALguém poderia me informar se é possivel acessar uma base FB pelo
servidor e "embedded" ? é os eguinte
Tenho um programa que gostaria q fizesse o seguinte acessar um
servidor FB (rodando namesma maquina) e uam base "embedded" na pasta
local, veja bem .. são arquivos
mas da o seguinte erro:
unsafistied foward or external declaration: 'TfrmMonitorar.pintar'
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> felipe govoni wrote:
> > tenho um form chamado frmmonitorar
> > nele eu tenho um dbgrid q eu preciso q determinadas linhas
> > troquem de cor.
> >
> > coloque
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
f
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta que
está sendo o retorno da sua função. Se vc libera a consulta, logo vai estar
liberando o retorno! Esse é o erro! A consulta não deve ser liberada! Atente
para isso!
Sds.
To: delphi-b
À um tempim atraz tive o problema de numero de conexões entre nossos amigos
delphi+mydac+mysql e o problema foi resolvido mudando uns valores no
registro. agora o problema é outro:
recebo a seguinte mensagem:
não pode criar nova 'thread' (erro no. 12). Se você não estiver sem memória
dispon
eu tenho um sistema de contabilidade e agora estou tentando criar um for de
Usuario, na minha concepcao fiz tudo certinho, mas quando clico no menu
CADASTRO/Usuario ele da esse erro:
Project Contabil.exe raised exception class EIBInterBaseError with message
'Dynamic SQL Error
SQL Error code = -
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
felipe govoni wrote:
> tenho um form chamado frmmonitorar
> nele eu tenho um dbgrid q eu preciso q determinadas linhas
> troquem de cor.
>
> coloquei o seguinte codigo no onclick do botao:
>
> dmGeral.qryBaixa.Close;
> dmGeral.qryBaixa.Parameters.ParamByName('re_tecnico').Value := re;
> dm
Cara, o método pintar deve estar dentro de uma classe.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de felipe
govoni
Enviada em: segunda-feira, 9 de junho de 2008 14:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] criar evento dinamicamente
ja ten
ja tentei de varias maneiras continua dando erro
acho q voce nao entendeu o meu erro vou tentar explicar
mais detalhadamente:
tenho um form chamado frmmonitorar
nele eu tenho um dbgrid q eu preciso q determinadas linhas
troquem de cor.
coloquei o seguinte codigo no onclick do botao:
dmGeral.qr
felipe govoni wrote:
> desculpe mas nao estou entendendo
>
> coloquei:
>
> procedure Tdmgeral.Pintar(Dataset: TDataset);
> begin
>
> end;
>
> mas da erro pois o pintar nao foi declarado, mas
> o evento esta no frmMonitorar, acredito que nao precise isso.
Você associa o ponteiro de evento (OnCa
desculpe mas nao estou entendendo
coloquei:
procedure Tdmgeral.Pintar(Dataset: TDataset);
begin
end;
mas da erro pois o pintar nao foi declarado, mas
o evento esta no frmMonitorar, acredito que nao precise isso.
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> felipe govoni wrote:
> > bah to
Não é o peixe, mas pega a vara aí.
Vc pode transformar uma cor em grayscale da seguinte forma:
function CorToCinza(Cor: TColor): TColor;
var
R,G,B : Byte;
C: Longint;
begin
C := ColorToRGB(Value);
R := C;
G := C shr 8;
B := C shr 16;
c := Trunc(R * 0.56 + G * 0.33 + B * 0.11);
Res
felipe govoni wrote:
> bah to meio perdido fiz o que vc falou joao
> mas agora da o seguinte erro inconpatible type: 'method pointer and regular
> procedure'
Então, você tem que declarar Pintar como um _método_, ou seja, dentro de
uma classe (TForm, TDataModule, por aí):
procedure TSeuDataModule
bah to meio perdido fiz o que vc falou joao
mas agora da o seguinte erro inconpatible type: 'method pointer and regular
procedure'
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> felipe govoni wrote:
> > blz mas agora da o seguinte erro:
> > unsatisfied foward or external declaration Tfrmmonitora
Bom dia senhores!
Qual seria a propriedade para bloquear a ação mover da janela ou form ?
Estou fazendo uma procura no Google mas não estou encontrando.
Grato.
Fabrício Veiga
felipe govoni wrote:
> blz mas agora da o seguinte erro:
> unsatisfied foward or external declaration Tfrmmonitorar.pintar
É para alterar o cabeçalho do seu método Pintar, não é para declarar
outro cabeçalho sem implementação.
- declare Pintar dentro de uma classe (ou seja, um método, e não uma
nao sei como!!!
tentei colocar procedure Pintar(qrybaixa: TDataset);
mas nao adiantou
2008/6/9 Nicolas <[EMAIL PROTECTED]>:
> Vc tem q consertar a declaração da função também !!
>
>
> - Original Message -
> From: felipe govoni
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, June
Vc tem q consertar a declaração da função também !!
- Original Message -
From: felipe govoni
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 09, 2008 9:31 AM
Subject: Re: [delphi-br] criar evento dinamicamente
blz mas agora da o seguinte erro:
unsatisfied foward or
blz mas agora da o seguinte erro:
unsatisfied foward or external declaration Tfrmmonitorar.pintar
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> felipe govoni wrote:
> > procedure pintar(Sender: TObject);
> > begin
> > //codigo pra pintar
> > end;
> >
> > e no evento on click
> >
> > dmGeral.qryB
felipe govoni wrote:
> procedure pintar(Sender: TObject);
> begin
> //codigo pra pintar
> end;
>
> e no evento on click
>
> dmGeral.qryBaixa.close;
> dmGeral.qryBaixa.OnCalcFields := pintar();
> dmGeral.qryBaixa.open;
>
> ele da o seguinte erro: not enough actual parameters, mas qual parametro
dae galera blz?
seguinte, tenho um datamodule com algumas query e um form com um dbgrid,
quero que qnd eu clicar num botao ele pinte algumas linhas do dbgrid.
o problema é: como faço pra criar um evento q esta no datamodule?
fiz assim:
procedure pintar(Sender: TObject);
begin
//codigo pra pint
Carlos:
Avira AntiVir Rescue System
http://www.free-av.com/en/tools/12/avira_antivir_rescue_system.html
Carlos
chsistemas2 escreveu:
>
> Olá pessoal,
>
> alguém conhece como remover aquele virus que entra no sistema com uma
> contagem regressiva na tela; e depois ele não permite que o antivirus
EMULE heim ?? anda baixando muito crack ai rsrsrs
brincadeira.. vc deve usar o programa "UNHAL.EXE", ou o "NaMão.COM",
traduzindo vai a luta... hehehehe
bom primeiro tenta descobrir o nome do bicho, no GERENCIADOR-DE-TAREFAS ou no
MSCONFIG ou no REGEDIT,
procure por nom
45 matches
Mail list logo
