Erro ao compilar. [RESOLVIDO]

ramega
(usa Ubuntu)

Enviado em 26/01/2011 - 17:53h

Salve galera do VOL, novamente estou aqui para sanar uma dúvida. Bom vamos lá;

Estou criando um sistema com banco de dados, onde eu estou utilizando o lazarus e o zeos. Já tenho o form de cadastro de nome e senha, para tela de login, isto está rodando certo com o banco de dados. Criei um form de login e não estou conseguindo utilizar este form, pois gera este erro:

Error: identifier idents no member "Active"

Abaixo uma parte do código e em maiúsculo onde está dando o erro.

sql:='select * from acessando where nome = '+ quotedStr (Edit1.text);
sql:=sql + 'and senha = ' + quotedStr(Edit2.text);
ZQuery1Login.ACTIVE:=false;
ZQuery1Login.SQL.Clear;


desde já agradeço.

slackrichard
(usa Slackware)

Enviado em 26/01/2011 - 18:30h

Cara amigo veja como esta sendo interpretado seu comando sql :
select * from acessando where nome = jose da silvaand senha = 1234b34;

como pode ver os campos nome e senha estão sendo enviados sem aspas e o comando and esta sendo concatenado sem um espaço antes o correcto seria:

select * from acessando where nome = 'jose da silva' and senha = '1234b34';

assim o seu código deve ser algo como:

sql:="select * from acessando where nome = '"+ quotedStr (Edit1.text)+"'";
sql:=sql + " and senha = '" + quotedStr(Edit2.text)+"';";
ZQuery1Login.ACTIVE:=false;
ZQuery1Login.SQL.Clear;

qualquer coisa é so perguntar;

brian_ch
(usa Arch Linux)

Enviado em 26/01/2011 - 18:38h

Richard, o quotedStr serve justamente para colocar as aspas, de modo que fica:

select * from acessando where nome = 'jose da silva'and senha = '1234b34';

Mas quanto ao espaço antes do and você está certo mesmo.
De qualquer modo, acho que não pode ser isso, porque o erro ocorre em tempo de compilação e uma linha acima.

ramega
(usa Ubuntu)

Enviado em 26/01/2011 - 19:00h

Valeu galera, tive que alterar o código para;

ZQuery1.active:=false;

Como foi informado, não existe o "Active" após o Login.


Valeu.