Outros Problemas com dbexpress
fiz sistema de login onde mesmo efetua pesquisa via sql do campo login e senha usando sqlquery ,datasource,clientedataset,datasetprovider so que clico no botao acessar seguinte erro apareçe:
Operation not supported.
como resolvo isso me ajudem mais uma vez .
Operation not supported.
como resolvo isso me ajudem mais uma vez .
Felipe Barlera
Curtidas 0
Respostas
Deivison Melo
02/10/2013
É interessante que poste seu código para termos um melhor entendimento!
O código do botão que vc clica!
O código do botão que vc clica!
GOSTEI 0
Felipe Barlera
02/10/2013
procedure Tfrmlogin.Button1Click(Sender: TObject);
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;
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
Marcos Oliveira
02/10/2013
Felipe, acho que você esqueceu de informar a sua SQL. Pelo código você informou só os parâmetros.
Att,
Marcos
Att,
Marcos
GOSTEI 0
Felipe Barlera
02/10/2013
como assim informa a sql?
GOSTEI 0
Marcos Oliveira
02/10/2013
Felipe, se eu não estiver enganado, faltou você montar sua query (SQL).
Entendeu? Pelo seu fonte, você só informou os parâmetros.
Att,
Marcos
sql_query_login.SQL.Text := 'select * from tabela where...'; //
Entendeu? Pelo seu fonte, você só informou os parâmetros.
Att,
Marcos
GOSTEI 0
Deivison Melo
02/10/2013
Marcos,
Ele pode ter informado direto na property SQL!
Ele pode ter informado direto na property SQL!
GOSTEI 0
Felipe Barlera
02/10/2013
informei direto la mesmo continua o erro
GOSTEI 0
Marcos Oliveira
02/10/2013
Felipe, poste o texto da sua SQL, por favor.
GOSTEI 0
Deivison Melo
02/10/2013
Informe a sql colocada na property para verificarmos os erros!
GOSTEI 0
Felipe Barlera
02/10/2013
o sql esta com sequinte codigo no sqlquery :
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.
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
Carlos Bernardo
02/10/2013
procedure Tfrmlogin.Button1Click(Sender: TObject);
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;
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
Felipe Barlera
02/10/2013
erro não deu mais so que quando digita os dados ele so executa ultimo showmessage independente dos dados estao certo o errados so executa ultimo showmessage..
GOSTEI 0
Felipe Barlera
02/10/2013
Não tive sorte com dbexpres tem outros componetes bons que posso usa para liga banco de dados ,dbexpres ta me dando muito problema as ligaçoes tabela feita todas correstas mesmo nao salva os dados no banco de dados etc
GOSTEI 0
Carlos Bernardo
02/10/2013
erro não deu mais so que quando digita os dados ele so executa ultimo showmessage independente dos dados estao certo o errados so executa ultimo showmessage..
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
Felipe Barlera
02/10/2013
Boa Noite Amigos Poderiam ajuda as coneçoes para conseguir realizar login e senha ja tentei de tudo aqui nao consegui me ajudem .
GOSTEI 0
Felipe Barlera
02/10/2013
Amigo muito obrigado refiz novamente usando seguinte codigo agora deu certo
procedure Tfrmlogin.Button1Click(Sender: TObject);
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;
procedure Tfrmlogin.Button1Click(Sender: TObject);
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
José
02/10/2013
Como a duvida foi sanada. Estrou marcando o tópico como concluído.
GOSTEI 0