[Delphi] Posting MemoField To Database

[AdamLC]

Probably really easy to do, but I cant get my head round it. I want to post the contents of a memo box to a memo field in the database. I have tried all different types and cant think of a way round it. I am fairly new to delphi, any help is much apreciated :D

[Wilhelmus]

Long time since I used Delphi, but try this.

First, set DBMemo Datasource and Datafield properties.

Add this code to where you post the data, like button's OnClick event.

// Insert to insert new record and Edit to edit current record.
// Let's insert new record for now.
DBMemo1.DataSource.DataSet.Insert;
DBMemo1.DataSource.DataSet.FieldByName(DBMemo1.DataField).AsString := DBMemo1.Text;
DBMemo1.DataSource.DataSet.Post;

[AdamLC]

  Wilhelmus said:

Long time since I used Delphi, but try this.

First, set DBMemo Datasource and Datafield properties.

Add this code to where you post the data, like button's OnClick event.

// Insert to insert new record and Edit to edit current record.
// Let's insert new record for now.
DBMemo1.DataSource.DataSet.Insert;
DBMemo1.DataSource.DataSet.FieldByName(DBMemo1.DataField).AsString := DBMemo1.Text;
DBMemo1.DataSource.DataSet.Post;

Thanks for the help. Doesn't seem to work though, well what I have got is the following:

DataMod.dsTransactions.DataSet.FieldByName(DataMod.dsTransactions.DataSet.DataSetField.AsString) := Receipt.Text;

I can a left cannot be assigned to error, btw I do have the edit etc. The above was done on using auto complete thinggy as the exact code doesn't match. Any ideas?

Also just noticed, I am not using a DBMemo field. I need to add stuff too it as I go along you see. If I was to use a DBMemo I would have to make loads of changes to me code.

[_kane81]

^

well that is poor programming on your behalf- you have tightly bound your code to the

Either way I would move to dbmemo, it makes life simple.

change

DataMod.dsTransactions.DataSet.FieldByName(DataMod.dsTransactions.DataSet.DataSetField.AsString) := Receipt.Text;

to

DataMod.dsTransactions.DataSet.FieldByName(DataMod.dsTransactions.DataSet.DataSetField.AsString).Value := Receipt.Text;

[AdamLC]

It may be poor coding on my part. But I am only doing this for my coursework which is in for next week :p. I haven't got time to change all the code now. Is there no other way it can be done? Some sort of loop maybe?

[_kane81]

^

did you try what I jus suggested?

[AdamLC]

  _kane81 said:

^

did you try what I jus suggested?

Yes. Its runs ok but I get an access violation :no: