Sou novato em Delphi e reparei que não há a presença de uso de variáveis como data readers nessareaders
nesse linguagem como no VB. Estou fazendo umaum procedure
para logar no sistema. aA conexão com o banco já esta pronta e funcional minha duvida é:
Como prosseguir com a leitura de dados no banco agora?
Procedure de conexão com o banco: Segue código com a conexão com o banco:
procedure TFrmPrincipal.GetConnection();
var
diretorioDb : String;
begin
diretorioDb := ExtractFilePath(ParamStr(0));
if FileExists(diretorioDb + 'DataBase.mdb') then begin
begin
if dmDados.bdConnection.Connected = false then begin
begin
dmDados.bdConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Psddword="";Data Source=' + diretorioDb + 'DataBase.mdbde Seu programa';
dbDados.bdConnection.Connected := true;
:= true;
end
end else begin
begin
dmDados.bdConnection.Connected := false;
end;
end else begin
else
begin
ShowMessage('Banco de Dados não Encontrado!');
end;
end;
Procedure para efetuar o Login: Método de login:
procedure TfrmLogin.LogarSistema(userPr: string; senhaPr: string);
begin
with dmDados.query do begin
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM usuarios WHERE username =userPr and senha =senhaPr');
Parameters.ParamByName('userPr').Value := userPr;
Parameters.ParamByName('senhaPr').Value := senhaPr;
ExecSQL;
end;
showmessage('Logado Com Sucesso!');
end;
end.