Знайти Помилку В Коді Візуальна База
Dim Sourcedb як база даних
Dim Destdb як база даних
Дим Тбльдеф як таблдеф
Дим РС як рекорд
Дим Флд як поле
Дим Strsql як струн
Дим Newsql як стрічка
Dim Skipcolumns як стрічка
Налаштуйте Sourcedb = Open Database ("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 & "], "
В кінці, якщо
Наступна Fld
Newsql = ліво (Newsql, Len (Newsql) - 2) & ") цінностей ("
Додайте параметри для стовпів, які існують в таблиці призначення
Для кожного Fld в Tbldef.Fields
Newsql = Newsql і «?, «
Наступна Fld
Newsql = ліворуч (Newsql, Len (Newsql) - 2) & ")
Введіть записи в таблицю пункту призначення
РНПППерший рух
Зробіть до Rs.Eof
QDF як Querydef
Налаштування Qdf = Destdb.Createquerydef ("", Newsql)
Запрошуємо до участі у виставці «Укрзалізниця», «Укрзалізниця», «Укрзалізниця» та «Укрзалізниця».
У зв'язку з цим пункт 1 виключити згідно з пунктом 1 цієї статті.
Дим я як цілком
І = 0
Для кожного Fld в Rs.Fields
Якщо не Тбльдеф.Фелдс (Fld.Name) - це ніщо, то Ïîëå 3Ñíóo  Òààëèö3 Ïðèçḳ÷Åííÿ
1 ст. 2 Закону України «Про охорону здоров'я та здоров'я населення»
Qdf.Параметри (I) = Fld.Value
В кінці, якщо
I = I + 1
Наступна Fld
QDF.Відкриття
РЗ «Мунекс»
ЛОП
РЗК КЛЮЗ
Якщо Лен (Skipcolumns)> 0 то' деякі колонки були перервані
Msgbox "Skiped columns in Table "& Tbldef.Name & ": "& left (Skipcolumns, Len (Skipcolumns) - 2)
В кінці, якщо
В кінці, якщо
Наступна ТБЛДФ
Джерело: Close
Закриття / 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 нічого не зміниться там проблема в запиті, він не формує таблицю
-
Актуальні фриланс-проєкти в категорії Десктопні додатки
Модифікація в роботі емулятора
2000 UAH
Доброго дня. Я скачав з Інтернету емулятор ігрового автомата gaminator cf final. Він мені дуже сподобався, але там є недоліки. Є адмін панель, але вона відкривається вільно, але не закривається взагалі. Закривається тільки разом з додатком. А дані, після зміни в адмін панелі -… Десктопні додатки ∙ 1 день 16 годин тому ∙ 10 ставок |
Розробка кастомного ПЗ (Android-додатка + CMS) для кіосків самообслуговування SUNMI K2 (Фастфуд)
1000 UAH
Шукаємо досвідчену команду або Middle/Senior Android-розробника (можливо, з Full-stack навичками) для створення власного програмного забезпечення для кіосків самообслуговування ритейл-мережі закладу швидкого харчування. Зараз наші термінали працюють на базі готового хмарного… CMS, Десктопні додатки ∙ 6 днів 12 годин тому ∙ 23 ставки |
Потрібно зробити міграцію поточної робочої програми з foxpro на C#Всім привіт! У нас є програма на foxpro (в ній є кілька модулів, програма для обліку), є вихідники програми, при гострій необхідності можна проконсультуватися з людьми по підтримці поточної програми Що потрібно зробити: 1. Аналіз, що і як працює, скласти список всього зайвого,… C#, Десктопні додатки ∙ 11 днів 20 годин тому ∙ 19 ставок |
Львів