Olá a todos. Criei um procedimento para verificar se um usuário está cadastrado no banco de dados. Utilizo Firebird como BD e componentes Zeos para acessar o banco. Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clico no botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco.
Segue o código:
procedure Tfrm_login.SpeedButton1Click(Sender: TObject);
var Qry : TZQuery;
begin
Qry:=TZQuery.Create(nil);
Qry.Connection := dm_dados.ZConnection1; //componente de conexão
Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes');
Qry.Open;
if Qry.Locate('USER',Edit1.Text,[]) then
begin
ShowMessage('usuário cadastrado');
end
else
begin
ShowMessage('usuário inexistente');
Edit1.SetFocus;
end;
FreeAndNil(Qry);
end;
Se alguém puder ajudar agradeço desde já.
Obrigado
No DataModule tenho um SQLDataSet, DataSetProvider, DataSet, quando abro o banco de dados e tento abrir a tabela TBLUSUARIOS em tempo de desenvolvimento no SQLDataSet, dá um erro: "Unknown ISC Error 0" e quando tento novamente "Attempet to reopen an open cursor". Quando digito a Query SQL no CommandText do SQLDataSet e mudo a propriedade Active para True ele retorna este erro. Ele consegue abrir qualquer uma das outras tabelas do banco de dados, menos a tabela em questão.
Estava abrindo perfeitamente com o SimpleDataSet mas apaguei para usar o SQLDataSet e obtive este erro. O engraçado que tentei retornar para SimpleDataSet mas também não funciona mais, alguém pode me ajudar?
Ja habilitei a extençao no XAMPP, e ja tentei no Wampserver tambem
Aqui esta o codigo
<?php
$servidor = '127.0.0.1/3050:C:/TUTORIAL.FDB';
//conexão com o banco, se der erro mostrara uma mensagem.
if (!($dbh=ibase_connect($servidor, 'SYSDBA', 'masterkey')))
die('Erro ao conectar: ' . ibase_errmsg());
//Fazer uma consulta no banco.
//Instruções SQL
$sql = 'SELECT * FROM fornecedores';
//Executa a instrução SQL
$re= ibase_query($dbh, $sql);
$num= ibase_affected_rows($re);
//gera um loop com as linhas encontradas
if($num > 0){
while($linha = ibase_fetch_object($re)){
echo "
<p>{$linha->COD_FORNEC}</p>
<p>{$linha->NOME_FORNEC}</p>
<p>{$linha->EMAIL}</p>";
}
}else{
echo "Nenhum foodtruck encontrado";
}
// //Libera a memoria usada
ibase_free_result($query);
// //fecha conexão com o firebird
ibase_close($dbh);
?>
Fiz varias aplicações no win XP + Delphi7+Firebird+IBExpress.
Agora, com micro de 64 bits, tive que colocar tudo em máquina virtual por problemas de compatibilidade.
Ok... Faço o banco de dados com senha SYSDBA e password: masterkey (default)
No Delphi 7, componentes IBdatabase e IBtransation, nos campos Param/strings coloco o user_name e password, como sempre fiz. e sempre funcionou
PROBLEMA. Se vou carregar a aplkicação, fica pedindo senha
Se vou compilar (F9) pede a senha de novo
Como resolvo isso??? Não sei o que está ocorrendo aqui
Agradeço a ajuda