Проблема с числом записей в БД Access

[Gigahard]

Всем привет! У меня возникли некоторые затруднения с БД: В программе 2 формы. 1-ая, просто навигационная, вызывает вторую: Form2.show
Вот листинг второй формы:

Код: Выделить всё

Dim dbTest As Database
Dim dbLocation As String
Dim rsTitles As Recordset


Private Sub Form_Load()
Command1.Caption = “Число записей”

dbLocation = "c:\base.mdb"
Set dbTest = OpenDatabase(dbLocation)
Set rsTitles = dbTest.OpenRecordset("table", dbOpenTable)
End Sub

Private Sub Command1_Click()
MsgBox rsTitles.RecordCount
End Sub

Во второй форме подключена БД.

Так вот в чем собственно проблема: При клике по кнопке, выскакивает MessageBox показывающий кол-во записей в БД. Допустим при запуске программы мы кликаем по кнопке и выскакивает цифра 5. После этого удаляем или добавляем запись в БД, кликаем по кнопке и видим опять цифру 5! Не 4 или 6, а 5!!! Не помогает даже выгрузка формы. Unload Form2. Если потом опять из первой формы загрузить вторую, то по прежнему будет 5!!!
Только при общем перезапуске программы RecordCount отображается правильно! Но это не выход! Как сделать так, чтобы RecordCount обновлялся без перезапуска всей программы???

[RayShade]

Обновлять его в ручную RecordSet.Update и потом RecordSet.ReQuery наверное прокатит.

[Gigahard]

Обновлять его в ручную RecordSet.Update и потом RecordSet.ReQuery наверное прокатит.

Не не прокатывает

[Gigahard]

Я немножко уточню: Записи удаляются/добавляются другой программой. И почему то не происходит переопределения RecordSet.RecordCount при следующей загрузке формы... Ведь по идее в соответствии с кодом Recordset должен переопределятся при каждой загрузке формы!?

[GSerg]

Может попробовать Dbtest.Close, а потом опять сразу OpenDatabase?

[alibek]

Попробуй открывать Recordset не как dbOpenTable, а как dbOpenDynaset.
И в любом случае, следует делать .MoveLast перед .RecordCount. Т.е. так:

Код: Выделить всё

Private Sub Command1_Click()
rsTitles.MoveLast
MsgBox rsTitles.RecordCount
End Sub

[Gigahard]

Попробуй открывать Recordset не как dbOpenTable, а как dbOpenDynaset.
И в любом случае, следует делать .MoveLast перед .RecordCount. Т.е. так:

Код: Выделить всё

Private Sub Command1_Click()
rsTitles.MoveLast
MsgBox rsTitles.RecordCount
End Sub

Во первых Dynaset мне не нужен, а во вторых, MoveLast и RecordCount никак не связаны...

В общем ситуация такая: При отткрытии БД прогой, она не видит изменений произошедших с БД средствами другой программы.
Т.е. я запускаю прогу, затем запускаю Access, модифицирую БД access'ом, а прога не видит изменений произошедших в БД! Причем доступ к БД не в монопольном режиме!
Как заставить? Видеть???

[Gigahard]

Может попробовать Dbtest.Close, а потом опять сразу OpenDatabase?

Спасибо! Все заработало! Да действительно, нужно было просто добавить в Form_Unload()

Код: Выделить всё

dbTest.Close