VBNet - Форум - Как отцепиться от базы

Вопрос: Как отцепиться от базы Добавлено: 05.12.03 05:34

Автор вопроса: cresta

При переключении просматриваемых баз возникает проблема: Первый просмотр проходит нормально, при попытке открыть вторую базу не удается отцепиться от первой, чтобы её уничтожить и под её именем воткнуть вторую
Dim ConStr As String
    'если уже открывали базу
    If Dir$(App.Path & "\ArchMonth.mdb") <> "" Then
        Adodc1.Recordset.Close
        Kill App.Path & "\ArchMonth.mdb"
    End If
    CD1.DialogTitle = " Открытие архива"
    CD1.Filter = "Zip - файлы (*.zip)|*.zip|"
    CD1.FilterIndex = 1
    CD1.InitDir = App.Path
    CD1.ShowOpen
    Me.Caption = UnZipFile(CD1.Filename)
    Adodc1.ConnectionString = Replace(Adodc1.ConnectionString, "Month", "ArchMonth")
Adodc1.Refresh
на операторе Kill программа заклинивает, пишет ошибку "Нет доступа к файлу". Заглядываю в папку с базой - действительно, задействована - есть временный файл .ldb
Чтобы открыть другую базу, приходится выгружать форму и снова загружать её- только после этого можно загрузить другую
Подскажите пожалуйста, как можно полностью отцепиться от базы? Что ещё кроме закрытия RecordSet'a?? Connection нигде не оговаривается

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #1

Добавлено: 05.12.03 08:02

Значит не все закрыл... посмотри может где-то остались открытые ADODB.Connection, ADODB.Recordset или может еще какой ADODC болтается открытый....

Ответить

Номер ответа: 2 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #2	Добавлено: 05.12.03 08:26
	Да всего один Adodc, по ходу программы никаких объектов типа рекордсета или коннекшн не создаю, всё было создано в Дезайне. Пробовал Adodc1.RecordSet.ConnectionString="" - тоже не помогает, если бы создавал в Рантайм, то установил бы всё в Nothing , но все создано в дезайне и не понятно, как отцепиться Ответить

Страница: 1 |