Не работает RecordCount

[edsjeka]

Вот такой код. Компилируется нормально, но потом при выполнении последней строки кода выдается ошибка: [0x0005]: Operation Not Supported

 try
   DataModule1. SQLConnection1.StartTransaction(tr1); //начало транзакции
   SQLQuery1.Active:=false;
   SQLQuery1.SQL.Text:='SELECT everydayrep.IDCartridga, everydayrep.DateRabot, everydayrep.Tehnika_Rabota,'+
      ' everydayrep.IDMastera, sprmasterov.Master, sprmasterov.IDMastera'+
      ' FROM everydayrep'+
      ' INNER JOIN sprmasterov ON everydayrep.IDMastera = sprmasterov.IDMastera'+
      ' WHERE sprmasterov.Master = "Иванов Иван"';
   SQLQuery1.Active:=true;
  except
   MessageDlg('ошибка транзакции 1', mtError, [mbOk],0);
   DataModule1.SQLConnection1.Rollback(tr1); //откат транзакции
  end;
   DataModule1.SQLConnection1.Commit(tr1); //подтверждение транзакции
   Label10.Caption:=IntToStr(SQLQuery1.RecordCount);

Если убираю условие

 WHERE sprmasterov.Master = "Иванов Иван"';

, тогда работает. В других местах работает с условием все нормально, а тут не хочет. В чем может быть проблема?

[Аватар]

А двойные кавычки замени на одинарные

WHERE sprmasterov.Master = ''Иванов Иван''';

Явную транзакцию для селекта обязательно? Если уж исключение ловишь, то какой ролбак при ошибке на старте транзакции? Она и не запустится, ролбак вдобавок еще исключение подымет. При ошибке на Active:=true ролбак нужен

PS

RecordCount при чем? Чего ему работать на не активном датасете? А у тебя управление передастся на эту команду и при исключении во время активизации. И даже если все ok рекордкоунт еще может вернуть неправильные данные при таком подходе. Это зависит от настройки соединения

[edsjeka]

Сообщение от Аватар

А двойные кавычки замени на одинарные

WHERE sprmasterov.Master = ''Иванов Иван''';

Тогда вообще ошибка сразу при компилировании, мне давно говорили, что нужно вместо кавычек использовать специальную функцию, никак не дойду до нее, чтобы разобраться, но тут дело не в кавычках, у меня в этой программе куча запросов, где используются двойные кавычки и все работает нормально.

[edsjeka]

Сообщение от Аватар

Явную транзакцию для селекта обязательно? Если уж исключение ловишь, то какой ролбак при ошибке при старте транзакции? Она и не запустится, ролбак вдобавок еще исключение подымет. При ошибке на Active:=true ролбак нужен

Тут спасибо, никто толком про транзакции объяснить не может или не хочет, делаю как сам думаю.

[edsjeka]

[QUOTE=
PS

RecordCount при чем? Чего ему работать на не активном датасете? А у тебя управление передастся на эту команду и при исключении во время активизации[/QUOTE]
Да я транзакцию когда убираю, ничего не меняется, та же ошибка. А почему не активный датасет, ведь я делаю SQLQuery1.Active:=true;

[edsjeka]

А почему тогда здесь работает:

procedure TFMLazKart.BitBtn22Click(Sender: TObject);
var sum:integer;
begin
 DataModule1.SQLQuery1.Close;
 DataModule1.SQLQuery1.SQL.Text:='Select * From Cartridgi';
 DataModule1.SQLQuery1.Active:=true;
 sum:=DataModule1.SQLQuery1.RecordCount;
MessageDlg('Общее количество картриджей в базе:'+IntToStr(sum), mtInformation, [mbOk], 0);
end;

[Аватар]

QuotedStr экранирует строку в кавычки, что то же самое как в #2. Фокус наведи на то сообщение.

А почему тогда здесь работает

А я и не говорил, что всегда не правильно. А ты выдерни запросом хотя бы несколько сотен записей и проверь. Запрос не обязательно сразу все данные клиенту возвращает. Возможна и подкачка. Но это все зависит от настройки соединения. И разберись с try ... except. Судя по твоим коментам суть не понимаешь

[edsjeka]

Сообщение от Аватар

QuotedStr экранирует строку в кавычки, что то же самое как в #2. Фокус наведи на то сообщение.А я и не говорил, что всегда не правильно.

Все-таки проблема может быть в кавычках?

[Аватар]

Да сделай так, как в #2. Кавычку перед where еще не забудь, небось без неё строку в код впялил

[edsjeka]

Сообщение от Аватар

Кавычку перед where еще не забудь, небось без неё строку в код впялил

Почему без нее, в #1 все показано как я ее впялил.