cpdrede Novato

Registrado: Quarta-Feira, 31 de Março de 2004 Mensagens: 12
|
Enviada: Ter Nov 27, 2007 4:17 pm Assunto: Gerando Erro na leitura da Tabela |
|
|
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... |
|
cpdrede Novato

Registrado: Quarta-Feira, 31 de Março de 2004 Mensagens: 12
|
Enviada: Qua Nov 28, 2007 8:30 am Assunto: |
|
|
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;
|
|