Hallo,
ich habe folgendes Problem,
ich nutze einen
SQL Server 2008 und will in einer Tabelle den Body einer zuverschikenden Email speichern,
und habe hierzu eine Tabelle angelegt
tblEmail
SQL-Code:
CREATE TABLE [dbo].[tblEmail](
[EmailID] [bigint] NULL,
[EmailHost] [nvarchar](50) NULL,
[EmailUserName] [nvarchar](50) NULL,
[EmailPort] [bigint] NULL,
[Sender] [nvarchar](50) NULL,
[Headline] [nvarchar](50) NULL,
[Body] [text] NULL,
[EmailPasswort] [nvarchar](50) NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
Das Feld Body habe ich als text angelegt.
Nun will ich einen Mehrzeiligen Text aus einem Memo Feld in meiner Datenbank speichern,
dazu muss ich den Wert auslesen in ein Memo laden ändern und zurückschreiben können.
Delphi-Quellcode:
with TADOQuery.Create(Self)
do
begin
Connection := ADOConnection1;
SQL.Clear;
Active := False;
SQL.Text := '
SELECT * FROM tblEmail';
Active := True;
First;
Edit;
//Test
ShowMessage(emaildat.body.Text);
FieldByName('
Body').AsWideString:=emaildat.body.Text;
// Hier wird immer nur die 1. Zeile in der DB gespeichert...
Update;
end;
// of with TADOQuery.Create(Self) do
end;
// of function TFrmMainGUI.GetEmailData(var emaildat: REmailInfos): Boolean;
Leider wird bei der Methode die ich anwende immer nur der 1. String gespeichert des Memos. Ich weiß nicht wo das Problem ist.
Vielleicht könnt ihr mir ja helfen
Danke
Gruß
DM