Znajduje się w kodzie wizualnej podstawy
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łączniki 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 нічого не зміниться там проблема в запиті, він не формує таблицю
-
Aktualne zlecenia dla freelancerów w kategorii Aplikacje desktopowe
Modyfikacja w pracy emulatora
164 PLN
Witaj. Ściągnąłem z Internetu emulator automatu do gier gaminator cf final. Bardzo mi się podoba, ale są tam niedociągnięcia. Jest panel administracyjny, ale otwiera się swobodnie, a nie zamyka w ogóle. Zamyka się tylko razem z aplikacją. A dane po zmianach w panelu… Aplikacje desktopowe ∙ 6 godzin 58 minut temu ∙ 8 ofert |
Opracowanie niestandardowego oprogramowania (aplikacja na Androida + CMS) dla kiosków samoobsługowych SUNMI K2 (fast food)
82 PLN
Szukamy doświadczonego zespołu lub programisty Android na poziomie średnim/zaawansowanym (możliwe, że z umiejętnościami Full-stack) do stworzenia własnego oprogramowania dla kiosków samoobsługowych sieci fast food. Obecnie nasze terminale działają na bazie gotowego chmurowego… Content Management Systems, Aplikacje desktopowe ∙ 5 dni 2 godziny temu ∙ 20 ofert |
Należy przeprowadzić migrację obecnego programu roboczego z foxpro na C#Cześć wszystkim! Mamy program na foxpro (ma kilka modułów, program do ewidencji), mamy źródła programu, w razie pilnej potrzeby można skonsultować się z osobami zajmującymi się wsparciem bieżącego programu. Co należy zrobić: 1. Analiza, co i jak działa, sporządzenie listy… C#, Aplikacje desktopowe ∙ 10 dni 10 godzin temu ∙ 19 ofert |
Mistrzowska program «KONSTRUCTOR»
15 258 PLN
Szukamy bardzo doświadczonego programisty C++ do modernizacji istniejącego oprogramowania (programu głównego). Program odpowiada za tworzenie pochodnego oprogramowania reprezentującego sesje audiowizualnej korekcji psychologicznej. Obecna wersja jest napisana w czystym WinAPI… C i C++, Aplikacje desktopowe ∙ 12 dni 23 godziny temu ∙ 20 ofert |
Konfiguracja ODOO Enterprise dla budownictwa
Необхідно побудувати картки та налаштувати зручний імпорт, інтеграцію з ЕДО і загалом Workflow ODOO Компанія займається системною інтеграцією: маємо поставки обладнання В2В або з прямою маржинальністю, або з рібейтами в подальшому. Крім того, ведемо будівельні роботи на об'єктах… Automatyzacja zarządzania przedsiębiorstwem, Aplikacje desktopowe ∙ 13 dni 8 godzin temu ∙ 7 ofert |
Lwów