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
Potrzebny architekt Airtable do zbudowania schematu relacyjnego i nowej czystej bazy AirtablePotrzebna pomoc w przemyśleniu i zbudowaniu czystiej schemy relacyjnej dla wewnętrznego systemu operacyjnego w Airtable. Obecna baza jest już używana przez zespół, ale rozwinęła się organicznie: struktura jest częściowo płaska, część tabel/widoków jest używana aktywnie, część… Bazy danych i SQL, Aplikacje desktopowe ∙ 4 dni 3 godziny temu ∙ 10 ofert |
Tworzenie oprogramowania do generowania plików cięcia drewnianych puzzliSzukamy programisty do stworzenia oprogramowania, które automatyzuje proces tworzenia plików cięcia dla drewnianych figurkowych puzzli. Aktualny proces Obecnie każdy plik jest tworzony ręcznie przez projektanta w Adobe Illustrator. Plik zawiera: zewnętrzny kontur puzzla o… Aplikacje desktopowe ∙ 4 dni 7 godzin temu ∙ 14 ofert |
Mała poprawka na stronie
59 PLN
Trzeba zaktualizować umowę ofertową w stopce na nową, w firmie zmieniły się zasady Zadanie na 20 minut Programowanie stron internetowych, Aplikacje desktopowe ∙ 5 dni 9 godzin temu ∙ 112 ofert |
Narzędzie do porównywania rachunków z bankiem, kartami i księgowymZadanie techniczne: narzędzie do porównywania rachunków z bankiem, kartami i księgowymOgólny cel Potrzebne jest lokalne narzędzie (skrypt/mała aplikacja w Pythonie), które uruchamiane ręcznie co 1-2 miesiące na moim komputerze i dokonuje porównania między: Rachunkami, które… Python, Aplikacje desktopowe ∙ 7 dni 16 godzin temu ∙ 44 oferty |
Dodać przerwy 10-30 sekund między wysyłkami e-maili
Witam! Szukam doświadczonego programisty 1C / BAS (BAF) do szybkiego rozwiązania problemu technicznego z wysyłką maili.Istota problemu: Używamy programu księgowego BAF (Business Automation Framework), edycja 2.0. Raz w miesiącu pojawia się potrzeba masowego wysyłania klientom… Programowanie stron internetowych, Aplikacje desktopowe ∙ 13 dni 8 godzin temu ∙ 10 ofert |
Lwów