[delphi][ADO]Deleten over twee tabellen

[PTBoy]

Ik heb twee tabellen in Access, met een foreign key er tussen. Als ik de volgende code uitvoer, krijg ik een foutmelding over dat er nog waardes in de Detail-tabel zouden zitten. Als ik het programma afsluit en opnieuw opstart mag ik het record wel verwijderen. Gaan de twee deletes te snel achter elkaar??

code:

  with ADOQuery do
  begin
    SQL.Clear;
    SQL.Add('delete from playlist_entries ' + 
        'where playlist = ' +
        IntToStr(ADOTable1.FieldByName('id').AsInteger));
    Prepared := true;
    i := ExecSQL;
    Close;
  end;
  ADOTable1.Requery();
  ADOTable1.Delete;

[Goodielover]

Begrijp ik het goed dat het eerste statement de details verwijderd en het tweede ADOTable1.Delete het master record.

[PTBoy]

Dat klopt helemaal.

[Goodielover]

Ik ken geen ADO dus volgende vragen dom:
Ik zie een Close: Waar is de Open?
Is die Requery nodig? Doet die misschien een impliciete Rollback?
Wie weet helpen mijn domme vragen.

[PTBoy]

Die Close en Requery heb ik er ingezet omdat ie het niet deed. Ik dacht 'baat het niet, het schaad ook niet'. kun je dus wegdenken...

[jelmervos]

Even iets anders, maar wel makkelijk: gebruik parameters:

code:

SQL.Clear;
    SQL.Add('delete from playlist_entries ' +
        'where playlist = :playlist);

    ParamByName('playlist').Value := ADOTable1.FieldByName('id').AsInteger;

[PTBoy]

Tsja, da's inderdaad netter... Maar net programmeren voor m'n hobbieprojecten....

[PTBoy]

Ik heb (volgens mij) de oplossing. Ik heb op het hoofdform een ADOConnection-component gezet, met daarin de connectstring. Ik laat nu alle componenten naar dit component verwijzen, ipv overal de connectstring in te zetten... Schijnt nu goed te gaan...

[Delphi32]

Op dinsdag 18 juni 2002 19:46 schreef PietM het volgende:
Ik heb (volgens mij) de oplossing. Ik heb op het hoofdform een ADOConnection-component gezet, met daarin de connectstring. Ik laat nu alle componenten naar dit component verwijzen, ipv overal de connectstring in te zetten... Schijnt nu goed te gaan...

Precies, want waar jij last van had was een session-probleem. De session waarmee ADOTable1 werkte was een 'oudere' dan de session waarmee je de detail records verwijderde. De Session van ADOTable1 wist dus niet dat ze verwijderd waren. Vandaar dat je oplossing werkt (en de enige juiste oplossing is).

[PTBoy]

Yep, weer wat geleerd.... [zo leer je elke dag wat...]