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;

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