Знай Помилку В Коде Visual Basic

Десктопные приложения — неверно указаны категории?

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

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

Знай Помилку В Коде Visual Basic

Ставки скрыты

Ставки пока отсутствуют

Ставки скрыты

Актуальные фриланс-проекты в категории Десктопные приложения

Приложение: Цифровая торговая площадка для квалифицированных специалистов в Марокко

Маркетплеис

Создать десктопный модуль C++, Firebird

Мобильное приложение