Fórum ADO Delphi #298155

var
  oADOConnection: TADOConnection;
  oADODataSet: TADODataSet;
  oADOCommand: TADOCommand;
begin
  oADOConnection := TADOConnection.Create(nil);
  oADODataSet := TADODataSet.Create(nil);
  oADOCommand := TADOCommand.Create(nil);
  try
    //conexao
    oADOConnection.ConnectionString := ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TESTE.MDB;Persist Security Info=False´;
    oADOConnection.LoginPrompt := False;
    oADOConnection.Connected := True;

    //abre recordset para o dataset do delphi
    oADODataSet.Connection := oADOConnection;
    oADODataSet.CommandText := ´SELECT CAMPO... WHERE... TESTE = :TESTE´;
    oADODataSet.Parameters.ParamByName(´TESTE´).Value := ´xxx´; //setando parametro
    oADODataSet.Open;
    
    while not oADODataSet.Eof do
    begin
      ShowMessage(oADODataSet.FieldByName(´CAMPO´).AsString);
      oADODataSet.Next;
    end;
    
    oADODataSet.Close;

    //para comandos de manutencao de dados...
    oADOCommand.Connection := oADOConnection;
    oADOCommand.ExecuteOptions := [eoExecuteNoRecords];
    oADOCommand.CommandText := ´INSERT INTO... ou UPDATE... ou DELETE... WHERE... TESTE = :TESTE´;
    oADOCommand.Parameters.ParamByName(´TESTE´).Value := ´xxx´; //setando parametro
    oADOCommand.Execute;
  finally
    oADOConnection.Free;
    oADODataSet.Free;
    oADOCommand.Free;
  end;