Уважаемые, у меня следующий вопрос.
В компоненте ADOQuery не работает INSERT.
С чем это связано? Может быть надо включить
какое-нибудь свойство?

Здравствуйте, targentor, Вы писали:

T>Уважаемые, у меня следующий вопрос.
T>В компоненте ADOQuery не работает INSERT.
T>С чем это связано? Может быть надо включить
T>какое-нибудь свойство?

Что значит не работает? Ошибка какая-нибудь вываливается?

Здравствуйте, mishin, Вы писали:

M>Здравствуйте, targentor, Вы писали:

T>>Уважаемые, у меня следующий вопрос.
T>>В компоненте ADOQuery не работает INSERT.
T>>С чем это связано? Может быть надо включить
T>>какое-нибудь свойство?

M>Что значит не работает? Ошибка какая-нибудь вываливается?

Ошибка следующая: Multiple-step OLE DB operation generated errors.
Check each OLE DB status value, if available. No work was done.

T>Ошибка следующая: Multiple-step OLE DB operation generated errors.
T>Check each OLE DB status value, if available. No work was done.


код покажи

DL>код покажи

В свойстве SQL компонента ADOQuery пишу следующее:

INSERT INTO table(surname , name, patronymic,
department, act_number, data)
VALUES(:surname , :name, :patronymic,
:department, :act_number, :data)


При нажатии кнопки

DM.quInsertInfo.Close;
DM.quInsertInfo.Parameters.ParamByName('surname').Value := edSurname.Text;
DM.quInsertInfo.Parameters.ParamByName('name').Value := edName.Text;
DM.quInsertInfo.Parameters.ParamByName('patronymic').Value := edPatronity.Text;
DM.quInsertInfo.Parameters.ParamByName('department').Value := edDepartment.Text;
DM.quInsertInfo.Parameters.ParamByName('act_number').Value := edActNumber.Text;
DM.quInsertInfo.Parameters.ParamByName('data').Value := edDate.Date;
DM.quInsertInfo.ExecSQL;

Здравствуйте, targentor, Вы писали:

T>В свойстве SQL компонента ADOQuery пишу следующее:

T>INSERT INTO table(surname , name, patronymic,
T> department, act_number, data)
T> VALUES(:surname , :name, :patronymic,
T> :department, :act_number, :data)


T>При нажатии кнопки

T> DM.quInsertInfo.Close;
T> DM.quInsertInfo.Parameters.ParamByName('surname').Value := edSurname.Text;
T> DM.quInsertInfo.Parameters.ParamByName('name').Value := edName.Text;
T> DM.quInsertInfo.Parameters.ParamByName('patronymic').Value := edPatronity.Text;
T> DM.quInsertInfo.Parameters.ParamByName('department').Value := edDepartment.Text;
T> DM.quInsertInfo.Parameters.ParamByName('act_number').Value := edActNumber.Text;
T> DM.quInsertInfo.Parameters.ParamByName('data').Value := edDate.Date;
T> DM.quInsertInfo.ExecSQL;

Да вроде бы все ОК, но все таки попробуй сравнить правильные ли типы данных в параметрах, может быть проблема с восприятием даты
вот так должно сработать:
INSERT INTO table(surname , name, patronymic) VALUES('"Иванов"', '"Василий"', '"Иванович"')

Здравствуйте, targentor, Вы писали:

DL>>код покажи

T>В свойстве SQL компонента ADOQuery пишу следующее:

T>INSERT INTO table(surname , name, patronymic,
T> department, act_number, data)
T> VALUES(:surname , :name, :patronymic,
T> :department, :act_number, :data)


T>При нажатии кнопки

T> DM.quInsertInfo.Close;
T> DM.quInsertInfo.Parameters.ParamByName('surname').Value := edSurname.Text;
T> DM.quInsertInfo.Parameters.ParamByName('name').Value := edName.Text;
T> DM.quInsertInfo.Parameters.ParamByName('patronymic').Value := edPatronity.Text;
T> DM.quInsertInfo.Parameters.ParamByName('department').Value := edDepartment.Text;
T> DM.quInsertInfo.Parameters.ParamByName('act_number').Value := edActNumber.Text;
T> DM.quInsertInfo.Parameters.ParamByName('data').Value := edDate.Date;
T> DM.quInsertInfo.ExecSQL;

А без параметров пробовал? т.е. напрямую

DM.quInsertInfo.SQL.ADD('INSERT INTO table(surname , name, patronymic, department, act_number, data) VALUES('+#39''+edSurname.Text+#39''+',' etc.

Здравствуйте, dev.loper, Вы писали:

DL>Здравствуйте, targentor, Вы писали:

DL>>>код покажи

T>>В свойстве SQL компонента ADOQuery пишу следующее:

T>>INSERT INTO table(surname , name, patronymic,
T>> department, act_number, data)
T>> VALUES(:surname , :name, :patronymic,
T>> :department, :act_number, :data)


T>>При нажатии кнопки

T>> DM.quInsertInfo.Close;
T>> DM.quInsertInfo.Parameters.ParamByName('surname').Value := edSurname.Text;
T>> DM.quInsertInfo.Parameters.ParamByName('name').Value := edName.Text;
T>> DM.quInsertInfo.Parameters.ParamByName('patronymic').Value := edPatronity.Text;
T>> DM.quInsertInfo.Parameters.ParamByName('department').Value := edDepartment.Text;
T>> DM.quInsertInfo.Parameters.ParamByName('act_number').Value := edActNumber.Text;
T>> DM.quInsertInfo.Parameters.ParamByName('data').Value := edDate.Date;
T>> DM.quInsertInfo.ExecSQL;

DL>А без параметров пробовал? т.е. напрямую

DL>DM.quInsertInfo.SQL.ADD('INSERT INTO table(surname , name, patronymic, department, act_number, data) VALUES('+#39''+edSurname.Text+#39''+',' etc.

или же так

DM.quInsertInfo.SQL.ADD('INSERT INTO table(surname , name, patronymic, department, act_number, data) VALUES('+QuotedStr(edSurname.Text)+',' etc.

Здравствуйте, targentor, Вы писали:

T>Ошибка следующая: Multiple-step OLE DB operation generated errors.
T>Check each OLE DB status value, if available. No work was done.

Поставьте последний Microsoft Data Access Components (MDAC) и если не будет работать, то продолжим сию занимательную беседу.

Здравствуйте, targentor, Вы писали:
Что у вас не работает INSERT вы не могли бы написать ваш запрос.... так как у меня все корректно отрабатывает...
T>Уважаемые, у меня следующий вопрос.
T>В компоненте ADOQuery не работает INSERT.
T>С чем это связано? Может быть надо включить
T>какое-нибудь свойство?

Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, targentor, Вы писали:
А>Что у вас не работает INSERT вы не могли бы написать ваш запрос.... так как у меня все корректно отрабатывает...

Как и у 99% здесь присутствующих и работающих с ADO