Знайти Помилку В Коді Візуальна База

Десктопні додатки — неправильно зазначені категорії?

Проєкт перекладено автоматично. Увійдіть або зареєструйтесь, щоб побачити оригінал Знайти Помілку В Коді Та Підкоригувати Код, Помілка Зазначена В Рядка 1, 2 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

DOCX

Sub net.docx

13KB

Ставки 1 Відкликані 1 Обговорення 5

Дмитро Бутко 21 квітня 2023

На перший погляд ви маєте присвоїти значення індексу тільки тоді коли поле існує в таблиці. Треба змінювати цикл For Each fld In RS.Fields...

Микола Зубрицький

21 квітня 2023

Проблема в тому що таблиця запиту qdf не формується від команди Set qdf = destDB.CreateQueryDef("", newSQL), де newSQL= "INSERT INTO Aktyvni (Nomer, Spivrobitnyk, Zarer, Vyjshov, Admin, Nomer_kom) VALUES (?, ?, ?, ?, ?, ?)"

Микола Зубрицький

21 квітня 2023

Основне завдання перенести з бази даних в іншу дані , по таблицях, але в оновленій базі деяких стовпців в таблиці може не буди

Дмитро Бутко 21 квітня 2023

замініть цикл 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

Микола Зубрицький

21 квітня 2023

від перестановки і=і+1 нічого не зміниться там проблема в запиті, він не формує таблицю

Додати коментар

Микола Зубрицький
Львів, Україна

Проєктів -
Оцінка -
Рейтинг 45

Знайти Помилку В Коді Візуальна База

Ставки приховані

Ставки поки відсутні

Ставки приховані

Актуальні фриланс-проєкти в категорії Десктопні додатки

Доопрацювання Python-програми під новий інтерфейс чатів Twitter (X)

Доопрацювання РМК у 1С: відображення бонусного балансу клієнта

Налаштування декількох акаунтів Viber на одному віддаленому робочому столі

Легкий додаток

Додаток: Цифровий ринок для кваліфікованих ремесел в Марокко