Fórum erro ao consultar #559254

13/07/2016

0

Vi alguns posts com essa mesma dúvida, mas nao consegui consertar meu código.
Dando erro "DATASET NOT IN EDIT OR INSERT MODE".
Onde ponho esse edit ou insert? Tenho que usar mesmo apenas fazendo consulta na tabela?
PF alguem me ajude.

procedure Tf_login.BitBtn1Click(Sender: TObject);
begin

 dmdados.query_login.Close;
 dmdados.query_login.ClearFields;


 dmdados.query_login.SQL.Text:='select login,senha from usuarios where login=' +
 quotedstr(edtLogin.Text)+ 'and senha='+ quotedstr(edtSenha.Text);
 dmdados.query_login.open;

 if dmdados.query_login.IsEmpty then
  begin
      showmessage('Acesso negado!');
     dmdados.query_login.Close;
     edtLogin.Clear;
     edtsenha.Clear;
  end
   else
    begin
        f_principal.Show;
        close;
    end;
 end;
Ivo Nascimento

Ivo Nascimento

Responder

Posts

14/07/2016

Raimundo Pereira

Bom dia, seu objetivo é apenas consulta, não usará nem edit sem insert.


dmdados.query_login.Close;


dmdados.query_login.SQL.Text:=''select login,senha from usuarios where login='''''' +
quotedstr(edtLogin.Text)+ ''''''''and senha=''''''+ quotedstr(edtSenha.Text)+'''''''';

dmdados.query_login.open;

if dmdados.query_login.IsEmpty then
begin
showmessage(''Acesso negado!'');
dmdados.query_login.Close;
edtLogin.Clear;
edtsenha.Clear;
end
else
begin
f_principal.Show;
close;
end;
end;
Responder

Gostei + 0

14/07/2016

Ivo Nascimento

Então porque a mesagem?Dando erro "DATASET NOT IN EDIT OR INSERT MODE".
Ah, e pq tantas aspas? nao entendi.

Bom dia, seu objetivo é apenas consulta, não usará nem edit sem insert.


dmdados.query_login.Close;


dmdados.query_login.SQL.Text:=''''select login,senha from usuarios where login=[b]''''''''''''[/b] +
quotedstr(edtLogin.Text)+ [b]''''''''''''''''and senha=''''''''''''[/b]+ quotedstr(edtSenha.Text)+[b]''''''''''''''''[/b];

dmdados.query_login.open;

if dmdados.query_login.IsEmpty then
begin
showmessage(''''Acesso negado!'''');
dmdados.query_login.Close;
edtLogin.Clear;
edtsenha.Clear;
end
else
begin
f_principal.Show;
close;
end;
end;
Responder

Gostei + 0

14/07/2016

Raylan Zibel

Em qual linha está dando a mensagem quando você faz a depuração?
Responder

Gostei + 0

15/07/2016

Ivo Nascimento

Em qual linha está dando a mensagem quando você faz a depuração?


aqui>> dmdados.query_login.SQL.Text:=''''''''select login,senha from usuarios where login='''''''''''''''''''''''' +
quotedstr(edtLogin.Text)+ ''''''''''''''''''''''''''''''''and senha=''''''''''''''''''''''''+ quotedstr(edtSenha.Text)+'''''''''''''''''''''''''''''''';
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar