Добрый день всем!
Возник вопрос на тему:
В библиотеке на компе установлена прога (моя на VB6) для занесения новых книг в БД MSAccess
БД находится на диске C:
Просле закрытия проги нужно скопировать БД на сервер для того, чтобы другие проги (тоже мои на VB6) на других компах пользовались обновленной инфой, делается так:

Код

Private Sub cmdQuit_Click() On Error Resume Next Dim  prompt1$, FileNm1$, prompt2$, FileNm2$, prompt3$, FileNm3$       prompt1$ = "C:\Biblioteka\BDanny\Bibliot.mdb"       FileNm1$ = "\\Server\Baza_danny\Biblioteka\Bibliot.mdb"           FileCopy prompt1$, FileNm1$              MsgBox "База данных скопирована.", vbInformation Set frmGlavn = Nothing Unload Me End Sub

Но бывает что замены не происходит, хотя и выдает

Цитата

"База данных скопирована."

Весит БД 4,5 MB
Как заставить код отработать корректно или в данной ситуации нужен другой подход?
Посоветуйте, pse.
С уважением

Странно...
Убери On Error Resume Next - может там ошибка выскакивает?

Добавлено @ 12:09
В смысле на FileCopy должна ошибка выскочить

Run-time error , приветствую!
Даже и не подумал над On Error...
Благодарю за подсказку, сию проверю.
Всего доброго.

Добрый день всем!
Run-time error, по твоей подсказке убрал с кода

Цитата

On Error Resume Next

Прогнал несколько раз прогу и в двух случаях выдает ошибку:

Цитата

Run-time error '70' Permission denied

В первом случае , когда много загружено программ одновременно (Access, Excel, Word и т.д.) то при выгрузке проги выдает ошибку
Второй случай: В проге есть обращение в документ Excel вот таким кодом:

Код

Private Sub mnuIKniga_Click() On Error Resume Next Dim iIndx As Integer Dim iRowIndex As Integer Dim iColIndex As Integer Dim iRecordCount As Integer Dim iFieldCount As Integer Dim sMessage As String Dim avRows As Variant Dim excelVersion As Integer Dim sSqlString As String Set adoConnection = New ADODB.Connection Set adoRecordset = New ADODB.Recordset connectString = "Provider=Microsoft.Jet.OLEDB.3.51;" _                  & "Data Source=" & gDataBaseName                   sSqlString = "SELECT (DatZap) AS D_Zap, InventNumber, " & _         "(' ') AS Otm, (Autor & ' ' & Title) AS Заглавие,  " & _         "(DatPubl) AS ДатаПубл, (Zena) AS Цена, " & _         "(Autor1) AS Соавтор, (PodRed) AS РодРед, (InventNumber2) AS Инв1, (NumbPost) AS н_п" & _         "FROM Titles WHERE InventNumber =" & Text2.Text adoConnection.Open connectString adoRecordset.CursorLocation = adUseClient adoRecordset.Open sSqlString, adoConnection '-- Read all of the records into our array avRows = adoRecordset.GetRows() '-- Determine how many fields and records iRecordCount = UBound(avRows, 2) + 1 iFieldCount = UBound(avRows, 1) + 1 '-- Create reference variable for the spreadsheet Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open (App.Path & "\Document\Инвентарная книга") '-- We need this line to insure Excel remains visible if we switch Set objTemp = objExcel excelVersion = Val(objExcel.Application.Version) If (excelVersion >= 8) Then  Set objExcel = objExcel.ActiveSheet End If '-- Place the names of the fields as column headers -- iRowIndex = 1 iColIndex = 1 For iColIndex = 1 To iFieldCount   With objExcel.Cells(iRowIndex, iColIndex)      .Value = adoRecordset.Fields(iColIndex - 1).Name      With .Font        .Name = "Arial"        .Bold = True        .Size = 9      End With   End With Next '-- memory management -- adoRecordset.Close Set adoRecordset = Nothing '-- Just add data -- With objExcel   For iRowIndex = 2 To iRecordCount + 1    For iColIndex = 1 To iFieldCount     .Cells(iRowIndex, iColIndex).Value = avRows(iColIndex - 1, iRowIndex - 2)    Next   Next End With objExcel.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit End Sub

В проге имеются 4 загрузки документов, и при обращении к любому из них после закрытия программы выдает ошибку и отладчик останавливается на строке

Код

FileCopy prompt$, FileNm$

, хотя есть код для закрытия всех RecordSet вот так:

Код

Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Dim ws As Workspace Dim db As Database Dim rs As Recordset ' For Each ws In Workspaces For Each db In ws.Databases For Each rs In db.Recordsets rs.Close Set rs = Nothing Next db.Close Set db = Nothing Next ws.Close Set ws = Nothing Next Set frmGlavn = Nothing Dim i As Integer For i = Forms.Count - 1 To 0 Step -1 Unload Forms(i) 'Выгружаем все формы Next i     Unload Me        Set frmGlavn = Nothing        Unload Me End Sub

Если в процессе работы проги не было обращений к Excel. то все нормально выгружается и происходит копирование БД
Или после выхода этот документ Excel не закрывается?
Помогите, pse, разобраться с этой проблемой.
С Уважением

Это сообщение отредактировал(а) Flotskiy - 17.3.2005, 10:32

Permission denied?
Доступ закрыт
Не знаю, как это связано с Excel, но мне это напонимает банальную ошибку в именах файлов или ч.-л. в этом роде.
А, ВСПОМНИЛ!!!!
У меня та же проблема была, когда я в БД не закрывал коннэкшенов. Убедись, что ты все закрыл.
Посмотрел код. Хммм....
А зачем

Код

Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Dim ws As Workspace Dim db As Database Dim rs As Recordset ' For Each ws In Workspaces For Each db In ws.Databases For Each rs In db.Recordsets rs.Close Set rs = Nothing Next db.Close Set db = Nothing Next ws.Close Set ws = Nothing Next

И опять: убери On Error Resume Next!
Мне кажца, что правильнее adoConnection объявить Public, а в Unload его и закрыть.
Добавлено @ 21:58
Ну да! Ты же закрыл какие-то Recordset'ы, а коннекшн не закрыл

Добрый день всем!
Run-time error , в коде для запуска файла Excel есть такой фрагмент:

Цитата

'-- memory management -- adoRecordset.Close Set adoRecordset = Nothing

Сюда я добавил вот:

Код

'-- memory management -- adoRecordset.Close adoConnection.Close Set adoRecordset = Nothing Set adoConnection = Nothing

Значит adoConnection закрыт.
Испробовал прогу, все нормально, ошибки нет.
Но этод код на один Excel Файл.
В модуль поставил:

Код

Public adoRecordset As String Public adoConnection As String

а в Unload главной формы

Код

'-- memory management -- adoRecordset.Close adoConnection.Close Set adoRecordset = Nothing Set adoConnection = Nothing

хотел, чтобы было закрытие по всем формам (как ты и советовал), но так не получается у меня,
на этот фрагмент ругается. Что-то я не так сделал.
Подскажи, как упорядочить это?
С уважением

Цитата(Flotskiy @ 18.3.2005, 11:05)

на этот фрагмент ругается

И какая ошибка?

Доброе утро всем!
Выдает ошибку
Invalid qualifier (неправильный классификатор)
Я заремил в модуле

Код

Public adoRecordset 'As String Public adoConnection' As Strin

и все заработало, значит неправильно объявил переменную.
Если я прав - то всех благодарю за помощь
Всего доброго
С уважением