Til HRC

MyDataset.Edit;
MyDataset.FieldByName('MyDBFeltNavn').AsString := 'My String';
MyDataSet.Post;

/Martin

Tak for svaret Martin, men et lille spørgsmål. Det du har skrevet er det ikke for at gemme hvad der i DBEdit'erne? Hvis det er så var det ikke mit spørgsmål, men jeg var interesseret i at få hvad der står i min RichEdit ind i samme record som DBEdit'erne.

Idet at jeg bruger følgene procedure til at indsætte og gemme sker der det, at DBEdit'erne bliver gemt, men derefter gemmes indholdet i min RichEdit i en ny record. Det ønsker jeg ikke.
procedure TMainForm1.InsertToolButton3Click(Sender: TObject);
begin
  DBEdit1.Enabled := true;
  DBEdit2.Enabled := true;
  DBEdit3.Enabled := true;
  DBEdit4.Enabled := true;
  ADOTable1.Insert;
end;

procedure TMainForm1.SaveToolButton2Click(Sender: TObject);
var
  MemoryStream : TMemoryStream;
begin
  DBEdit1.Enabled := false;
  DBEdit2.Enabled := false;
  DBEdit3.Enabled := false;
  DBEdit4.Enabled := false;
  RichEdit1.Enabled := false;
  ADOTable1.Post;

{ Det er så her at jeg har et problem idet at når det efterfølgene kører opstår der en record, hvilket jeg gerne vil undgå. }

  MainForm1.ADOConnection1.Open; 
  MemoryStream := TMemoryStream.Create;
  try
    ADOQuery1.SQL.Text := 'insert into MalerDok (Tekst) values(:Tekst)';
    RichEdit1.Lines.SaveToStream(MemoryStream);
    MemoryStream.Seek(0,soFromBeginning);
    ADOQuery1.Parameters.ParamByName('Tekst').LoadFromStream(MemoryStream,ftFmtMemo);
    ADOQuery1.ExecSQL;
  finally
    MemoryStream.Free;
    MainForm1.ADOConnection1.Close;
  end;
end;

!!!! INSERT INTO >>> LAVER EN NY RECORD :)

ADOQuery1.SQL.Text := 'UPDATE MalerDok (Tekst) values(:Tekst) WHERE ID = '+IntToStr(MyID);

Hvad betydr det sidste:

WHERE ID = '+IntToStr(MyID);

undeclared identifier: 'MyID'

ID = "table-key-field" så du kan finde den rigtige record at opdatere :) ved ikke hvad dit keyfield hedder

Ømm, hvordan finder man lige det? Min primær nøgle feltet hedder ID.

Så efter din post kan du lave en ADOTable1.fieldbyname('ID').AsInterger

ADOQuery1.SQL.Text := Format('UPDATE MalerDok (Tekst) values(:Tekst) WHERE ID = %d',[ADOTable1.fieldbyname('ID').AsInterger]);

og smut så ned og køb det IDG Delphi hæfte :0)

Man kan altså ikke få dem mere.

Hmm, så må du ned på det lokale bib. eller Polytekninsk boghandel i Lyngby :)

Nej, det jeg mener er, at jeg har fået af vide fra en boghandler at de ikke bliver lavet mere.

Jeg får en fejl som siger:

Syntax error in UPDATE statement.

Jamen så er der vel noget galt med din SQL tekst, du må jo se hvad der står i den, brug debug, resten af din kode ser fin ud.

"Update table set field = :param where key = :param" sådan ser update syntax'en ud, den kan du finde på google sammen med alle de andre sql commands

Ja, den var ikke rigtig. Den skulle se sådan her ud:

ADOQuery1.SQL.Text := Format('UPDATE MalerDok SET Tekst = :Tekst WHERE  ID = %d',[ADOTable1.fieldbyname('ID').AsInteger]);

Hvis du har lyst til at hjælpe mig med det sidste omkring dette og det er at læse det ind igen. Det virker som om at den bare læser den sidste record uanset hvilken jeg vælger fra Combobox. Point sætter jeg op, hvis interesseret.

Jeg prøver sådan her:

procedure TMalerMainForm1.ComboBox1Select(Sender: TObject);
  var
  MemoryStream : TMemoryStream;
begin
  ADOTable1.Locate('Ordrenr', ComboBox1.Items[ComboBox1.ItemIndex],[loCaseInsensitive]);
  MainForm1.ADOConnection1.Open;
  try
    ADOQuery1.SQL.Text := 'select Tekst from MalerDok where id=(select max(id) from MalerDok)';
    ADOQuery1.Open;
    try
      if not ADOQuery1.Eof then
      begin
        MemoryStream := (ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('Tekst'),bmRead) as TMemoryStream);
        try
          RichEdit1.Lines.LoadFromStream(MemoryStream);
        finally
          MemoryStream.Free;
        end;
      end;
    finally
      ADOQuery1.Close;
    end;
  finally
    MainForm1.ADOConnection1.Close;
  end;
end;

Det er løst også. Fandt ud af det.