Fórum Outros Problemas com dbexpress #457230
02/10/2013
0
Operation not supported.
como resolvo isso me ajudem mais uma vez .
Felipe Barlera
Curtir tópico
+ 0Posts
02/10/2013
Deivison Melo
O código do botão que vc clica!
Gostei + 0
02/10/2013
Felipe Barlera
begin
sql_query_login.Close;
sql_query_login.ParamByName('nome').AsString:=editlogin.Text;
sql_query_login.ParamByName('senha').AsString:=editsenha.Text;
sql_query_login.Open;
if (sql_query_login.RecordCount > 0)then
begin
ShowMessage('Seja Bem Vindo !');
end
else
begin
showMessage ('Você Não Tem Acesso ao Sistema');
modalresult:=mrNone;
end;
end;
Gostei + 0
02/10/2013
Marcos Oliveira
Att,
Marcos
Gostei + 0
02/10/2013
Felipe Barlera
Gostei + 0
02/10/2013
Marcos Oliveira
sql_query_login.SQL.Text := 'select * from tabela where...'; //
Entendeu? Pelo seu fonte, você só informou os parâmetros.
Att,
Marcos
Gostei + 0
02/10/2013
Deivison Melo
Ele pode ter informado direto na property SQL!
Gostei + 0
02/10/2013
Felipe Barlera
Gostei + 0
03/10/2013
Marcos Oliveira
Gostei + 0
03/10/2013
Deivison Melo
Gostei + 0
03/10/2013
Felipe Barlera
select * from tbl_login
where LOG_NOME =:nome and LOG_SENHA=:senha
tem datasource junto com sqlqueri e no dmdados os componetes normal para abir tabela.
Gostei + 0
03/10/2013
Carlos Bernardo
begin
sql_query_login.Close;
sql_query_login.ParamByName('nome').AsString:=editlogin.Text;
sql_query_login.ParamByName('senha').AsString:=editsenha.Text;
sql_query_login.Open;
// if (sql_query_login.RecordCount > 0)then
// Exclui a linha acima
if not(sql_query_login.isempty) then
// acrescenta a linha acima
begin
ShowMessage('Seja Bem Vindo !');
end
else
begin
showMessage ('Você Não Tem Acesso ao Sistema');
modalresult:=mrNone;
end;
end;
Gostei + 0
04/10/2013
Felipe Barlera
Gostei + 0
04/10/2013
Felipe Barlera
Gostei + 0
04/10/2013
Carlos Bernardo
Nao está fazendo confusão com Maiuscula e minuscula??... faz o seguinte teste:
with SQL_TESTE do
begin
close;
Sql.Clear;
Sql.Add('select * from tbl_login');
open;
end;
Sql_teste.first;
while not(SQL_Teste.eof) do
begin
if (sql_teste.fieldbyname('log_nome').asstring = editLogin.text) and (sql_teste.fieldbyname('log_senha').asstring = editSenha.text) then
ShowMEssage('Login e senha conferem')
else
begin
ShowMessage('Login Banco = '+ sql_teste.fieldbyname('log_nome').asstring + chr(13)+ 'Login Edit = ' + editLogin.text);
ShowMessage('Senha Banco = '+ sql_teste.fieldbyname('log_senha').asstring + chr(13)+ 'Login Senha = ' + editSenha.text);
end;
SQL_Test.next;
end;
Sobre o DBExpress ... eu uso sem maiores problemas...
Gostei + 0
05/10/2013
Felipe Barlera
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)