Цитата(hildi @ 15.4.2009, 17:20  ) | | По идее, там дубликатов быть не должно |
Давайте мыслить процессом, а не моментом.
Вот вчера были получены данные и занесены в локальную таблицу. Сегодня мы получаем свежие данные, понятно, что 99% из них - дубликаты уже существующих в локальной таблице. Опять же понятно, что если есть полное совпадение всех получаемых полей - можно ничего не обновлять... а если часть полученных полей совпадает, а часть различается - что делать? обновлять? создавать новую запись? скорее всего в зависимости от того, какие именно поля различаются - тогда список полей уникальных (завести новую запись) и неуникальных (обновить)...
Добавлено через 9 минут и 20 секунд
И вот что... руками всё это набирать лень... Вот код:
| Код |
Option Compare Database
Option Explicit
Sub SaveTableStructures()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.index
Dim ff As Long
ff = FreeFile
Open "\structure.txt" For Output As #ff
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Print #ff, "TableName="; tdf.Name
Print #ff,
For Each fld In tdf.Fields
Print #ff, " FieldName="; fld.Name
Print #ff, " FieldType="; fld.Type
Print #ff, " FieldSize="; fld.Size
If fld.DefaultValue <> "" Then Print #ff, " FieldDefaultValue="; fld.DefaultValue
Print #ff, " FieldAllowZeroLength="; fld.AllowZeroLength
Print #ff, " FieldRequired="; fld.Required
If fld.ValidationRule <> "" Then Print #ff, " FieldValidationRule="; fld.ValidationRule
If fld.ValidationText <> "" Then Print #ff, " FieldValidationText="; fld.ValidationText
Print #ff,
Next
For Each idx In tdf.Indexes
Print #ff, " IndexName="; idx.Name
Print #ff, " IndexUnique="; idx.Unique
Print #ff, " IndexPrimary="; idx.Primary
Print #ff, " IndexRequired="; idx.Required
Print #ff, " IndexIgnoreNulls="; idx.IgnoreNulls
Print #ff, " IndexClustered="; idx.Clustered
Print #ff, " IndexDistinctCount="; idx.DistinctCount
Print #ff, " IndexForeign="; idx.Foreign
For Each fld In idx.Fields
Print #ff, " IndexField="; fld.Name
Next
Print #ff,
Next
End If
Next
Close #ff
End Sub
|
Откройте свою БД. Перейдите на вкладку "Модули". Выберите "Создать модуль". Проверьте что в меню Tools-References есть галка на "Microsoft DAO 3.6 Object Library", если нет - поставьте. Сотрите всё, что в окне текста модуля появится. Скопируйте туда этот код. Сохраните модуль (File-Save). Поставьте курсор в строку "Sub SaveTableStructures()". Выберите Run - Run Sub/Userform. По завершении работы (1-2 сек) закройте базу (при следующем запуске модуль можно будет удалить). Заархивируйте созданный в корне диска файл structure.txt и приложите к сообщению. |
