Preciso De Ajuda Para Resolver Este Problema Na Mi

[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;

[Graymalkin]

Acredito que deveria haver espaços antes daqueles ANDs. Experimente "ver" o conteúdo de strsqllog, através de um ShowMessage(), para verificar se a instrução SQL está realmente correta.

Abraços,

Graymalkin

[Guest - neyking -]

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

[s3c]

O que ele disse foi que o primeiro AND deve estar junto ao perfil.id e o segundo AND deve estar junto ao #39.

[Graymalkin]

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

[LuizAraujo]

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

[paulobergo]

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.