[delphi-br] Interbase SQL - Erro Extract - group by
Olá pessoal! Montei um script sql para me retornar o cod_aluno, o ano_mes (informação obtida pela clausula Extract) e o valor do movimento. O problema é que quando tento somar os valores ele dá erro na clausula GROUP BY. select cod_aluno, EXTRACT(month from data)||EXTRACT(year from data) as Ano_mes, (valor) total from controle_pagamento where cod_aluno = 2260 and ((cod_historico in (select cod_hist_filantropia from historico_mensalidade HM)) or (cod_historico in (select cod_hist_desc_dissidio from historico_mensalidade HM)) or (cod_historico in (select cod_hist_desc_esp from historico_mensalidade HM))) and tipo_oper = 'C' group by 1, 2
[delphi-br] InterBase - Erro em Stored Procedure
Olá Pessoal! Montei um SP no InterBase (o código está abaixo) e estou tendo o seguinte problema: Quando executo a SP no InterBase 6.5 ela retorna o valor correto porém, quando executo no Interbase 6.0 ela retorna NULL. Qual poderia ser a solução do problema? CREATE PROCEDURE RETORNA_SALDO ( ALUNO INTEGER, ANO_MES CHAR(6)) RETURNS( SALDO NUMERIC(15, 2) ) AS DECLARE VARIABLE oper char(1); DECLARE VARIABLE valor numeric(15,2); begin saldo = 0; For select tipo_oper, sum(valor) total from controle_pagamento where cod_aluno = :aluno and ano_mes = :ano_mes group by tipo_oper into :oper, :valor DO begin if (oper = 'D') then begin saldo = saldo + :valor; end else begin saldo = saldo - :valor; end end end
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi. (quase desistindo)
Olá Marcio! você testou esta rotina com mais de um arquivo do excel? Não sei se é o teu caso mas, na planilha que vc vai importar os dados você não pode ter linhas em branco ou mescladas. Na primeira linha devem estar os nomes das colunas. essas informações serão usadas para sabem quais colunas possuem dados e devem ser retornadas. --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED] escreveu Grato pelas ajudas, Mas sempre que irei conectar com a tabela do excel exibe uma mensagem que diz que a tabela externa não tem o formato esperado, já estou quase desistindo com isto, não sei mais o que fazer... Agradeço. Márcio
[delphi-br] Re: MySQL dbexpress error: invalid field type
Como eu descubro a versão do driver e se ele é compativel? --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Um detalhe importantíssimo é saber a versão do MySQL e se o driver DBExpress é compatível. caso não seja terás que partir pra algum driver pago como o da DevArt, ou acessar o mySQL via Zeos ou MyDAC 2008/11/3 cezarmolinar [EMAIL PROTECTED] Olá pessoal! Estou montando um sistema que utiliza DBExpress para conectar com um BD MySQL. O sistema está funcionando (select, insert, delete, etc). O meu problema está em realizar select em uma tabela que possui um campo decimal(3,1). Quando eu incluo este campo no select o delphi retorna a mensagem dbexpress error: Invalid Field Type. Se eu retiro este campo da consulta o erro não ocorre. Estou utilizando do Delphi 7. grato pela atenção! -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Olá Marcio!
Eu utilizo com o Excel 2003 sem problemas. Pode ser que vc não tenha
especificado algum parametro. teste este exemplo:
1) Rotina para abrir o arquivo e jogar as planilhas para uma ListBox:
OpenDialog1.Execute;
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
OpenDialog1.FileName+';Extended Properties=Excel 8.0;Persist Security
Info=False';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
AdoConnection1.Open;
AdoConnection1.GetTableNames(ListBox1.Items,True);
2) Rotina para visualizar os dados da planilha selecionada
if not AdoConnection1.Connected then
ShowMessage('Primeiro abra uma planilha !')
else
if ListBox1.ItemIndex 0 then
ShowMessage('Selecione a planilha de onde os dados serão
importados.');
AdoQuery1.Close;
AdoQuery1.SQL.Text:='SELECT * FROM ['+ListBox1.Items.Strings
[ListBox1.ItemIndex]+']';
AdoQuery1.Open;
BtnImportar.Enabled := true;
Se vc visualizar os dados, trabalhar com eles é tranquilo:
ADOQuery1.First;
While Not ADOQuery1.Eof do
begin
Insere.ParamByName('data').Value := ADOQuery1.Fields[0].Value;
Insere.ParamByName('associado').Value := ADOQuery1.Fields
[1].Value;
ADOQuery1.Next;
end;
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED]
escreveu
Olá pessoal.
configurei com a planilha em excel via ado, só que na hora de fazer
a
coneção ele dá uma mensagem que a tabela externa não está no
formato
esperado.
Estou usando Excel 2003 + delphi 7.
Alguem pode me ajudar nesta batalha estou precisando resgatar de
uma
planilha inscritos de um vestibular da facu que trabalho e
presciso,
mais até agora não consegui fazer esta conecção, sei como exportar
dados mais não vejo meios de importar para o delphi, conseguindo
isto
irei armazenar em Firebird.
Grato
Márcio
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@
escreveu
OPA...
AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO.
ABRAÇO A TODOS
--- Em delphi-br@yahoogrupos.com.br, ajmsombra ajmsombra@
escreveu
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz
marciomrck@
escreveu
Olá pessoal do grupo.
Gostaria de uma ajudinha, preciso resgatar dados de uma
planilha
de
excel para o delphi e manipulá-la, tenho como exportar para o
delphi
mais não sei como importar.
Desde já grato.
Márcio
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
i:Integer;
analise,texto:string;
begin
i:=4;
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
while texto '' do
begin
analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
if analise 'Reprovado' then
begin
I:=I+1;
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
end
else
begin
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
table1.Insert;
table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
table1.Post;
i:=i+1
end;
end;
Excel.WorkBooks.close;
end;
[delphi-br] MySQL dbexpress error: invalid field type
Olá pessoal! Estou montando um sistema que utiliza DBExpress para conectar com um BD MySQL. O sistema está funcionando (select, insert, delete, etc). O meu problema está em realizar select em uma tabela que possui um campo decimal(3,1). Quando eu incluo este campo no select o delphi retorna a mensagem dbexpress error: Invalid Field Type. Se eu retiro este campo da consulta o erro não ocorre. Estou utilizando do Delphi 7. grato pela atenção!
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Olá Marcio! Você pode recuperar os dados utilizando os componentes ADO (ADOConnection e ADOQuery). Você conecta com a planilha e faz a recuperação através de um select. --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED] escreveu Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio
[delphi-br] Re: Interbase Connection lost to database
Olá Pessoal! Encontrei o problema por incrivel que pareça o problema de perda de conexão ocorria por falta de espaço físico na partição onde eu estava criando os backupsbem que o banco poderia avisar da falta de espaço e não simplesmente derrubar a conexão. obrigado a todos pela atenção! --- Em delphi-br@yahoogrupos.com.br, cezarmolinar [EMAIL PROTECTED] escreveu O problema é que esse erro está ocorrendo mesmo quando eu estou conectado localmente ao servidor. E não apenas nos clientes. --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos eduardo.drd@ escreveu Esse erro é causado geralmente por falha na rede... ai o banco derruba a conexão.. fale um pouco sobre a rede.. como ela foi montada? 2008/10/27 cezarmolinar cezar@ Olá pessoal! Possuo um BD Interbase e ultimamente está ocorrendo erros de conecção do sistema com o BD com a seguinte mensagem: Connection lost to database. Tentei fazer um backup da base atraves do IBConsole, diretamente no servidor que contem a base e ocorreu o mesmo erro. Estou utilizando o Interbase 6.0 em um servidor windows 2000. O que está gerando esse erro e como posso solucioná-lo?? Grato pela atenção! -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Interbase Connection lost to database
Olá pessoal! Possuo um BD Interbase e ultimamente está ocorrendo erros de conecção do sistema com o BD com a seguinte mensagem: Connection lost to database. Tentei fazer um backup da base atraves do IBConsole, diretamente no servidor que contem a base e ocorreu o mesmo erro. Estou utilizando o Interbase 6.0 em um servidor windows 2000. O que está gerando esse erro e como posso solucioná-lo?? Grato pela atenção!
[delphi-br] Re: Interbase Connection lost to database
O problema é que esse erro está ocorrendo mesmo quando eu estou conectado localmente ao servidor. E não apenas nos clientes. --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Esse erro é causado geralmente por falha na rede... ai o banco derruba a conexão.. fale um pouco sobre a rede.. como ela foi montada? 2008/10/27 cezarmolinar [EMAIL PROTECTED] Olá pessoal! Possuo um BD Interbase e ultimamente está ocorrendo erros de conecção do sistema com o BD com a seguinte mensagem: Connection lost to database. Tentei fazer um backup da base atraves do IBConsole, diretamente no servidor que contem a base e ocorreu o mesmo erro. Estou utilizando o Interbase 6.0 em um servidor windows 2000. O que está gerando esse erro e como posso solucioná-lo?? Grato pela atenção! -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Trabalhar com datas no Mysql
--- Em delphi-br@yahoogrupos.com.br, crist_ita [EMAIL PROTECTED]
Olá amigo!
Não sou especialista em mysql mas, pelo que eu sei, o formato de
gravação de data no mysql é -mm-dd e vc está passando na
seqüência inversa. Experimente passar a data através do Comando
FormatDateTime('-mm-dd', now).
Acho que esta opção pode resolver o seu problema.
escreveu
Bom dia a todos
Estou querendo gravar a data e hora atual de um registro, estou
fazendo
desta forma usando o mysql.
DM.cdsCadastroAgendadatacriacao.Text := DateToStr(now);
DM.cdsCadastroAgendahoracriacao.Text := TimeToStr(now);
Em TimeToStr(now) ele pega a hora certa mais a data não. Gostaria
de
gravar a data no formato `02-09-2008' e como eu poderia formatar a
data?
Agradeço
[delphi-br] Listar dispositivos USB
Olá Pessoal! Existe alguma forma de eu listar os dispositivos USB conectados ao computador? Preciso listar as webcam conectadas a um notebook para que o usuário escolhar de qual quer capturar imagens.
[delphi-br] Re: WebCam - Remover imagem do dispositivo
Estou utilizando o TCamera, obrigado pela dica. Quanto ao TCamera existe algum método que permita selecionar a webcam desejada? (ex.: tenho um notebook com webcam mas quero utilizar uma outra.) Quando eu utilizo o sistema o TCamera aciona automaticamente a camera on-board. --- Em delphi-br@yahoogrupos.com.br, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu Qq coisa tem o exemplo no meu blog também. Abs -- Boa Leitura, Adriano Santos Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br Odail Della Niesi Junior respondeu: Segue link para um exemplo do Adriano Santos http://mrbool.devmedia.com.br/Novo/Revista/cd79-adriano-cam.zip http://mrbool.devmedia.com.br/Novo/Revista/cd79-adriano-cam.zip Ricardo César Cardoso escreveu: Se não me engano o nome desse componente é TCamera. Atte, Ricardo. --- Em ter, 12/8/08, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com mailto:eduardo.drd%40gmail.com escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com mailto:eduardo.drd%40gmail.com Assunto: Re: [delphi-br] WebCam - Remover imagem do dispositivo Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 12 de Agosto de 2008, 9:09 o DelphiTwain funciona melhor com scanner, para webcam tem outro componente, só nao lembro o nome, da uma olhada no google que você vai achar. 2008/8/12 cezarmolinar [EMAIL PROTECTED] mailto:cezar%40maua.g12 mailto:cezar%40maua.g12. br Olá Pessoal! Estou implementando um sistema que faz a captura de imagens através de uma webcam. Estou utilizando o componente DelphiTwain. Meu problema está em como remover do dispositivo a imagem capturada pois as webcam criam um dispositivo (semelhante a um pendrive) porém este dispositivo não pode ser mapeado. Minha dúvida é: O DelphiTwain possui alguma rotina que faça a remoção de imagem do dispositivo? Existe alguma forma automática (via sistema sem interção do usuário) para remover a imagem do dispositivo?
[delphi-br] WebCam - Remover imagem do dispositivo
Olá Pessoal! Estou implementando um sistema que faz a captura de imagens através de uma webcam. Estou utilizando o componente DelphiTwain. Meu problema está em como remover do dispositivo a imagem capturada pois as webcam criam um dispositivo (semelhante a um pendrive) porém este dispositivo não pode ser mapeado. Minha dúvida é: O DelphiTwain possui alguma rotina que faça a remoção de imagem do dispositivo? Existe alguma forma automática (via sistema sem interção do usuário) para remover a imagem do dispositivo?
