Memo поле [D6, dBase, FoxPro]
SergeyI © (2003-06-26 17:22:00)
Уважаемые 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
