Ошибка при добавлении записи в таблицу БД "Could not convert variant of type "NULL" into type "OleStr"

@mrBatch · Регистрация: 23.03.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте.

При работе программы вылетает ошибка "Could not convert variant of type "NULL" into type "OleStr" ", когда пользователь нажимает кнопку, в которой содержится только строка:

Delphi

1	DataModule1.ADOQuery1.Append;

По идее кнопка должна добавлять в таблицу базы данных строку, которая потом будет заполнятся данными из компонентов типа Edit и Memo.
Понимаю, что сведений для решения проблемы мало, подскажите, пожалуйста, хоть что-нибудь.

Спасибо.

@northener · 24.06.2014, 00:16

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

По идее кнопка должна добавлять в таблицу базы данных строку, которая потом будет заполнятся данными

А почему тогда используешь ADOQuery, а не ADOTable?

@mrBatch · 24.06.2014, 23:49 **[ТС]**

Использую ADOQuery, потому что работаю с запросами. В программе вообще нет компонентов ADOTable.

@northener · 25.06.2014, 02:30

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

Использую ADOQuery, потому что работаю с запросами.

А сам понимаешь что делаешь? Или используешь" натыренный" код без всякого понимания?

@mrBatch · 25.06.2014, 02:43 **[ТС]**

Возможно, я что-то не понимаю. Иначе бы не писал на форум. Если можно ближе теме. Как правильно использовать ADOQuery для добавления строки в таблицу? Что конкретно приводит к ошибке? Спасибо.

@northener · 25.06.2014, 02:52

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

Как правильно использовать ADOQuery для добавления строки в таблицу?

Если хочется "добавлять в таблицу базы данных строку, которая потом будет заполнятся", то это будет очень сложное извращение.

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

Возможно, я что-то не понимаю

Возможно. Представь свою задачу максимально полно.
P.S.
Задачу, а не проблему!

@mrBatch · 25.06.2014, 03:06 **[ТС]**

Во-первых, объясни, пожалуйста, почему не стоит использовать ADOQuery в моих целях?
Во-вторых, сложность в том, что я не знаю в чем заключается проблема, я планировал, что мне на форуме подскажут, что-то от чего я смогу оттолкнуться и более точно сформулировать задачу, но... пока не получается.

@northener · 25.06.2014, 03:32

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

Во-первых, объясни, пожалуйста, почему не стоит использовать ADOQuery в моих целях?

Ну как бы это не требует объяснения. Квери - это всегда некая выборка из набора данных по некоторому/некоторым критериям.

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

Во-вторых, сложность в том, что я не знаю в чем заключается проблема, я планировал, что мне на форуме подскажут, что-то

Так покажи код и объясни задачу. Неужели это сложно?

@mrBatch · 25.06.2014, 04:03 **[ТС]**

Нет, не сложно. Пожалуйста. Мне показалось, что скидывать такой больший кусок кода не лучшая идея.

Delphi

procedure QueryRestart;
begin
  DataModule1.ADOQuery1.Close;
  DataModule1.ADOQuery1.Open;
  DataModule1.ADOQuery2.Close;
  DataModule1.ADOQuery2.Open;
  DataModule1.ADOQuery3.Close;
  DataModule1.ADOQuery3.Open;
  DataModule1.ADOQuery4.Close;
  DataModule1.ADOQuery4.Open;
  DataModule1.ADOQuery5.Close;
  DataModule1.ADOQuery5.Open;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule1.ADOQuery1.Append;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  DataModule1.ADOQuery1.Edit;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  if temp = 0 then
    DataModule1.ADOQuery1.Delete
  else if temp = 1 then
    DataModule1.ADOQuery2.Delete
  else if temp = 2 then
    DataModule1.ADOQuery3.Delete
  else if temp = 3 then
    DataModule1.ADOQuery4.Delete
  else if temp = 4 then
    DataModule1.ADOQuery5.Delete;
  QueryRestart;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  DataModule1.ADOQuery1.FieldByName('Name').AsString := Form1.Frame41.Edit1.Text;
  DataModule1.ADOQuery1.FieldByName('Category').AsInteger := Form1.Frame41.RadioGroup1.ItemIndex;
  DataModule1.ADOQuery1.FieldByName('Breafing').AsString := Form1.Frame41.Memo1.Lines.Text;
  DataModule1.ADOQuery1.FieldByName('Final').AsString := Form1.Frame41.Memo2.Lines.Text;
  DataModule1.ADOQuery1.FieldByName('End').AsDateTime := Form1.Frame41.DateTimePicker1.Date;
  DataModule1.ADOQuery1.Post;
  QueryRestart;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  DataModule1.ADOConnection1.Cancel;
end;
 
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
  DataModule1.ADOQuery1.Cancel;
  temp := 1;
  if DataModule1.ADOQuery2.FieldByName('Name').IsNull then
     ClearFields
  else
  begin
    Form1.Frame41.Edit1.Text := DataModule1.ADOQuery2['Name'];
    Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery2.FieldByName('Category').AsInteger;
    Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery2['Breafing'];
    Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery2['Final'];
    Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery2.FieldByName('End').AsDateTime;
  end;
end;
 
procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
  DataModule1.ADOQuery1.Cancel;
  temp := 2;
  if DataModule1.ADOQuery3.FieldByName('Name').IsNull then
    ClearFields
  else
  begin
    Form1.Frame41.Edit1.Text := DataModule1.ADOQuery3['Name'];
    Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery3.FieldByName('Category').AsInteger;
    Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery3['Breafing'];
    Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery3['Final'];
    Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery3.FieldByName('End').AsDateTime;
  end;
end;
 
procedure TForm1.DBGrid3Enter(Sender: TObject);
begin
  DataModule1.ADOQuery1.Cancel;
  temp := 3;
  if DataModule1.ADOQuery4.FieldByName('Name').IsNull then
    ClearFields
  else
  begin
    Form1.Frame41.Edit1.Text := DataModule1.ADOQuery4['Name'];
    Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery4.FieldByName('Category').AsInteger;
    Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery4['Breafing'];
    Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery4['Final'];
    Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery4.FieldByName('End').AsDateTime;
  end;
end;
 
procedure TForm1.DBGrid4Enter(Sender: TObject);
begin
  temp := 4;
  if DataModule1.ADOQuery5.FieldByName('Name').IsNull then
    ClearFields
  else
  begin
    Form1.Frame41.Edit1.Text := DataModule1.ADOQuery5['Name'];
    Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery5.FieldByName('Category').AsInteger;
    Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery5['Breafing'];
    Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery5['Final'];
    Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery5.FieldByName('End').AsDateTime;
  end;
end;
 
procedure TForm1.DBGridListEnter(Sender: TObject);
begin
  DataModule1.ADOQuery1.Cancel;
  temp := 0;
  if DataModule1.ADOQuery1.FieldByName('Name').IsNull then
    ClearFields
  else
  begin
    Form1.Frame41.Edit1.Text := DataModule1.ADOQuery1['Name'];
    Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery1.FieldByName('Category').AsInteger;
    Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery1['Breafing'];
    Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery1['Final'];
    Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery1.FieldByName('End').AsDateTime;
  end;
end;

@uglyPinokkio · 25.06.2014, 07:35

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

Во-вторых, сложность в том, что я не знаю в чем заключается проблема

Проблема в том, что SQL запрос на выборку обычно возвращает набор, не предназначенный для редактирования.
Почему так - написано в "Фаронов В.В., Шумаков П.В. Delphi 5. Руководство разработчика баз данных"

Если в этом коде заменить ADOQuery на ADOTable, с высокой степенью вероятности он заработает.

@mrBatch · 25.06.2014, 20:54 **[ТС]**

Т.е. мне еще нужно добавить в программу компонент ADOTable? И использовать ADOQuery, когда нужно получить из таблицы набор данных, а ADOTable, когда нужно внести данные в таблицу?

@uglyPinokkio · 26.06.2014, 03:47

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

Т.е. мне еще нужно добавить в программу компонент ADOTable? И использовать ADOQuery, когда нужно получить из таблицы набор данных, а ADOTable, когда нужно внести данные в таблицу?

Если это данные одной таблицы из локальной базы - то проще все делать через ADOTable, и отображение и редактирование.

@Пытливый · 26.06.2014, 08:21

Не в том дело, что вам еще надо добавить AdoTable, а в том, что вы работаете с AdoQuery как с AdoTable - вы используете методы и свойства от класса TADOTable.
Судя по вашему куску кода, по идее если вы просто в описании у себя замените:
AdoQuery1: TAdoQuery;
на
AdoQuery1: TAdoTable;
то вообще ничего менять больше не потребуется.

А что касается работы с AdoQuery, то ваш оппонент во несколько неправ. В большинстве случаев работа с AdoQuery проще, быстрее, а частенько и просто иной альтернативы и не предусматривает. Но работать с этим классом надо конечно изначально правильно.

@uglyPinokkio · 26.06.2014, 08:35

Сообщение от Пытливый

В большинстве случаев работа с AdoQuery проще, быстрее, а частенько и просто иной альтернативы и не предусматривает.

И предполагает несколько иной подход к работе с базой, что требует несколько другого уровня представления о SQL. Почему и предлагается для запросов по одной таблице локальной базы заменить Query на Table и почитать книгу, в которой описана разница

.

@ZfoxAK · 26.06.2014, 11:19

Вот этот код мне не ясен

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

Delphi

begin
   Form1.Frame41.Edit1.Text := DataModule1.ADOQuery2['Name'];
   Form1.Frame41.RadioGroup1.ItemIndex := DataModule1.ADOQuery2.FieldByName('Category').AsInteger;
   Form1.Frame41.Memo1.Lines.Text := DataModule1.ADOQuery2['Breafing'];
   Form1.Frame41.Memo2.Lines.Text := DataModule1.ADOQuery2['Final'];
   Form1.Frame41.DateTimePicker1.Date := DataModule1.ADOQuery2.FieldByName('End').AsDateTime;
  end;

Если хотите получить данные из записи

Delphi

1
2
3

Form1.Frame41.Edit1.Text :=DataModule1.ADOQuery2.DataSource.DataSet.FieldByName('Name').Value;
//или
Form1.Frame41.Edit1.Text :=DataModule1.ADOQuery2.DataSource.DataSet.FieldByName('Name').asString;

Для работы через ADOQuery используются SQL запросы Select для выборки данных
INSERT, UPDATE, DELETE изменение.

Если использовать как пытаетесь вы то лучше делать так

Delphi

1
2
3

DataModule1.ADOQuery2.Append; 
DataModule1.ADOQuery2.DataSource.DataSet.FieldByName('Name').Value:='Привет';
DataModule1.ADOQuery2.Post;

@uglyPinokkio · 26.06.2014, 13:37

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

Если использовать как пытаетесь вы то лучше делать так

Есть уверенность, что это сработает? Про backend и схему ни слова не было. Ну и просто ИМХО - плохому учите.

@ZfoxAK · 27.06.2014, 05:42

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

Есть уверенность, что это сработает?

uglyPinokkio, вы правы не будет. ..... малость напутал

а вот так будет)

Delphi

1	BDGrid.DataSource.DataSet.FieldByName('Name').Value:='Привет';

или

Delphi

1	DataModule1.ADOQuery2.FieldByName('FIO').Value:='Привет';

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

Про backend и схему ни слова не было. Ну и просто ИМХО - плохому учите.

ИМХО Вроде форум, а не университет что бы учить.

@mrBatch · 27.06.2014, 20:20 **[ТС]**

Вроде решилось. Проблема состояла в том, что в таблице были пустые ячейки.

Спасибо, вам за помощь.

@uglyPinokkio 327 / 230 / 55 Регистрация: 30.05.2014 Сообщений: 682
	25.06.2014, 07:35	10
	Сообщение от mrBatch Во-вторых, сложность в том, что я не знаю в чем заключается проблема Проблема в том, что SQL запрос на выборку обычно возвращает набор, не предназначенный для редактирования. Почему так - написано в "Фаронов В.В., Шумаков П.В. Delphi 5. Руководство разработчика баз данных" Если в этом коде заменить ADOQuery на ADOTable, с высокой степенью вероятности он заработает. 1

@uglyPinokkio 327 / 230 / 55 Регистрация: 30.05.2014 Сообщений: 682
	26.06.2014, 03:47	12
	Сообщение от mrBatch Т.е. мне еще нужно добавить в программу компонент ADOTable? И использовать ADOQuery, когда нужно получить из таблицы набор данных, а ADOTable, когда нужно внести данные в таблицу? Если это данные одной таблицы из локальной базы - то проще все делать через ADOTable, и отображение и редактирование. 0

@mrBatch 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 18
	27.06.2014, 20:20 [ТС]	18
	Вроде решилось. Проблема состояла в том, что в таблице были пустые ячейки. Спасибо, вам за помощь. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	24.06.2014, 00:16	2
	Сообщение от mrBatch По идее кнопка должна добавлять в таблицу базы данных строку, которая потом будет заполнятся данными А почему тогда используешь ADOQuery, а не ADOTable? 0

@mrBatch 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 18
	24.06.2014, 23:49 [ТС]	3
	Использую ADOQuery, потому что работаю с запросами. В программе вообще нет компонентов ADOTable. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	25.06.2014, 02:30	4
	Сообщение от mrBatch Использую ADOQuery, потому что работаю с запросами. А сам понимаешь что делаешь? Или используешь" натыренный" код без всякого понимания? 0

@mrBatch 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 18
	25.06.2014, 02:43 [ТС]	5
	Возможно, я что-то не понимаю. Иначе бы не писал на форум. Если можно ближе теме. Как правильно использовать ADOQuery для добавления строки в таблицу? Что конкретно приводит к ошибке? Спасибо. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	25.06.2014, 02:52	6
	Сообщение от mrBatch Как правильно использовать ADOQuery для добавления строки в таблицу? Если хочется "добавлять в таблицу базы данных строку, которая потом будет заполнятся", то это будет очень сложное извращение. Сообщение от mrBatch Возможно, я что-то не понимаю Возможно. Представь свою задачу максимально полно. P.S. Задачу, а не проблему! 0

@mrBatch 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 18
	25.06.2014, 03:06 [ТС]	7
	Во-первых, объясни, пожалуйста, почему не стоит использовать ADOQuery в моих целях? Во-вторых, сложность в том, что я не знаю в чем заключается проблема, я планировал, что мне на форуме подскажут, что-то от чего я смогу оттолкнуться и более точно сформулировать задачу, но... пока не получается. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	25.06.2014, 03:32	8
	Сообщение от mrBatch Во-первых, объясни, пожалуйста, почему не стоит использовать ADOQuery в моих целях? Ну как бы это не требует объяснения. Квери - это всегда некая выборка из набора данных по некоторому/некоторым критериям. Сообщение от mrBatch Во-вторых, сложность в том, что я не знаю в чем заключается проблема, я планировал, что мне на форуме подскажут, что-то Так покажи код и объясни задачу. Неужели это сложно? 0

@mrBatch 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 18
	25.06.2014, 20:54 [ТС]	11
	Т.е. мне еще нужно добавить в программу компонент ADOTable? И использовать ADOQuery, когда нужно получить из таблицы набор данных, а ADOTable, когда нужно внести данные в таблицу? 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,374
	26.06.2014, 08:21	13
	Не в том дело, что вам еще надо добавить AdoTable, а в том, что вы работаете с AdoQuery как с AdoTable - вы используете методы и свойства от класса TADOTable. Судя по вашему куску кода, по идее если вы просто в описании у себя замените: AdoQuery1: TAdoQuery; на AdoQuery1: TAdoTable; то вообще ничего менять больше не потребуется. А что касается работы с AdoQuery, то ваш оппонент во несколько неправ. В большинстве случаев работа с AdoQuery проще, быстрее, а частенько и просто иной альтернативы и не предусматривает. Но работать с этим классом надо конечно изначально правильно. 0

@uglyPinokkio 327 / 230 / 55 Регистрация: 30.05.2014 Сообщений: 682
	26.06.2014, 08:35	14
	Сообщение от Пытливый В большинстве случаев работа с AdoQuery проще, быстрее, а частенько и просто иной альтернативы и не предусматривает. И предполагает несколько иной подход к работе с базой, что требует несколько другого уровня представления о SQL. Почему и предлагается для запросов по одной таблице локальной базы заменить Query на Table и почитать книгу, в которой описана разница . 0

@uglyPinokkio 327 / 230 / 55 Регистрация: 30.05.2014 Сообщений: 682
	26.06.2014, 13:37	16
	Сообщение от ZfoxAK Если использовать как пытаетесь вы то лучше делать так Есть уверенность, что это сработает? Про backend и схему ни слова не было. Ну и просто ИМХО - плохому учите. 0