Добавление и удаление записей из БД (Access)

[a_n_n_a]

Здравствуйте=) У меня такая проблема: не могу понять, как сделать удаление и добавление записей в таблицы=))
Например, у меня таблицы: Студенты, Адреса, Оценки, Сведения. Они соеденены по полю ШифрСтудента=)

Я так поняла, это надо делать через ADOQuery и DBEdit=)))) А как?=)))))

[koma_grusha]

возьмем к примеру Студентов, связываешь ADOQuery с ней, при необходимости отображаешь в гриде
Предположим есть на форме Edit, в котором вводится ФИО студента

тогда для вставки

ADOQuery.Insert;
ADOQuery.FieldByName('FIO').AsString := Edit.Text;
ADOQuery.Post;

для редактирования (текущей записи)

ADOQuery.Edit;
ADOQuery.FieldByName('FIO').AsString := Edit.Text;
ADOQuery.Post;

для удаления (также текущей записи)

ADOQuery.Delete;

[Stilet]

Вообще-то если работаешь с Query то не стоит доверять методам от DataSet. Луче всего через SQL стандартными его командами.

[koma_grusha]

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

Вообще-то если работаешь с Query то не стоит доверять методам от DataSet. Луче всего через SQL стандартными его командами.

Почему? Я использую и тот и другой метод в зависмости от поставленной задачи и т.п. Оба варианта устраивают, но вот о том что лучше и почему не задумывалась. Не могли бы как-то просветить (новую тему заводить не стала, думаю автору этой темы оно пригодится)

[Stilet]

Не могли бы как-то просветить

Могу высказать только то на что натыкался. при использовании методов очень частые потери информации и непредсказуемые ошибки типа "не могу писать...". перешел на SQL - все как часы работало.
Вот те самые Edit и Insert сбоили регулярно.

[koma_grusha]

спасибо!! Действительно, встречается такое, только не думала, что это из за них.

Ну тогда перешем вышеописанное примерно так (при тех же условиях)

дабовление

ADOQuery.SQL.Text := 'INSERT INTO Students (FIO) VALUES (' + QuotedStr(Edit.Text) + ')';
ADOQuery.ExecSQL;

изменение

ADOQuery.SQL.Text := 'UPDATE Students SET FIO = ' + QuotedStr(Edit.Text) + ' WHERE <условие для идентификации записи> ';
ADOQuery.ExecSQL;

удаление

ADOQuery.SQL.Text := 'DELETE FROM Students  WHERE FIO = ' + QuotedStr(Edit.Text);
ADOQuery.ExecSQL;

[Stilet]

koma_grusha

Дело не совсем в них, но я в подробности не вдавался, просто окончательно перешел на SQL и более горя не знаю.

[artemavd]

koma_grusha, а я вот пробую вставить запись из DBLookupComboBox-a в поле ID_Predmet в таблицу rezult вот так:

// Form2.Query_3.Active:=False;
 Form2.Query_3.SQL.Clear;
 Form2.Query_3.SQL.Text:='INSERT INTO rezult(ID_Predmet) VALUES('+QuotedStr(Form1.DBLookupComboBox1.Text)+')';
 Form2.Query_3.ExecSQL;

и выдается ошибка: "Type mismatch in expresion". Это почему такая ошибка? Что она значит? Компилируется все хорошо.

[edgy]

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

просто окончательно перешел на SQL и более горя не знаю.

+1 Поддерживаю. Та же фигня.

Да и к тому же почему-то меня всегда в коде напрягали:

ADOQuery.Insert;

ADOQuery.Post;

ADOQuery.Edit;

ADOQuery.Delete;

и т.п.

[edgy]

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

// Form2.Query_3.Active:=False;
 Form2.Query_3.SQL.Clear;
 Form2.Query_3.SQL.Text:='INSERT INTO rezult(ID_Predmet) VALUES('+QuotedStr(Form1.DBLookupComboBox1.Text)+')';
 Form2.Query_3.ExecSQL;

и выдается ошибка: "Type mismatch in expresion". Это почему такая ошибка? Что она значит? Компилируется все хорошо.

Что-то у меня есть подозрение, что вы пытаетесь в поле, тип данных которых - числовой, вставить данные текстового типа