Results 1 to 8 of 8

Thread: Toevoegen nieuwe record

  1. #1

    Talking Toevoegen nieuwe record

    Goedendag,

    Ik heb een database over producten gemaakt.
    Verder heb ik in een form gezorgd dat je met 3 Edit velden een nieuwe product kunt invoeren, namelijk:
    Productnr, Omschrijving, Inkoopprijs

    Nadat ik een nieuw productnr heb ingevoerd moet deze in de database komen met behulp van een TButton.

    Hoe zorg ik dan dat dit wordt toegevoegd in mijn database?
    En hoe zit dat dan met de "referential integrity" met de 1-op-veel relatie met bevoorbeeld een tabel ORDER.

    Alvast bedankt,
    Groeten,

    A.Verbaandert

  2. #2
    5th member of nldelphi
    Join Date
    Mar 2001
    Location
    Alkmaar
    Posts
    2,127
    Voor het inserten zou je bv iets van het volgende doen.
    Let op is wel ruw uit het hoofdje.

    Code:
    procedure TForm.Button1Click(Sender: TObject);
    begin
      try
        Datamodule.Tabel.Insert;
        Datamodule.Tabel.FieldByName('Veld1').text := Edit1.text;
        Datamodule.Tabel.FieldByName('Veld2').text := Edit2.text
        Datamodule.Tabel.FieldByName('Veld3').text := Edit3.text;
        DataModule.Tabel.Post;
      except
       on E: Exception do
         DataModule.Tabel.Cancel;
      end;
    end;
    En wat de referentiele integriteit betrefd kan ik je niet verder helpen.

    PS. dit bovenstaande is gebaseerd op gebruik van een DataModule en
    NO DataAware Controls.

    Succes,

    Richard
    RLD

  3. #3
    Nog makkelijker is het om wel data-aware controls te gebruiken. Na een Append op je DataSet kan je gebruiker de gegevens tikken, onder de knop doe je een Post op je DataSet en je regel staat in de database.

    De referential integrity wordt (als het goed is) door je database afgevangen.
    Marcel

  4. #4
    hoi


    en hebt u daar een voorbeeld met code van, ik snap het zo niet


    Marc

  5. #5
    5th member of nldelphi
    Join Date
    Mar 2001
    Location
    Alkmaar
    Posts
    2,127
    Marcus Aurelius,

    Plaats op je formulier een x aantal data aware controls zoals bv : een TDBEdit
    zorg er voor dat de TDBEdit dmv de property Datasource en DataField aan de
    betreffende dataset 'gehangen' wordt.

    plaats tevens 2 x een TButton (caption = Append en de ander = Post)

    dan in het onclick event van de append button iets van :
    Code:
     DataModule.Tabel.Append;
    en in het onclick event van de post button iets van :
    Code:
     DataModule.Tabel.Post;
    En dan zou het moeten lukken.
    PS. het is niet gezegt dat je een datamodule nodig hebt ofzo hoor.

    Richard
    RLD

  6. #6
    ja zo bedoel je.


    ik was even niet mee met de uitleg.


    Bedankt



    Marc

  7. #7

    Exclamation Delphi voegt geen record in

    Goedendag,

    Na onderstaande code te hebben ingevoerd, voegt Delphi het ingevoerde record niet in de database:

    procedure TForm4.Button2Click(Sender: TObject);
    begin
    try
    Table1.Insert;
    Table1['VoorraadNr']:=Edit2.Text;
    Table1['Soort']:=Edit3.Text;
    Table1['Type']:=Edit4.Text;
    Table1['Besteleenheid']:=Edit5.Text;
    Table1['Inkoopprijs']:=Edit6.Text;
    Table1.Post;
    except
    on E:Exception do
    Table1.Cancel;
    end;

    Want wanneer ik bijvoorbeeld het voorraadnr '99' invoer met verdere gegevens, en ik vraag later dit op met behulp van een Query, verschijnt het nieuw ingevoerde record niet.

    Wat doe ik fout ?

    Alvast bedankt

  8. #8
    Als er een fout optreedt doe je een cancel, maar die fout zie je nooit meer terug. Probeer het eens op deze manier:
    Code:
    except 
      on E:Exception do 
      begin
        Table1.Cancel; 
        raise;
      end;
    end;
    Als er dan een fout optreedt zie je die ook verschijnen.
    Marcel

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Preview Quickreport komt niet op
    By Mike in forum Algemeen
    Replies: 6
    Last Post: 13-Dec-04, 23:19
  2. Komt niet in "Table1.Findkey([x])"??
    By Mike in forum Databases
    Replies: 5
    Last Post: 23-Jul-04, 21:17
  3. ras statistieken
    By Delphifreak in forum WebDelphi
    Replies: 25
    Last Post: 06-Mar-03, 22:19
  4. Record toevoegen
    By Dizzy in forum Databases
    Replies: 1
    Last Post: 31-Jul-02, 18:17

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
  •