danielrgoes

Jhonas da o mesmo erro CDS_Tabela: Cannot perform this operation on a closed dataset e fica dando esse erro varias vezes

Remota pelo IP 192.6.1.4 por exemplo

Boa Tarde pessoal estou com um problema meu sistema tem acesso ao banco de dados firebird que fica no meu servidor \\Servidor1\c\Banco\banco.fdb quando eu inicio o meu datamodulo eu colocoquei pra dar um try conexao.open (TSQLConnection); cds_tabela.open; sql_tabela.open; except ShowMessahe ('Erro ao conectar no banco de dados'); application.termined; end; ou seja se der erro para abrir o banco ele não entra do sistema e exibi um erro mais eu depuguei o sistema e mesmo sem conexao com o meu servidor o sistema passa pela linha conexao.open e vai da erro na cds_open não entra na excessao abre um monte de tela com erro ao se conectar com \\\Servidor1 gostaria de antes de abrir o sistema verificar se tenho conexao com o meu Servidor1 tem como faze isso?

Bom dia pessoal estou com uma duvida eu utilizo o delphi 2007 e desenvolvo relatorios nele com o QuickReport e coloco o QRBand como detail para exibir varias linhas conforme o meu select mais gostaria agora que sejam exibidas em colunas tem como fazer isso ? abraços

Funcionou certinho Obrigado Jhonas

Boa Tarde Pessoal estou com um problema eu formato campos Float assim str.Caption := FormatFloat('###.##',modulo.cds_tabelaCAMPO.Value); beleza mais como é um campo que vem por calculo ele fica um numero assim 1,6836163163796 0,6316391378131 entaum quando tem numero antyes da , fica certinho 1,68 mais quando tem 0 antes fica ,63 não aprece o 0 alguém podera me ajudar abraços

Cara tive muito problema com a conexao também porem como eu utilizo o DBExpert como ferramenta de manipulação quando vo conecta eu não conecto local e sim remoto com o IP 127.0.0.1 que é o IP da maquina local resolvel no meu caso ve se ajuda

Eu peciso zerar o contador do outlook express que fica no registro do Windows no Compact Check Count ele tem que receber o valor 0 segue o caminho da chave 'HKEY_CURRENT_USER\Identities\'Nome da Indentidade'\Software\Microsoft\Outlook Express\5.0\Compact Check Count'; alguém sabe como posso fazer isso Abraços

Bom dia pessoal eu tenho um sistema que eu escondo ele na barra de tarefas e ele fica lá Codigo no evento FormCloseQuery if CanClose then { se o comando para fechar for acionado } CanClose := false; { cancela o comando } h := FindWindow(nil,'TrayIcon'); { acha o ponteiro da aplicação no sistema} ShowWindow(h,SW_HIDE); { esconde a aplicação da barra de tarefas} RxTrayIcon1.Active := true; { coloca ícone no tray icon} hide; { esconde o form } eu utilizo o componente RxTrayIcon da biblioteca RxLib funciona certinho o sistema fica escondido potem quando o usuario vai tentar desligar o computador ele não deixa o SO (Windows XP, Vista) fica parado alguém sabe porque? e se possivel tem a soluçao ehehehhe abraços

E ai galera consegui resolver esse problema e esta aki a soluçao é um select um pouco grande sDia := FormatDateTime('dd',now); sMes := FormatDateTime('mm',now); sql := 'SELECT COD_FUN,NOME,APELIDO,USUARIO,'+ 'dt_aniversario, extract (day from dt_aniversario) as dia,'+ 'extract (month from dt_aniversario) as mes,'+ ' SEXO,DPTO,DT_ANIVERSARIO_REAL '+ 'FROM FUNCIONARIO WHERE '+ 'extract (day from dt_aniversario) = ' + QuotedStr(sDia)+ ' AND extract (month from dt_aniversario) = '+ QuotedStr(SMes); modulo.cds_funcionario.close; modulo.sql_funcionario.SQL.clear; modulo.sql_funcionario.SQL.Add(sql); modulo.cds_funcionario.Open(); Abraços a todos

Boa Tarde pessoal eu tenho o seguinte select sData := FormatDateTime('dd''.''mm''.''yyyy',now); sql := 'SELECT * FROM FUNCIONARIO WHERE DT_ANIVERSARIO = '+ Quotstr(sData); modulo.cds_funcionario.close; modulo.sql_funcionario.SQL.clear; modulo.sql_funcionario.SQL.Add(sql); modulo.cds_funcionario.Open(); um select simples aonde seleciona no banco de dados funcionario todos que tem a data de aniversario igual a data de hj beleza ele esta funcionando perfitamente porem eu gostaria de comparar somente o dia e o mes pois o aniversariante faz aniversario hj por exemplo (20/01) porem ele nasceu em 1980 então lá no banco vai ta 20.01.1980 quando compara com a tada de hj para ve se é aniversario não vai acha porque o ano não bate Obs: utilizo banco de dados firebird muito obrigado

Bom Dia Pessoal estou tentando esconder um form logo que ele abre ou seja no evendo On Show do form estou dando um hide nele porem o mesmo da erro falando que não pode esconder já tentei colocar no evento OnActive e no OnCreate e mesmo assim não da certo alguém tem alguma ideia?

amigo concatena CreateDir('C:\' + DBEdit.text); ou como é um DBEdit pega direto do banco CreateDir('C:\' + modulo.cds_tabelaNOME_PASTA.value);

Boa tarde pessoal eu programo em JAVA e Delphi No JAVA eu tenho um comnado para falar do componente que estou utilizando (this) gostaria de saber se o Delphi possue algo assim ou seja eu estou no evento Click de um BitBtn por exemplo para não utilizar o nome dele (BitBtn1.text := 'TESTE') eu usaria o (this.text := 'TESTE') muito obrigado

Mais como habilita ? Muito obrigado pela atenção

Ta na Mão Cara interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; const olMailItem = 0; implementation uses comobj, olectrls; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Outlook: OleVariant; vMailItem: variant; begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add('fulando@mundo.com.br'); // 1o destinatário vMailItem.Recipients.Add('ciclano@mundo.com.br'); // 2o destinatário vMailItem.Subject := 'teste de email'; // assunto vMailItem.Body := 'Este é um teste'; // Corpo do e-mail vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado vMailItem.Send; VarClear(Outlook); end;

Ok mais precisamos de mais informaçoes do tipo vai enviar pelo Correio eletronico se sim qual? MS outlook ou outlook express ou vai enviar direto por SMTP ?

Muito obrigado pela ajuda eu não sei se você sabe mais gostaria de saber se esses comando funcionam no access 2000 no Vb funcionou só que tenho um programa em access que tenho que fazer a mesma coisa sera que tem que delharar alguma biblioteca?

Claro que ajudou simmmmm valeu pela ajudaaaa cara se precisar estamos ai

Boa Tarde pessoal Gostaria de saber se alguém sabe o comando para colocar na area de tranferencia ou seja eu iria clicar em cima de um escrito e o evento clique dele ia da um control + C ( um edit por exeplo) Obrigado

Bom dia pessoal Gostaria de saber como eu faço pra mudar o valor de um registro no regedit o registro é esse HKEY_CURRENT_USER\Identities\ minha identidade \Software\Microsoft\Outlook Express\5.0\Compact Check Count nesse queria mudar o valor dele pra 0 muito obrigado

Bom dia pessoal Eu tenho um Siteminha aki na empresa desenvolvido em Acess 2000 nas maquinas com windows Xp funciona perfeitamente Porem coloquei em uma maquina com Vista ele ate abre mais a tela de relatorios que tem um grid o grid não preenche e o sistema esta acessando o banco pois eu logo nele alguém tem alguma soluçao para esse caso Abraços

Tente neste site http://translate.google.com.br/translate?h...%3Dpt%26tl%3Den abraço Muito bom Jhonas Mais o unico que tem para delphi 2007 é o Rt-Tools2D mesmo

Jhonas Não precisa ser necessariamente free mais que sua compra seja de facil acesso pois como é para a empresa que trabalho não podemos correr riscos

Boa noite pessoal Eu estou precisando fazer uns gráficos no meu sistema porem já tentei usuar o DBChart porem o mesmo não atende o que eu preciso - fazer gráficos com curvas com apenas 6 pontos O DBChart ele faz gráficos com curvas sim porem é nessario ter varios pontos pois ele não faz exatamente a curva e sim coloca os pontos proximos e da impressao de curva e não atende o que eu preciso eu achei uma ferramente chamada RT-Tools 2D porem a compra dela é muito complicada o contato não é no brasil não tenho a certeza de que é uma empresa confiavel Gostaria de saber se alguém já comprou essa ferramenta ou me indica uma outra para desenvolver gráficos muito obrigado