Úkol: vytvořte zálohu tabulky Objednávky a vložte do ní každý
2.záznam z roku 1997 (případně jiný rok, pokud 97 není)
Vý nekdo jak nato prosím ? Diki za odpoveď
Tady je kód od kolegy jak by to malo asi vypadat ale je to pro:
vytvořte zálohu tabulky Zákazníci a vložte do ní každý 5.záznam
Kód kolegy : Private Sub Příkaz0_Click()
Dim db As Database
Set db = CurrentDb
db.Execute "INSERT into Zakaznici_zaloha SELECT Zákazníci.* FROM Zákazníci
WHERE (KódZákazníka MOD 5=0) ORDER BY KódZákazníka;"
MsgBox ("Úloha prevedená.")
db.Close
End Sub
s = "CREATE TABLE Zakaznici_zaloha (KódZákazníka char(5) PRIMARY KEY,
Firma varchar(40), KontaktníOsoba varchar(30), Funkce varchar(30), Adresa
varchar(60), Město varchar(15), Region varchar(15), PSČ char(10), Země
varchar(15), Telefon varchar(24), Fax varchar(24))"
________________________________________________________________________________
Dim PoradoveCislo As Integer
Dim Kodzakaznika As String
Dim NazevZakaznika As String
Dim db As Database
Dim rst As Recordset
Dim createQuery As String
Dim selectQuery As String
PoradoveCislo = 1
Set db = CurrentDb
selectQuery = "SELECT KódZákazníka,Firma FROM Zákazníci WHERE
Země='Německo'"
db.Execute "CREATE TABLE ZakaziciNemecko(IDZakaznik int ,Kod char(5)
PRIMARY KEY,Nazev varchar(100));"
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.