Faltou um espaço entre o perfil.id e o AND, aí ficou perfil.idAND o nome do campo. Erro de sql. Coloca um espaço aí antes dos AND's e vai funcionar. Assim:
strSqlLog:='SELECT * FROM usuario, perfil WHERE usuario.nivel = perfil.id'; strSqlLog:= strSqlLog + ' AND fantasia = ' + #39 + (valorNome.Text) + #39; strSqlLog:= strSqlLog + ' AND senha = ' + #39 + (valorSenha.Text) + #39; Feliz ano novo! lucsilfreitas escreveu: > Olá pessoal!! > > O meu projeto inicia com um login e aparace uma mensagem de erro ao > clicar o botão OK do formuilário fiz na seguinte forma: > > MENSAGEM DE ERRO > Project SPC.exe raised exception class EOleException with message > 'Syntax error (missing operator) in query expression 'usuario.nivel = > perfil.idAND fantasia ='Luciano Freitas'AND senha='1111'".Process > stopped. Use step or Rum continue. > > ROTINA > procedure TlogSenha.BitBtn1Click(Sender: TObject); > var > strSqlLog: string; > mensagem: string; > > begin > strSqlLog:='SELECT * FROM usuario, perfil WHERE usuario.nivel = > perfil.id'; > strSqlLog:= strSqlLog + 'AND fantasia = ' + #39 + (valorNome.Text) + > #39; > strSqlLog:= strSqlLog + 'AND senha = ' + #39 + (valorSenha.Text) + > #39; > > mnuPrincipal.qryLogin.Close; > mnuPrincipal.qryLogin.SQL.Clear; > mnuPrincipal.qryLogin.SQL.Add(strSqlLog); > mnuPrincipal.qryLogin.Open; > > If (mnuPrincipal.qryLogin.RecordCount) = 1 then > begin > mnuPrincipal.StatusBar1.Panels[2].Text:= ' ' + 'Usuário: ' + > logSenha.valorNome.Text; > logSenha.Close; > end; > > If (mnuPrincipal.qryLogin.RecordCount)= 0 then > begin > mensagem:= 'Nome ou senha inválidos.' + #13 + #13 > + 'Se esqueceu a sua senha consulte ' + #13 > + 'o administrador do sistema.'; > > Application.MessageBox(PChar(mensagem),'Login não > autirizado',MB_OK+mb_iconError); > valorSenha.Text:= ''; > valorSenha.SetFocus; > end; > > end; > > Ficaria muit grato se alguem me ajudade nisso. > > LUCIANO > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > *Yahoo! Grupos, um serviço oferecido por:* > PUBLICIDADE > > > ------------------------------------------------------------------------ > *Links do Yahoo! Grupos* > > * Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > * Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > <mailto:[EMAIL PROTECTED]> > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > -- Atenciosamente _______________________________________________________ Giovani Benedetti Penha Coordenador de Projetos de TI Veltrac Rastreadores de Veículos Ltda. e-mail: [EMAIL PROTECTED] Tel: (43) 2105-5041 / Cel: (43) 9117-5181 Av. Celso Garcia Cid, 1451 Londrina - Paraná www.veltrac.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
