F�rum erro ao consultar #559254

13/07/2016

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

Curtir t�pico

+ 0

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