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

TsqlDataSet +Dbexpress+Mysql   Найти похожие ветки 

← →
совсем чайник   (2007-02-20 14:28) [0]

Здравствуйте проблема в следующем:
использую TSqlDataset, по параметрам настроен он правильно, т.е. поля в таблице конкретной он "видит". Но после попытки применить к нему метод edit. Он пишет ошибку "Cannot modify a read-only dataset" вот собственно и вопрос что необходимо сделать, чтобы dataset стал не read only ?

---

← →
Reindeer Moss Eater ©   (2007-02-20 15:09) [1]

There is no built-in editing support: you can only edit the data in an SQL dataset by explicitly creating an SQL UPDATE command or by connecting the dataset to a client dataset using a provider.

---

← →
совсем чайник   (2007-02-20 15:13) [2]

Понял, извините что сразу не уточнил в справочной информации (
тогда второй вопрос:
необходимо вставить картинку в blob поле, действую следующим образом:
if rra.image<>"" then
 begin
   fproc.q1.ParamByName("paramblob").DataType := ftBlob;
   fproc.Q1.ParamByName("paramblob").ParamType := ptInput;
   fproc.Q1.ParamByName("paramblob").LoadFromFile(rra.image,ftBlob);
   fproc.q1.SQL.Text:=fproc.q1.SQL.Text+",sepcimage="":paramblob""";
 end;
try
 fproc.q1.ExecSQL(true);
 result:=0;
except
 result:=1;

При execsql выдается ошибка, что нет параметра "paramblob" , хотя параметр с этим названием создавался в disign-time  и он абсолютно точно есть, вот собственно доказательство:
 object q1: TSQLQuery
   MaxBlobSize = -1
   Params = <
     item
       DataType = ftBlob
       Name = "paramblob"
       ParamType = ptInput
     end>

---

← →
Reindeer Moss Eater ©   (2007-02-20 15:19) [3]

ParamCheck property (TCustomSQLDataSet)

Specifies whether the parameter list for an SQL dataset is regenerated when the SQL command changes.

---

← →
совсем чайник   (2007-02-20 15:30) [4]

Понял, переделал, теперь верно?

if rra.image<>"" then
 begin
   fproc.q1.SQL.Text:=fproc.q1.SQL.Text+",sepcimage="":paramblob""";
   p:=tparam.Create(nil);
   p.Name:="paramblob";
   fproc.q1.Params.AddParam(p);
   fproc.q1.ParamByName("paramblob").DataType := ftBlob;
   fproc.Q1.ParamByName("paramblob").ParamType := ptInput;
   fproc.Q1.ParamByName("paramblob").LoadFromFile(rra.image,ftBlob);
 end;
try
 fproc.q1.ExecSQL(true);
 result:=0;
except
 result:=1;

---

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

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



Память: 0.46 MB
Время: 0.027 c