Знай Помилку В Коде Visual Basic
Dim Sourcedb как база данных
Dim Destdb как база данных
Дим Тбльдеф как таблдеф
Дим RS как рекорд
Дим Флд как поле
Дим Strsql как строк
Дим Newsql как строк
Dim Skipcolumns как строк
Настройка Sourcedb = OpenDatabase («C: \Program Files\Out.Mdb», фальшивый, фальшивый, «; Pwd=555»)
Настройка Destdb = Open Database («C: \Program Files\In.Mdb», фальшивый, фальшивый, «; Pwd=555»)
Для каждого Tbldef в Sourcedb.Tabledefs
Если нет (Tbldef.Name как "Msys *" или Tbldef.Name как "~ *") то игнорируйте системные таблицы
Strsql = «Выберите * из «& Tbldef.Name»
Настройка RS = Sourcedb.Openrecordset (Strsql)
Newsql = "включить в "& Tbldef.Name & "("
Скипколумны = «»
Т = 0
Для каждого Fld в Rs.Fields
Если Tbldef.Fields (Fld.Name) не является ничем, то поле существует в таблице назначения.
Newsql = Newsql & "["& Fld.Name & "], "
Поле Else не существует в таблице назначения
Skipcolumns = Skipcolumns & "["& Fld.Name & "], "
Окончательно если
Следующая ФГД
Newsql = левый (Newsql, Len (Newsql) - 2) & ") ценности ("
Добавить параметры для колонн, которые существуют в таблице назначения
Для каждого Fld в Tbldef.Fields
Newsql = Newsql & «?, «
Следующая ФГД
Newsql = левый (Newsql, Len (Newsql) - 2) & ")
"Введите записи в таблицу назначения"
Р.Первый переход
Сделать до Rs.Eof
Дим Qdf как Querydef
Настройка Qdf = Destdb.Createquerydef («», Newsql)
«Запрошуем ввести в Активни ([Nomer], [Spivrobitnyk], [Zarer], [Vyjshov], [Admin], [Nomer_Kom] ценности (?,?,?,?,?,?,?)»
1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст.
Дим я как целое
I = 0
Для каждого Fld в Rs.Fields
Если не Тбльдеф.Фелдс (Fld.Name) — ничто, то ïïïëå 3Ñíóo  Òààëèö3 ïðèçḳ÷Åííÿ
2 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст. 1 ст.
Qdf.Параметры (I) = Fld.Value
Окончательно если
I = I + 1
Следующая ФГД
Qdf.Экзекутирование
Р. Мобильный
ЛОП
Р. Закрытие
Если Лен (Skipcolumns)> 0 то некоторые колонны были пересечены
Msgbox "Skipcolumns в таблице "& Tbldef.Name & ": "& left (Skipcolumns, Len (Skipcolumns) - 2)
Окончательно если
Окончательно если
Следующая статьяTbldef
Сотрудники.Close
Destdb.Close → Закрыть
Приложения 2
-
На перший погляд ви маєте присвоїти значення індексу тільки тоді коли поле існує в таблиці. Треба змінювати цикл For Each fld In RS.Fields...
-
Проблема в тому що таблиця запиту qdf не формується від команди Set qdf = destDB.CreateQueryDef("", newSQL), де newSQL= "INSERT INTO Aktyvni (Nomer, Spivrobitnyk, Zarer, Vyjshov, Admin, Nomer_kom) VALUES (?, ?, ?, ?, ?, ?)"
-
Основне завдання перенести з бази даних в іншу дані , по таблицях, але в оновленій базі деяких стовпців в таблиці може не буди
-
замініть цикл For Each fld In RS.Fields на
i = 0
For Each fld In RS.Fields
If Not tblDef.Fields(fld.Name) Is Nothing Then ' поле існує в таблиці призначення
qdf.Parameters(i) = fld.Value
i = i + 1
End If
Next fld
-
від перестановки і=і+1 нічого не зміниться там проблема в запиті, він не формує таблицю
-
Актуальные фриланс-проекты в категории Десктопные приложения
Нужен Airtable-архитектор для построения реляционной схемы и новой чистой базы AirtableНеобходимо помочь переосмыслить и построить чистую реляционную схему для внутренней операционной системы на Airtable. Текущая база уже используется командой, но она выросла органически: структура частично плоская, часть таблиц/вьюшек используется активно, часть почти не… Базы данных и SQL, Десктопные приложения ∙ 4 дня 4 часа назад ∙ 10 ставок |
Создание ПО для генерации файлов резки деревянных пазловИщем разработчика для создания программного обеспечения, которое автоматизирует процесс построения файлов резки для деревянных фигурных пазлов. Текущий процесс Сейчас каждый файл создается дизайнером вручную в Adobe Illustrator. Файл содержит: внешний контур пазла произвольной… Десктопные приложения ∙ 4 дня 9 часов назад ∙ 14 ставок |
Небольшая правка на сайте
700 UAH
Нужно переподвизать договор оферты в футтере на новый , в компании поменялся регламент Задача на 20 минут Веб-программирование, Десктопные приложения ∙ 5 дней 10 часов назад ∙ 112 ставок |
Инструмент сверки счетов с банком, картами и бухгалтеромТехническое задание: инструмент сверки счетов с банком, картами и бухгалтеромОбщая цель Нужен локальный инструмент (скрипт/небольшое приложение на Python), который запускается вручную раз в 1-2 месяца на моём компьютере и делает сверку между: Счетами, которые я выставил клиентам… Python, Десктопные приложения ∙ 7 дней 17 часов назад ∙ 44 ставки |
Добавить паузы 10-30 секунд между отправками писем
Здравствуйте! Ищу опытного программиста 1С / BAS (BAF) для оперативного решения технической проблемы с почтовой рассылкой.Суть проблемы: Используем бухгалтерскую программу BAF (Business Automation Framework), редакция 2.0. Раз в месяц возникает необходимость массово отправлять… Веб-программирование, Десктопные приложения ∙ 13 дней 9 часов назад ∙ 10 ставок |
Львов