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.
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.
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*
De code werkt helaas niet.
Iemand die mij kan helpen ?
Dat moet dan zijn:
(ook even uit het hoofd )Code:procedure TForm1.Button1Click(Sender: TObject); begin Query1.SQL := Format('Delete from tabel where Nummer = %s', [Edit1.Text]); // Ado Query Query1.ExecSQL; end;
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
Of was het:Ik kan helemaal niks uit m'n hoofdCode:procedure TForm1.Button1Click(Sender: TObject); begin Query1.SQL.Text := Format('Delete from tabel where Nummer = %s', [Edit1.Text]); // Ado Query Query1.ExecSQL; end;
Marcel
of je vult de sql van de query al op design-time met:
en dan op runtime (onder de onclick van je knop)Code:delete from tabel where (Nummer = :nummer)
Code:query1.ParamByName('nummer').AsString:=edit1.text;
Nee, de Romeinen spraken geen ISO-8859-1 LATIN
Waar is de NLDelphi Code Completion feature gebleven
Ik kan ook niets meer uit het bolleke coderen.
Doen we het gewoon nog laffer .... Vergeet de query.....
Misschien niet helemaal netjes, maar het werkt wel (Als het goed is....)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;
*Er bestaat geen bugs, alleen leerpunten*
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks