Знай Помилку В Коде 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 нічого не зміниться там проблема в запиті, він не формує таблицю
-
Актуальные фриланс-проекты в категории Десктопные приложения
Разработка кастомного ПО (Android-приложения + CMS) для киосков самообслуживания SUNMI K2 (Фастфуд)
1000 UAH
Ищем опытную команду или Middle/Senior Android-разработчика (возможно, с Full-stack навыками) для создания собственного программного обеспечения для киосков самообслуживания сети заведений быстрого питания. Сейчас наши терминалы работают на базе готового облачного интегратора,… CMS, Десктопные приложения ∙ 3 дня 17 часов назад ∙ 19 ставок |
Нужно сделать миграцию текущей рабочей программы с foxpro на C#Всем привет! у нас есть программа на foxpro (в ней есть несколько модулей, программа для учета), есть исходники программы, при острой необходимости можно проконсультироваться с людьми по поддержке текущей программы что нужно сделать: 1. аналитику, что и как работает, составить… C#, Десктопные приложения ∙ 9 дней 1 час назад ∙ 18 ставок |
ПО Мастер-программа «KONSTRUCTOR»
185 490 UAH
Мы ищем очень опытного C++ разработчика для модернизации существующего ПО (мастер-программы). Программа отвечает за создание производного ПО представляющего аудио-визуальные сеансы психологической коррекции. Текущая версия написана на чистом WinAPI (Visual Studio 2019/2022).… C и C++, Десктопные приложения ∙ 11 дней 14 часов назад ∙ 19 ставок |
Настройка ODOO Enterprise для строительства
Необхідно побудувати картки та налаштувати зручний імпорт, інтеграцію з ЕДО і загалом Workflow ODOO Компанія займається системною інтеграцією: маємо поставки обладнання В2В або з прямою маржинальністю, або з рібейтами в подальшому. Крім того, ведемо будівельні роботи на об'єктах… Автоматизация управления предприятием, Десктопные приложения ∙ 11 дней 23 часа назад ∙ 7 ставок |
Львов