Results 1 to 8 of 8

Thread: Delete Record

  1. #1

    Delete Record

    Goedendag,

    Ik heb een tabel die ik laat zien in een DBGrid.
    Vraagje
    Hoe kan ik een record deleten met behulp van een Query, Button en een Edit1.Text.
    Zodat je in dat Edit.Text het nummer intikt van het te verwijderen record.

    Alvast bedankt,
    A.V.

  2. #2
    Even kort.... Thuis heb ik geen delphi meer, dus even op de gok :

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Query1.CommandText := Format('Delete from tabel where Nummer = %s', [Edit1.Text]                 // Ado Query
      Query1.Execute;
    end;


    Wel even een transactie omheenzetten
    *Er bestaat geen bugs, alleen leerpunten*

  3. #3

    Question ?

    De code werkt helaas niet.

    Iemand die mij kan helpen ?

  4. #4
    TDelphiDeveloper Baldo's Avatar
    Join Date
    Apr 2002
    Location
    Hellevoetsluis
    Posts
    498
    Dat moet dan zijn:

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Query1.SQL := Format('Delete from tabel where Nummer = %s', [Edit1.Text]);                 // Ado Query
      Query1.ExecSQL;
    end;
    (ook even uit het hoofd )
    Why is it that every time I think I'm holding all the cards, it turns out we're playing chess?
    Download Re-Depend, onmisbaar als je met packages build

  5. #5
    Of was het:
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Query1.SQL.Text := Format('Delete from tabel where Nummer = %s', [Edit1.Text]);                 // Ado Query
      Query1.ExecSQL;
    end;
    Ik kan helemaal niks uit m'n hoofd
    Marcel

  6. #6
    Senior Member walterheck's Avatar
    Join Date
    Oct 2001
    Location
    Belo Horizonte, Brasil
    Posts
    4,212
    of je vult de sql van de query al op design-time met:
    Code:
    delete from tabel where (Nummer = :nummer)
    en dan op runtime (onder de onclick van je knop)

    Code:
        query1.ParamByName('nummer').AsString:=edit1.text;
    Nee, de Romeinen spraken geen ISO-8859-1 LATIN

  7. #7
    Senior Member McTinus's Avatar
    Join Date
    May 2001
    Location
    Hoek van Holland
    Posts
    389
    Waar is de NLDelphi Code Completion feature gebleven

    Ik kan ook niets meer uit het bolleke coderen.

  8. #8
    Doen we het gewoon nog laffer .... Vergeet de query.....


    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if assigned(DBGrid1.Datasource.DataSet) then
      begin
    
        with DBGrid1.Datasource.DataSet do
        begin
          if Locate('Nummer', Edit1.Text, []) then
            Delete;
    
        end;
    
      end;
    end;
    Misschien niet helemaal netjes, maar het werkt wel (Als het goed is....)
    *Er bestaat geen bugs, alleen leerpunten*

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Delete record uitschakelen DBGRID
    By MichaelGil in forum Databases
    Replies: 8
    Last Post: 04-Apr-04, 21:22
  2. Queries en updat/insert van een delphi record type
    By TomTomTom in forum Databases
    Replies: 4
    Last Post: 26-Mar-03, 22:43
  3. ras statistieken
    By Delphifreak in forum WebDelphi
    Replies: 25
    Last Post: 06-Mar-03, 22:19
  4. delete record in tabel
    By Boss in forum Databases
    Replies: 13
    Last Post: 20-Nov-02, 02:40

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •