Форум: "Базы";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Базы";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c