ADO, блокировка записей , Access

[geba47]

Привет всем! Пролейте свет на следующую проблему. Есть сервер, на котором лежит БД Access. С нескольких компьютеров к ней оброщаются клиентские программы. В БД есть таблица "MySclad", в которой записывается Дата и Время создания накладной (при открытии этой накладной). Это для того, чтобы в один момент времени мог только один пользователь открыть накладную. При закрытии накладной, запись о времени создания накладной удаляется и соответственно с другого компа можно просмотреть и т.д.

Public Sub ClearScladDate()
Dim rs As Recordset
Set rs = New Recordset
SQL = "SELECT * FROM MySclad WHERE " & _
" MyDate=#" & Format$(ScladDate, "mm\/dd\/yyyy") & _
"# AND MyTime=#" & Format$(ScladTime, "hh:mm:ss") & "#"
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
rs.Delete
rs.Close
Set rs = Nothing

ScladDate = sEmpty
ScladTime = sEmpty
End Sub

И в коде при попытке открыть накладную идет проверка:

Set rs = New Recordset
SQL = "SELECT * FROM MySclad WHERE " & _
" MyDate=#" & Format$(grdRash.Columns(1).Value, "mm\/dd\/yyyy") & _
"# AND MyTime=#" & Format$(grdRash.Columns(6).Value, "hh:mm:ss") & "#"
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.Close
Set rs = Nothing
Exit Sub
Else
rs.AddNew
rs!MyDate = grdRash.Columns(1).Value
rs!MyTime = grdRash.Columns(6).Value
ScladDate = grdRash.Columns(1).Value
ScladTime = grdRash.Columns(6).Value
rs.Update
End If
rs.Close
Set rs = Nothing


Так проблема в том, что при первой проверке все прекрасно работает. После нескольких проверок (закрытия и открытия накладных-- удаления и создания записей в таблице) проверка не срабатывает. Хотя в таблице есть запись, но запрос показывает rs.RecordCount =0. Может чтото в блокировке, хотя не думаю. Пробовал на двух компьютерах в сети, и на одном, запуская два экземпляра приложения.Никак не пойму в чем дело. Помогите найти причину. Спасибо.

[Andrey Fedorov]

А чего ради запрещать нескольким юзерам смотреть эту несчастную накладную? Может пущай себе смотрят ее хоть до посинения - криминала-то в этом никакого нет...

[geba47]

При открытии администратором возможно редактирование кол-ва, цены и т.д. При открытии одним из складчиков-- расход ( с помощью сканера шрихкода). При написании администратором накладной возможна ошибка- поставил большее кол-во, чем надо. А если заказ уже зделан, то складчик может начать сканировать, и в это время редактировать не стоит. Всю специфику программы и работы объяснять долго, поэтому пожалуйста если знаете ответ на вопрос, буду очень благодарен.Спасибо.

[Andrey Fedorov]

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

Да просто примененный способ коряв и зело глюкав.
Ты хоть одну программу видел чтобы при просмотре накладной (или любого другого документа) всем другим юзерам запрещался просмотр? Не изобретай лисапед...

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

Если на то пошло, то чтобы убрать описанный тобой "глючок" (хотя другие проблемы останутся) - пиши вместо даты и времени ID-шку накладной.

[geba47]

ID накладной и является время и дата ее написания. Не номер же накладной использовать (вчера тоже была накладная с таким номером). А открывают ее не только для просмотра, но и для редактирования при необходимости( администратор) и для расхода( складчики) И еще ситуация, без запрета открытия одновременно одной накладной, откроют сразу оба складчика и начнут расход в одну накладную. Было уже такое. И вместо , например, 10 шт отсканировали 19. Вот тогда и приходится в базе лазить и все IMEI испровлять. У нас оптовый магазин и складчикам постоянно кричать я сканирую 5 накладную , а я 7 надоело и они ошибаются. Ну а на счет того, что если прога некоректно закроется , то в базе останется запись и придется ее ручками удалять , ты прав. Если есть предложения , с благодарностью выслушаю.

[Andrey Fedorov]

ID накладной и является время и дата ее написания. Не номер же накладной использовать (вчера тоже была накладная с таким номером).

А у нас вот две машину (ЗИЛ и Москвич) имели один и тот-же ГАИ-шный номер...

Вообще-то люди в качестве ID_шки обычно используют поле типа счетчика.

А открывают ее не только для просмотра, но и для редактирования при необходимости( администратор) и для расхода( складчики) И еще ситуация, без запрета открытия одновременно одной накладной, откроют сразу оба складчика и начнут расход в одну накладную. Было уже такое.

И при чем тут открытие? Проводи расход в транзакции.

И вместо , например, 10 шт отсканировали 19. Вот тогда и приходится в базе лазить и все IMEI испровлять. У нас оптовый магазин и складчикам постоянно кричать я сканирую 5 накладную , а я 7 надоело и они ошибаются.

Вах! Мне бы тоже надоело!

Ну а на счет того, что если прога некоректно закроется , то в базе останется запись и придется ее ручками удалять , ты прав. Если есть предложения , с благодарностью выслушаю.

Ну что сказать... Целиком все описывать я как-то не берусь - может кто другой решится - думаю твоя проблема уже многим понятна...

[geba47]

Ты не знаком ни с программой , ни со спецификой работы магазина , а умничаешь. Счетчик не подходит -- бывают, видители, возвраты, и номер накладной с самой накладной удаляются( если заказ сегодняшний) И я задал конкретный вопрос-- почему при наличии записи в таблице, rs.RecordCount = 0 ? Код вверху.

[alibek]

А ты не знаком с основами, а критикуешь.
Если ты не понял, что тебе сказали, лучше переспроси.

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

[geba47]

Счетчик я вообще не использую, это Андрей предлогает их использовать.

[Andrey Fedorov]

Ты не знаком ни с программой , ни со спецификой работы магазина , а умничаешь.

Со спецификой твоей программы я действительно не знаком. А оно мне надо? Зато других я знаю довольно много...

Счетчик не подходит -- бывают, видители, возвраты, и номер накладной с самой накладной удаляются( если заказ сегодняшний)

Ну и что?

И я задал конкретный вопрос-- почему при наличии записи в таблице, rs.RecordCount = 0 ? Код вверху.

Да потому что тебе теорию работы с базами с азов учить нужно.

Скорей всего из-за того что поле даты/времени - это все-же плавающее число. Оно просто отображается как дата/время. Ну и при поиске соответствено не всегда может найтись из-за ошибки округления времени.

Изначально кривой подход к программе влечет за собой кучу проблем, поверь...

[alibek]

Скорей всего из-за того что поле даты/времени - это все-же плавающее число. Оно просто отображается как дата/время. Ну и при поиске соответствено не всегда может найтись из-за ошибки округления времени.

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

[alibek]

Счетчик я вообще не использую, это Андрей предлогает их использовать.

Правильно предлагает.
Только он не предлагает его использовать в качестве номера накладной.

[Sebas]

Ну, и мой маленький вклад в разгром.

Хавать шаренную базу по сети тусовкой - лажа полная!
Ибо, в один прекрасный момент базы... не будет)))
Как по тех соображению, так и по HR