Jhonas

Estou tentando somar as colunas do meu dbgrid mas tenho que somar coluna por coluna ate o final do dbgrid exemplo select sum(coluna1), sum(coluna2), sum(coluna3), sum (coluna4) from tabela abraço

voce deve usar Character Set = utf8 e COLLATE=utf8_general_ci CREATE TABLE `tweets` ( `id` int(11) NOT NULL auto_increment, `status_id` bigint(20) default NULL, `text` varchar(255) collate utf8_general_ci default NULL ) ENGINE=InnoDB AUTO_INCREMENT=1795484 DEFAULT CHARSET=utf8 COLLATE=utf8_general_ci$$ abraço

o Character Set determina se voce vai usar caracteres acentuados e caracteres especiais http://www.destructor.de/firebird/charsets.htm veja tambem como configurar o Interbase http://www.devmedia.com.br/configuracoes-d...es-parte-2/1954 OBS: De um click duplo no componente IBDataBase1 e voce vera a configuração abraço

Eu tentei com o Ttimer mas não consequi se você poder me enviar a forma de fazer eu agradeço uma das formas de fazer: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; on_off : integer = 0; cont : integer =0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // ligar e desligar o timer inc(on_off); if on_off = 1 then begin Timer1.Enabled := true; Timer1.Interval := 1000; /// 1 segundo end else begin on_off := 0; Timer1.Enabled := false; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin inc(cont); edit1.Text := inttostr(cont); if cont > 59 then cont := 0; end; end. abraço

?? Argumento de saída "Proppcgcwa" (e talvez outros) não atribuído durante a chamada para "C: \ Users \ Rony \ Documents \ Conhecimentos \ LENEP \ Monografia \ codigos Matlab \ Proppcgcwa.m> Proppcgcwa". o erro esta em 2 linhas de codigo Error in ==> Proppcgcwa at 24 ( linha 24 ) dg = (dm - 0.967 * yN2 - 1.52*yCO2-1.18*yH2S)/ (1- yN2 -yCO2 - yH2S); Error in ==> Propppc at 105 ( linha 105 ) Proppc = Proppcgcwa (dm ,tipodegas, yN2,yH2S,yCO2); %Wichert & Aziz verifique ... abraço

leia esse artigo http://webcache.googleusercontent.com/sear...v6g&ct=clnk ou http://msdn.microsoft.com/pt-br/library/gg454586.aspx abraço

porem esta acontecendo um erro as vezes não é sempre ele fecha a tabela do banco sozinha sai do modo de insersão verifique se quando isso ocorre é porque foi encontrado algum caracter especial no registro veja se esta definido o Character Set = WIN1252 abraço

Existem maneiras mais facies de criar um temporizador ( voce pode usar um componente timer ) mas se quer usar esse codigo procedure TForm1.Button1Click(Sender: TObject); var b : Integer; begin b := 0; repeat b:=b+1; If StrToInt(Edit19.Text) < 60 Then Edit19.Text := IntToStr(StrToIntDef(Edit19.Text,0)+1); Edit19.Refresh; sleep(500); // corresponde a 1/2 segundo de parada until b = 60; end; digite 1 no edit e veja a mudança na tela abraço

Fazendo alguns testes com o seu codigo, entendi exatamente o que voce esta querendo o uso do registry do windows é para associar o seu exe explicitamente com a extensão QRP executando pelo delphi não ocorre o problema de violação de endereço, porem executando por fora o erro ocorre ( violação de endereço de memoria ) vou mesclar algumas rotinas do seu código com o meu código ... em alguns relatorios ocorre o erro de (metafile is not valid) isso porque no relatorio tem figuras .... entretanto o codigo que te passei não abre o seu relatorio por estar vinculado ao registro do windows como já te envie o codigo, voce tambem pode tentar modifica-lo ... vou fazer algumas alterações e depois te informo abraço

SQL.Add('select * from cam Where'); SQL.Add('(:Par1 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par2 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par3 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par4 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par5 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par6 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15))'); voce pode reduzir isso para SQL.Add('select * from cam Where'); SQL.Add('(:Par1 and :Par2 and :Par3 and :Par4 and :Par5 and :Par6 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) '); abraço

s900mt a sua duvida tambem não foi resolvida no outro forum por falta de entendimento e Tambem assim. With DM.AdoQuery1 do Begin Close; SQL.Clear; SQL.Add ( 'Select * From cam Where c1 In('+Edit1.text+','+Edit2.text+','+Edit3.text+' and '); SQL.Add( 'c2 In('+Edit1.text+','+Edit2.text+','+Edit3.text+')'); Open; if DM.AdoQuery1.RecordCount = 0 then showmessage('Nenhum Registro foi Encontrado com estas restrições!!'); end; tambem dei o espaço no END mas mesmo assim não deu ============================================================== se o que eu expus no post acima é correto então voce deveria fazer assim a sua select 1 4 7 9 11 12 SELECT * FROM NUMEROS WHERE 1 OR 4 OR 7 OR 9 OR 11 OR 12 IN(N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15) passando para o seu código seria SQL.Add ( 'Select * From cam Where' +Edit1.text+' or '+Edit2.text+' or '+Edit3.text+' or '+ Edit4.text+' or '+Edit5.text+' or '+Edit6.text+' IN(C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15)'; OBS: o uso do operador OR encontrará um ou outro numero dentro do registro agora se voce quer que ele encontre todos os numeros digitados no registro, voce deve trocar o operador OR pelo AND SQL.Add ( 'Select * From cam Where' +Edit1.text+' and '+Edit2.text+' and '+Edit3.text+' and '+ Edit4.text+' and '+Edit5.text+' and '+Edit6.text+' IN(C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15)'; abraço

# Thais # a finalidade do exercício é justamente para que voce aprenda a programar o seu professor tem 2 objetivos ao propor esse exercicio a voce fazer com que voce tenha familiaridade com o uso de componentes do delphi e que aprenda a usar os metodos e propriedades de cada componente ( coisas que ele já deve ter ensinado em sala de aula ) voce deve tentar resolver o exercicio sozinha e a medida que voce for tendo duvidas, voce pode postar no forum e os colegas tentarão ajuda-la, mas não espere que alguém vá lhe fazer. abraço

voce deve se expressar melhor para que possamos entender o que voce quer é isso que voce esta querendo ?

para juntos produzirmos um software com o objetivo de aprendizagem que tipo de software voce pretende desenvolver ?

veja essa video aula ... vai te dar a noção basica do uso do componente PageControl http://www.youtube.com/watch?v=w-rvt6xBYl8 abraço

mas eu queria que ao dar um click duplo em qualquer report ela carregasse logo no meu Preview.!!! usando o TOpenDialog1, ele já faz isso ao voce selecionar o QRP mas se voce esta querendo dar um click duplo num arquivo QRP sem ser pelo delphi, voce deve associar o arquivo QRP ao seu programa .exe, como é feito pelo windows Meu Computador > Ferramentas > Opções de Pasta > Tipos de arquivo abraço

leia essa apostila http://www.comunidade-firebird.org/cflp/do...s/CFLP_T008.PDF abraço

leia o artigo http://www.modernopapo.com.br/?p=647 abraço

veja http://www.modernopapo.com.br/?p=647 abraço

veja http://www.modernopapo.com.br/?p=647 abraço

5 razões para usar o MYSQL : http://www.cio.com/article/113110 8 razões para não usar o MYSQL : http://www.cio.com/article/113111/Eight_So...ot_to_Use_MySQL Compara SQL-Server http://www.microsoft.com/sqlserver/pt/br/p...or-compare.aspx http://www.babooforum.com.br/forum/index.p...oracle-e-mysql/ abraço

voce tem que ser mais explicito quando a sua duvida if grupo = 6 then disponivelvenda := 'N' abraço

veja http://www.progress.com/en/openedge/executables.html abraço

Nome do Programa: DB2 Run-Time Client Light http://www.vivaolinux.com.br/artigo/Instal...BM-DB2?pagina=2 http://www-03.ibm.com/software/sla/sladb.n...72?OpenDocument abraço

experimente SELECT to_char(e.data_entrega,'day'), COUNT(SEXO) , SEXO FROM CLIENTE c, encomenda e AND c.id_cliente=e.id_cliente group by to_char(e.data_entrega,'day') abraço