Znajduje się w kodzie wizualnej podstawy

Aplikacje desktopowe — podano nieprawidłowe kategorie?

Zlecenie jest tłumaczone automatycznie. Zaloguj się lub zarejestruj się, żeby zobaczyć oryginał Znajdź Pomiłek W Kodzie Podkoryguj Kod, Pomiłek Zaznaczony W Rzadko 1, 2 Dim Sourcedb jako bazy danych Dim Destdb jako bazy danych Dim Tbldef jako Tabledef Dim RS jako rekord Dim Fld jako pole Dim Strsql jako strzałka Dim Newsql jako strona Dim Skipcolumns jako strzałka Set Sourcedb = Opendatabase ("C: \Program Files\Out.Mdb", fałszywe, fałszywe, "; Pwd=555") Zestaw Destdb = Opendatabase ("C: \Program Files\In.Mdb", fałszywy, fałszywy, "; Pwd=555") Dla każdego Tbldef w Sourcedb.Tabledefs Jeśli nie (Tbldef.Name jak "Msys *" lub Tbldef.Name jak "~ *") to ignoruj tabele systemowe Strsql = "Wybierz * z "& Tbldef.Name Zestaw RS = Sourcedb.Openrecordset (Strsql) Newsql = "wstawić w "& Tbldef.Name & "(" Sklepy = „” T = 0 Dla każdego Fld w Rs.Fields Jeśli Tbldef.Fields (Fld.Name) nie jest nic, to pole istnieje w tabeli docelowej Newsql = Newsql & "["& Fld.Name & "], " Pole Else nie istnieje w tabeli docelowej Skipcolumns = Skipcolumns & "["& Fld.Name & "], " Koniec jeśli Następny Fld Newsql = lewy (Newsql, Len (Newsql) - 2) i ") wartości (" Dodaj parametry dla kolumn, które istnieją w tabeli docelowej Dla każdego Fld w Tbldef.Fields Newsql = Newsql & „?, „ Następny Fld Newsql = lewica (Newsql, Len (Newsql) - 2) & ") Wprowadź rekordy do tabeli docelowej Rz.Pierwszy Do rs.eof Dim Qdf jako Querydef Zestaw Qdf = Destdb.Createquerydef ("", Newsql) Zapytajcie o to, co się dzieje, a co się dzieje, co się dzieje, co się dzieje, co się dzieje. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Dym I jako całość I = 0 Dla każdego Fld w Rs.Fields Jeśli nie Tbldef.Fields (Fld.Name) jest nic, to Ïîëå 3Ñíóo Â Òàáèö3 Ïðèç♰Åííÿ 1 / 2 / 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 / 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 / 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 / 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 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 / 1 Qdf.Parametry (I) = wartość Fld Koniec jeśli I = I + 1 Następny Fld KDZW. wykonawca Rz.Movenext Loop Rz. zamknięte Jeśli Len (Skipcolumns)> 0 to niektóre kolumny zostały przelewane Msgbox "skryte kolumny w tabeli "& Tbldef.Name & ": "& w lewo (Skipcolumns, Len (Skipcolumns) - 2) Koniec jeśli Koniec jeśli Następny Tbldef Źródło:Close DSTDb.Zakończenie

Załączniki2

DOCX

Sub net.docx

13KB

Oferty 1 Wycofane 1 Dyskusje 5

Dmytro Butko 21 kwietnia 2023

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

Mikola Zubritsky

21 kwietnia 2023

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

Mikola Zubritsky

21 kwietnia 2023

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

Dmytro Butko 21 kwietnia 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

Mikola Zubritsky

21 kwietnia 2023

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

Dodaj komentarz

Mikola Zubritsky
Lwów, Ukraina

Zleceń -
Ocena -
Ranking 45

Znajduje się w kodzie wizualnej podstawy

Oferty ukryte

Aktualnie brak ofert

Oferty ukryte

Aktualne zlecenia dla freelancerów w kategorii Aplikacje desktopowe

Aplikacja: Cyfrowy rynek dla wykwalifikowanych rzemieślników w Maroku

Marktplace

Stworzyć desktopowy moduł C++, Firebird

Aplikacja mobilna