[atemic1]

Добрый день!
Подскажите, пожалуйста, как поправить код. Премного благодарен!

Код:

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='INSERT INTO Сотрудники VALUES+(:[№ Сотрудника],:Фио,:Оклад,:ДР)';
ADOquery2.Parameters.ParamByName('[№ Сотрудника]').Value:=edit2.text;
ADOquery2.Parameters.ParamByName('Фио').Value:=edit3.text;
ADOquery2.Parameters.ParamByName('Оклад').Value:=edit4.text;
ADOquery2.Parameters.ParamByName('ДР').Value:=edit5.text;
ADOquery2.ExecSQL;

Admin: Пользуемся тегами!

Выдает ошибку:
ADOQuery2: Parameter '[№ Сотрудника]' not found

[Страдалецъ]

Переписать несколько:

Код:

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='INSERT INTO Сотрудники VALUES(:№_Сотрудника,:Фио,:Оклад,:ДР)';
ADOquery2.Parameters.ParamByName('№_Сотрудника').Value:=edit2.text;
ADOquery2.Parameters.ParamByName('Фио').Value:=edit3.text;
ADOquery2.Parameters.ParamByName('Оклад').Value:=edit4.text;
ADOquery2.Parameters.ParamByName('ДР').Value:=edit5.text;
ADOquery2.ExecSQL;

[atemic1]

Удаление скобок квадратных не решило проблему. Ошибка осталась та же(!

[Yurk@]

обрати внимание что кроме квадратных скобок еще и добавилось "нижнее подчеркивание": №_Сотрудника

[atemic1]

Не заметил, извините!
Теперь выскакивает другая ошибка:
'Приложение исп для текущей операции значение неверного типа'

Значения которые я вношу: (тип данный в MSQL)
№ Сотрудника 22 (Nvarchar (50))
Фио Пупки А.А (Nvarchar (50))
Оклад 20000 (Nchar (10))
ДР NULL (Datetime)

Может в коде нужно где-то указывать тип данных??

[atemic1]

Разобрался!
Вместо NULL ввел 1983-01-01 ошибки нет, все добавляется!
Не понятно почему нельзя пустое значение вносить, в sql стоит разрешающая галочка.
Всем спасибо за помощь!!!

[atemic1]

А не подскажите как сделать удаление из БД через форму?

[Yurk@]

например:

Код:

Table1.Delete;

или

Код:

Query1.Close;
Query1.SQL.Text:='DELETE FROM MyTable WHERE ID = :id';
Query1.ParamByName('id').Value:=Table1.FieldByName('id').Value;
Query1.ExecSQL;
Table1.Refresh;

[atemic1]

Если таким образом, то выдает ошибку. Что тут нужно исправить?

Код:

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='Delete From Сотрудники Where №_Сотрудника =: edit2.text';
ADOquery2.Parameters.ParamByName('№_Сотрудника').Value:=edit2.text;
ADOquery2.ExecSQL;

[lmikle]

какую ошибку? на какой строке?

[atemic1]

Сообщение от lmikle

какую ошибку? на какой строке?

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='Delete From №_Сотрудника Where №_Сотрудника =: '''+edit2.text+'''';
ADOquery2.Parameters.ParamByName('№_Сотрудника').V alue:=edit2.text;
ADOquery2.ExecSQL;

ошибка- Parameter '№_Сотрудника' not found

[Страдалецъ]

Позвольте, а почему у вас первоначальное поле с именем [№ Сотрудника] стало вдруг №_Сотрудника? Я вам давал вариант для параметров, а это несколько другое. Далее, с чего вдруг таблица Сотрудники резко сменила имя на №_Сотрудника?
И наконец, после двоеточия в имени параметра пробела быть не должно, я так думаю!

[atemic1]

Сообщение от Страдалецъ

Позвольте, а почему у вас первоначальное поле с именем [№ Сотрудника] стало вдруг №_Сотрудника? Я вам давал вариант для параметров, а это несколько другое. Далее, с чего вдруг таблица Сотрудники резко сменила имя на №_Сотрудника?
И наконец, после двоеточия в имени параметра пробела быть не должно, я так думаю!

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='Delete From Сотрудники Where [№Сотрудника] =:'''+edit2.text+'''';
ADOquery2.Parameters.ParamByName('№_Сотрудника').V alue:=edit2.text;
ADOquery2.ExecSQL;
Cпасибо что указали на мои ошибки, исправил, но ошибка та же осталась, наставьте на путь истинный, плз.

[Страдалецъ]

Код:

ADOQuery2.SQL.Text:='Delete From Сотрудники Where [№Сотрудника] =:'''+edit2.text+'''';

Ничего не смущает?
Вот так попробуйте:

Код:

ADOQuery2.SQL.Text:='Delete From Сотрудники Where [№Сотрудника] =:№_Сотрудника';

У меня подозрение, что так оно как-то правильнее
ПС: У вас в таблице поле [№Сотрудника] теперь без пробела?

[atemic1]

Всё работает, спасибо огромное))!!!!
Может еще подскажете как сделать чтобы после удаления значения, поле DBGrid обновлялось, а то приходится вручную)