ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Gerando Erro na leitura da Tabela

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
cpdrede
Novato
Novato


Registrado: Quarta-Feira, 31 de Março de 2004
Mensagens: 12

MensagemEnviada: Ter Nov 27, 2007 4:17 pm    Assunto: Gerando Erro na leitura da Tabela Responder com Citação

Olá a todos, sou um entusiasta em programação, e estou estudando um programa em Delphi 2006 com Interbase 2007. Bom fiz as tabelas e tudo, só que na hora que executo o programa, na tela de login do sistema está dando um erro

" Project XXX.exe raised exception class EIBInterbaseError with message 'Dynamic SQL Error SQL Error code =-104
Token unknown -line 1, char 65 Fantasia"


Bom procurei bastante coisa, mas ainda não estou compreendendo onde erro, a linho do código do verificação do login é essa


procedure TFrm_Login.Btn_OkClick(Sender: TObject);
var
strSqlLog: String;
begin
strSqlLog := 'Select * from Usuario, Perfil where Usuario.Nivel = Perfil.ID';
strSqlLog := strSqlLog + 'And Fantasia = ' + #39 + (Edt_Login.Text) + #39;
strSqlLog := strSqlLog + 'And Senha = ' + #39 + (Edt_Senha.Text) + #39;

Frm_Principal.QueryLogin.Close;
Frm_Principal.QueryLogin.SQL.Clear;
Frm_Principal.QueryLogin.SQL.Add(strSqlLog);
Frm_Principal.QueryLogin.Open;

if not Frm_Principal.QueryLogin.IsEmpty then
begin
Frm_Principal.StatusBar1.Panels[2].Text := ' '+'Usuário: '+ Frm_Login.Edt_Login.Text+
' - '+Frm_Principal.QueryLogin.FieldByName('DPTO').AsString;
end;
end;


Será que algum colega pderia me dar uma pequena Luz sobre esse erro. Obrigado à todos...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
cpdrede
Novato
Novato


Registrado: Quarta-Feira, 31 de Março de 2004
Mensagens: 12

MensagemEnviada: Qua Nov 28, 2007 8:30 am    Assunto: Responder com Citação

Bom respondendo pra mim mesmo lá vai.
O erro estava nos espaços e não me atentei a isso.


strSqlLog := 'Select * from Usuario, Perfil where Usuario.Nivel = Perfil.ID';
strSqlLog := strSqlLog + ' And Fantasia = ' + #39 + (Edt_Login.Text) + #39;
strSqlLog := strSqlLog + ' And Senha = ' + #39 + (Edt_Senha.Text) + #39;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB