ник: час
Программно переношу данные из одной базы в другую
Структура баз одинаковая
Структура таблиц почти одинаковая
и вот у одной из таблиц поле ID - счётчик
А надо перенести тютелька в тютельку
Public Function FUN_LOAD_GROUP() As Boolean
' Перенос товаров
On Error GoTo FUN_LOAD_GROUP_Error
'----------------------------------------------------------------------------------------------------------------------------------------------------------------
FUN_LOAD_GROUP = True
'Call FUN_ARHIV_ARM
Dim rst_KUDA As ADODB.Recordset
Dim rst As ADODB.Recordset
Set rst = New Recordset
Form1!Text2.Text = "Группы"
Form1.Refresh
If FUN_IS_TABLE_IN_BASA("COMMODITY_GROUP_TBL", GLB_STARAYA_CONNECTION) = True Then
rst.Open " SELECT COMMODITY_GROUP_TBL.*" _
& " From COMMODITY_GROUP_TBL", GLB_STARAYA_CONNECTION, adOpenKeyset, adLockOptimistic
' проверить на пустоту
If rst.RecordCount = 0 Then
Call MsgBox("Отсутствуют данные в указаном файле", vbCritical)
rst.Close
Set rst = Nothing
Exit Function
End If
Else
Call MsgBox("Отсутствует таблица накладной COMMODITY_GROUP_TBL в указаном файле", vbCritical)
Exit Function
End If
' Функция Очистка таблицы
Call FUN_CLEAR_TABLE("COMMODITY_GROUP_TBL", GLB_CONNECTION)
' подключение к текущей таблице
Set rst_KUDA = New Recordset
rst_KUDA.Open " SELECT COMMODITY_GROUP_TBL.*" _
& " From COMMODITY_GROUP_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
rst.MoveLast
rst.MoveFirst ' Начнем с первой записи
Do Until rst.EOF
rst_KUDA.AddNew
Form1!Text1.Text = NZVB(rst("GROUP_NUMBER"))
Form1.Refresh
rst_KUDA("GROUP_NUMBER") = NZVB(rst("GROUP_NUMBER")) ' галочка
rst_KUDA("GROUP_NAME") = NZVB(rst("GROUP_NAME")) ' галочка
rst_KUDA("USER_NAME") = NZVB(rst("USER_NAME")) 'Имя файла.
rst_KUDA("DATE_RECORDS") = CDate(NZVAL(rst("DATE_RECORDS"))) 'Имя файла.
rst_KUDA.Update
rst.MoveNext
Loop
rst_KUDA.Close
Set rst_KUDA = Nothing
rst.Close
Set rst = Nothing
Form1!LOG = Form1!LOG & vbCrLf & "Перенос групп товаров - готово "
'----------------------------------------------------------------------------------------------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_LOAD_GROUP_Error:
FUN_LOAD_GROUP = False
Error_String = Err.Description
End Function
|
После переноса проверяю - поле счётчик принял все данные которые в него запихнули, хотя он счётчик
============================================================
И вот не знаю - верить этому или нет - потому как непонятка....
Перегонять данные будут без меня и что получится - не известно..