Скачать: CL | DM;

Memo поле   Найти похожие ветки 

← →
SergeyI ©   (2003-06-26 17:22) [0]

Уважаемые ALL, помогите решить проблему
есть VFoxPro таблица созданая :
CREATE TABLE Mess (id integer , dat timeStamp,Subj char(100),text memo,WRead integer)
пишу туда

Acom.Parameters.Clear;
Acom.CommandText := "Insert into Mess (id,Dat,Subj,text,WRead) values (:i,:D,:S,:T,0)";
acom.Parameters.ParseSQL(acom.CommandText,true);

While not rs.EOF do begin
Acom.Parameters.ParamValues["i"] := Rs.Fields["id"].Value;
Acom.Parameters.ParamValues["D"] := Rs.Fields["Dat"].Value;
Acom.Parameters.ParamValues["S"] := Rs.Fields["Subj"].Value;
str1 := Rs.Fields["Text"].Value;
Acom.Parameters.ParamValues["T"] := str1;
acom.Execute;
rs.MoveNext;
end;
А пишуться в поле text только первые 255 символов как победить ?

---

← →
sniknik ©   (2003-06-26 18:47) [1]

попробуй через блоб поле закачивать
так примерно

MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
TBLOBField(ADODataSet1.FieldByName("Text").SaveToStream(MS);
MS.Position:= 0;
ADODataSet1.Parameters[3].LoadFromStream(MS, ftMemo);
finally
MS.Free;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c