| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Pocahontas
Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 210
Localização: Rio de Janeiro / Brasil
|
 Enviada: Qua Nov 17, 2010 12:25 pm Assunto: Validation ERROR for column @1,Value "@2" |
 |
|
no meu cadastro de selo dá esse erro quando tento salvar postarei o código do cadastro de selo em seguida :
| Código: | unit U_Selo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, DB;
type
TFrm_Selo = class(TForm)
Panel1: TPanel;
Label1: TLabel;
DBSelo: TDBEdit;
DBGselo: TDBGrid;
Panel3: TPanel;
btnNovo: TButton;
BtnSalvar: TButton;
BtnCancelar: TButton;
BtnAlterar: TButton;
BtnExcluir: TButton;
BtnImprimir: TButton;
BtnSair: TButton;
DtsCadSelo: TDataSource;
DtsPesqSelo: TDataSource;
DBPreco: TDBEdit;
Label2: TLabel;
procedure btnNovoClick(Sender: TObject);
procedure BtnSairClick(Sender: TObject);
procedure BtnSalvarClick(Sender: TObject);
procedure BtnCancelarClick(Sender: TObject);
procedure BtnAlterarClick(Sender: TObject);
procedure BtnExcluirClick(Sender: TObject);
procedure DBSeloChange(Sender: TObject);
private
{ Private declarations }
public
procedure leitura;
procedure editar;
{ Public declarations }
end;
var
Frm_Selo: TFrm_Selo;
implementation
uses U_DMPesq, UDM, BiblioSysLocadora;
{$R *.dfm}
procedure TFrm_Selo.BtnAlterarClick(Sender: TObject);
begin
editar;
dm.cdscadselo.Edit;
end;
procedure TFrm_Selo.BtnCancelarClick(Sender: TObject);
begin
dm.cdscadselo.Cancel;
leitura;
end;
procedure TFrm_Selo.BtnExcluirClick(Sender: TObject);
begin
if MessageDlg ('Tem Certeza que deseja excluir' ,mtConfirmation,[mbNo,mbYes],0)= mrYes then
begin
dm.cdscadselo.Delete;
dm.cdscadselo.ApplyUpdates(1);
DMPesq.cdspesqselo.close;
DMPesq.cdspesqselo.Open;
leitura;
end;
end;
procedure TFrm_Selo.btnNovoClick(Sender: TObject);
begin
dbSelo.SetFocus;
editar;
NovoRegistro(dm.cdscadselo ,true);
end;
procedure TFrm_Selo.BtnSairClick(Sender: TObject);
begin
close;
end;
procedure TFrm_Selo.BtnSalvarClick(Sender: TObject);
begin
dm.CdsCadselo.Post;
dm.CdsCadselo.ApplyUpdates(0);
leitura;
Fecha_abretabela(DMPesq.CdsPesqselo);
ShowMessage('Registro foi salvo com sucesso');
end;
procedure TFrm_Selo.DBSeloChange(Sender: TObject);
begin
end;
procedure TFrm_Selo.editar;
begin
//coloca em modo de edicao os botões
btnNovo.Enabled := false;
btnSalvar.Enabled := true;
btncancelar.Enabled := true;
btnalterar.Enabled := false;
btnexcluir.Enabled := false;
btnimprimir.Enabled := false;
btnsair.Enabled := false;
dbgselo.Enabled := false;
end;
procedure TFrm_Selo.leitura;
begin //coloca em modo de leitura os botões
btnNovo.Enabled := True;
btnSalvar.Enabled := false;
btncancelar.Enabled := false;
btnalterar.Enabled := true;
btnexcluir.Enabled := true;
btnimprimir.Enabled := true;
btnsair.Enabled := true;
// dbgpreco := True;
end;
end.
não sei se postei este tópico no lugar correto...
|
_________________
Pocahontas / Monique Novaes |
|
| Voltar ao Topo |
|
 |
Pocahontas
Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 210
Localização: Rio de Janeiro / Brasil
|
| Enviada: Qua Nov 17, 2010 12:46 pm Assunto: |
|
|
Já resolvi galera,esse erro acontece quando na verdade no Banco de Dados lá no início não se tenha criado um generator nem uma trigger 
Quem tbm tiver duvidas posta aew!
abraços!!!
_________________
Pocahontas / Monique Novaes |
|
| Voltar ao Topo |
|
|
samuelseixas
Novato
Registrado: Segunda-Feira, 22 de Novembro de 2010
Mensagens: 18
|
| Enviada: Seg Nov 22, 2010 4:39 pm Assunto: Re: Validation ERROR for column @1,Value "@2" |
|
|
Olá amigos, sou novo aqui no forum e preciso de uma grande ajuda de vcs.
Tenho um código para pesquisar um aniversariante via SQL. Porém quando digito o mes ( 1 a 12) ele me devolve a seguinte resposta:
EIBINTERBASEERROR EXCEPTION EVALUE NOT SUPPORTED.
Uso o banco interbase e tenho a percepção que o erro está na conversão da entrada dos dados.
A tabela é TBMEMBROS e a coluna é DATA do tipo DATE.
vejam o código e por favor, ajudem-me a encontrar o erro.
Att,
Samuel Seixas
begin
dmMembros.ibdataNiver.Active:= false;
//dmMembros.ibdataNiver.SQL.Clear;
dmMembros.ibdataNiver.SQL.Text:= 'select tbmembros.nomemembro, tbmembros.fone, tbmembros.cel, tbmembros.email from tbmembros where extract(month from DATA)=' + (Edit1.Text);
DBGrid1.DataSource:= dmMembros.DsdataNiver;
dmMembros.ibdataNiver.Active:= true;
end; |
|
| Voltar ao Topo |
|
|
Pocahontas
Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 210
Localização: Rio de Janeiro / Brasil
|
| Enviada: Ter Nov 23, 2010 8:04 am Assunto: |
|
|
Quais são os componentes que vc está usando?seu DM está ligado corretamente?
_________________
Pocahontas / Monique Novaes |
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Ter Nov 23, 2010 8:14 am Assunto: |
|
|
A sql que vc quer amigo para descobrir os aniversariantes do mês pode ser parecida com esta:
| Código: |
Qry.Close;
Qry.SQL.Clear;
Qry.SQL.Add('SELECT SUM(Valor) As SubTotal, SUM(Desconto) As SubTotalDesc, SUM(Acrescimo) as SubTotalAcres FROM Pagamentos');
Case TipoCalc of
tDiaMes: begin
Qry.SQL.Add('WHERE(EXTRACT(DAY FROM Vencimento) = :Dia)');
Qry.SQL.Add('AND(EXTRACT(MONTH FROM Vencimento) = :Mes)');
Qry.SQL.Add('AND(EXTRACT(YEAR FROM Vencimento) = :Ano)');
Qry.ParamByName('Dia').AsInteger := qDia;
Qry.ParamByName('Mes').AsInteger := qMes;
Qry.ParamByName('Ano').AsInteger := qAno;
end;
ou mesmo assim:
Qry.SQL.Add('WHERE(EXTRACT(MONTH FROM Vencimento) = :Mes)');
Qry.SQL.Add('AND(EXTRACT(YEAR FROM Vencimento) = :Ano)');
|
Apesar que vc deveria ter aberto um post para vc dirimir sua dúvida, mas com isto vc consegue pelo menos a direção de como resolver seu problema...
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
samuelseixas
Novato
Registrado: Segunda-Feira, 22 de Novembro de 2010
Mensagens: 18
|
| Enviada: Ter Nov 23, 2010 1:38 pm Assunto: |
|
|
Olá, como mostrei o código, estou usando os componente do interbase
ibtable;
ibquery;
ibdatabase;
ibtransaction;
dmMembros.ibdataNiver.Active:= false;
//dmMembros.ibdataNiver.SQL.Clear;
dmMembros.ibdataNiver.SQL.Text:= 'select tbmembros.nomemembro, tbmembros.fone, tbmembros.cel, tbmembros.email from tbmembros where extract(month from DATA)=' + FormatDateTime('mm', StrToDate(Edit1.Text));
DBGrid1.DataSource:= dmMembros.DsdataNiver;
dmMembros.ibdataNiver.Active:= true; |
|
| Voltar ao Topo |
|
|
samuelseixas
Novato
Registrado: Segunda-Feira, 22 de Novembro de 2010
Mensagens: 18
|
| Enviada: Ter Nov 23, 2010 2:23 pm Assunto: |
|
|
Olá jhonny.
Então, o que preciso saber é onde está o erro neste código.
será que esta no edit1.text?
Será que está na conversão do dado?
os componentes que estou trabalhando é interbase
ibtable;
ibquery;
ibdatabase;
ibtransaction; |
|
| Voltar ao Topo |
|
|
samuelseixas
Novato
Registrado: Segunda-Feira, 22 de Novembro de 2010
Mensagens: 18
|
| Enviada: Ter Nov 23, 2010 2:28 pm Assunto: |
|
|
Outra coisa...
na tabela estou trabalhando com o type DATE. |
|
| Voltar ao Topo |
|
|
samuelseixas
Novato
Registrado: Segunda-Feira, 22 de Novembro de 2010
Mensagens: 18
|
| Enviada: Ter Nov 23, 2010 4:39 pm Assunto: |
|
|
Pessoal, a mensagem que dá é a seguinte
Debugger exception notification
Project Membros.exe raised exception class EibinterbaseError with message ' expression evaluation not supported.'
O que isto significa? |
|
| Voltar ao Topo |
|
|
Pocahontas
Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 210
Localização: Rio de Janeiro / Brasil
|
| Enviada: Sex Nov 26, 2010 4:06 pm Assunto: |
|
|
vc debugou? debuga pra ver onde fik o erro...
_________________
Pocahontas / Monique Novaes |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sáb Nov 27, 2010 7:05 pm Assunto: |
|
|
| samuelseixas escreveu: | Olá, como mostrei o código, estou usando os componente do interbase
ibtable;
ibquery;
ibdatabase;
ibtransaction;
dmMembros.ibdataNiver.Active:= false;
//dmMembros.ibdataNiver.SQL.Clear;
dmMembros.ibdataNiver.SQL.Text:= 'select tbmembros.nomemembro, tbmembros.fone, tbmembros.cel, tbmembros.email from tbmembros where extract(month from DATA)=' + FormatDateTime('mm', StrToDate(Edit1.Text));
DBGrid1.DataSource:= dmMembros.DsdataNiver;
dmMembros.ibdataNiver.Active:= true; |
Sem saber se funciona... Tente assim
| Código: | with dmMembros.ibdataNiver do
begin
close;
sql.clear;
sql.Text := ' SELECT '+
' tbmembros.nomemembro, '+
' tbmembros.fone, '+
' tbmembros.cel, '+
' tbmembros.email '+
' FROM tbmembros '+
' WHERE EXTRACT(MONTH FROM tbmembros.data) = :MES ';
ParamByName('MES').asString := FormatDateTime('mm', StrToDate(Edit1.Text));
Open;
end; |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
andersonfsa
Novato
Registrado: Sábado, 25 de Agosto de 2012
Mensagens: 1
|
| Enviada: Sáb Ago 25, 2012 12:19 pm Assunto: Validatio error for colunm @, value null @ |
|
|
| Pocahontas escreveu: | Já resolvi galera,esse erro acontece quando na verdade no Banco de Dados lá no início não se tenha criado um generator nem uma trigger
Quem tbm tiver duvidas posta aew!
abraços!!! |
----------------------
Da o mesmo erro aqui.. Como voce fez para contorna-lo ou para ele deixar de existir? |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
