Ir para conteúdo
Fórum Script Brasil
  • 0

Preciso De Ajuda Para Resolver Este Problema Na Mi


Guest - neyking -

Pergunta

Guest - neyking -

Pessoal estou tentando fazer um aplicativo que contenha um Controle de Acesso, atravez de usuario e senha , fiz tudo certinho porem quando entro com usuario e senha o programa me retorna o seguinte erro!

Project SGP.exe raised exception class EIBinterbaseError whit message "daynamic SQL Error"

SQL Error = - 104

Token unknown - line 1, char 64

fantasia'.process stopped. Use Step or Run to continue

bom sou novato nisso ainda não sei como contornar este problema, quem quiser me mandar algum email a respeito disso! estou contratando desenvolvedores tambem se alguém se interessar pode me mandar curriculos no email cadastrado

Codigo que usei

procedure TLogin.Button1Click(Sender: TObject);

var

strsqllog: 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;

frm_principal.querylogin.close;

frm_principal.querylogin.sql.clear;

frm_principal.querylogin.sql.add(strsqllog);

frm_principal.querylogin.open;

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
desculpe amigo voce poderia detalhar melhor como usar a funcao que voce se referiu

O que eu falei seria:

ShowMessage(strsqllog);

Aí você veria que existem elementos que estão "grudados" ali, ou seja, faltam espaços em determinados locais.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0

Alo parceiro

Eu tentaria com estas mudanças, porem não testei é só uma idéia.

begin

procedure TLogin.Button1Click(Sender: TObject);

var

strsqllog: string;

begin

strsqllog:='SELECT * FROM usuario,perfil WHERE (usuario.nivel = perfil.id) and

( fantasia = '#39+valornome.Text+#39') and (senha = '#39+valorsenha.Text+#39')';

frm_principal.querylogin.close;

frm_principal.querylogin.sql.clear;

frm_principal.querylogin.sql.add(strsqllog);

frm_principal.querylogin.prepare;

frm_principal.querylogin.open;

Se não ajd tentei Luiz wink.gif

Link para o comentário
Compartilhar em outros sites

  • 0

Que tal dar uma melhorada no código...

With querylogin do Begin

Close;

DataBaseName := 'acme';

SQL.Add('select * from usuario, perfil');

SQL.Add('where (usuario.nivel='+#39+perfil.id+#39+')');

SQL.Add(' and');

SQL.Add(' (fantasia='+#39+valornome.Text+#39+')');

SQL.Add(' and');

SQL.Add(' (senha='#39+valorsenha.Text+#39+')');

SQL.SaveToFile('c:\temp\savebeforeopen.txt');

Try

Open;

ShowMessage('Abriu!');

Except

ShowMessage('Não abriu...');

End;

End;{With querylogin}

Antes de abrir, a query será salva no arquivo texto, e você pode testá-la no DbExplorer

ou no montador de queries do Delphi.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...