mykos Posted May 4, 2009 at 05:38 PM Report #261308 Posted May 4, 2009 at 05:38 PM ppl..Estou a fazer uma aplicaçao em ambiente gráfico para programaçao, corro o compilador e ele compila sem problemas, mas quando carrego no botao para fazer o login a aplicaçao dá erro, diz que nao encontra o campo "pass"..vou postar o código aqui para me darem a vossa opiniao sobre qual a origem do erro..ja agora, uso o lazarus.. codigo: procedure TForm1.Button1Click(Sender: TObject); var password,nivel_acesso:string; begin if sqlquery1.active then sqlquery1.close; sqlquery1.sql.Text:= ('select password as pass from utilizadores where numero= "'+edit1.text+'"'); password:=sqlquery1.FieldByName('pass').asString; sqlquery1.close; if (edit2.text)=password then begin sqlquery1.sql.Text:= 'select nivel_acesso as nivel from utilizadores where numero= "'+edit1.text+'"'; nivel_acesso:=sqlquery1.fieldbyname ('nivel').asString; sqlquery1.close; end else begin application.Messagebox('Erro no login, verifique as credenciais','Validação',1); end; Há algum erro no código?? Porque é que dá erro quando tento fazer login??
M6 Posted May 4, 2009 at 08:24 PM Report #261354 Posted May 4, 2009 at 08:24 PM Se diz que não encontra o campo pass então eu diria que não consegue encontrar o campo pass na tabela da base de dados onde estás ligado... O código funciona se trocares para password? Edit: já lá vão uns anos de Delphi, mas não era necessário declarar em edit time os campos que querias retornar? 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar."
mykos Posted May 4, 2009 at 08:44 PM Author Report #261366 Posted May 4, 2009 at 08:44 PM Se diz que não encontra o campo pass então eu diria que não consegue encontrar o campo pass na tabela da base de dados onde estás ligado... O código funciona se trocares para password? Não..dá o mesmo erro, só muda na descriçao, diz k não encontra o campo "password".. Edit: já lá vão uns anos de Delphi, mas não era necessário declarar em edit time os campos que querias retornar? Eu não uso o Delphi, mas nos tutoriais que o prof deu erav assim k estava e funcionava, mas no caso dos tutoriais era para a funçao "count"..e funcionava
M6 Posted May 5, 2009 at 08:46 AM Report #261477 Posted May 5, 2009 at 08:46 AM Se dá o mesmo erro, então confirma-se. Verifica se o servidor onde te estás a ligar tem essa tabela e se essa tabela tem essa coluna. Se a resposta é afirmativa, verifica se não tens de especificar o nome da coluna algures no componente da query. 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar."
mykos Posted May 6, 2009 at 04:44 PM Author Report #261900 Posted May 6, 2009 at 04:44 PM Não dá mesmo..vou ter que ir falar com o prof.. pessoal..como é que faço para por exemplo se tiver: nmr=32.36521 e quiser que fique só com 2 casas décimais? tipo: nmr=32.37 alguém sabe?
M6 Posted May 6, 2009 at 08:18 PM Report #261945 Posted May 6, 2009 at 08:18 PM Onde? Em Pascal ou na base de dados? 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar."
mykos Posted May 6, 2009 at 10:54 PM Author Report #262012 Posted May 6, 2009 at 10:54 PM em pascal..
M6 Posted May 7, 2009 at 08:42 AM Report #262042 Posted May 7, 2009 at 08:42 AM Formatas o número. Tens aqui um exemplo: http://www.computing.net/answers/programming/formatting-real-numbers-pascal/6036.html 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar."
mykos Posted May 7, 2009 at 11:32 AM Author Report #262087 Posted May 7, 2009 at 11:32 AM Obrigado M6!!!
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now