Názov tabuľky databázy premenných je Text
Hlavné okno udalosti. Created()
názov databázovej tabuľky = "mytable"
Záverečná udalosť
Tlačidlo udalosti 4. Kliknuté ()
Ak súbor existuje (vezmite cestu pamäťovej karty () > "/mydata.db") = false
Vytvorte databázu (použite cestu karty () > "/mydata.db")
Vyskakovacie okno ("Vytvoriť databázu úspešne!") )
Koniec ak
Otvorte databázu (použite card path() > "/mydata.db") '!! Databáza musí byť otvorená pred vykonaním akýchkoľvek databázových operácií
Vyskakovacie okno ("Otvorená databáza úspešná!") )
Záverečná udalosť
Tlačidlo udalosti 1. Klikol som ()
Ak dátová tabuľka existuje (názov databázovej tabuľky) = nepravdivé
'VYTVORIŤ TABUĽKU' & názov databázovej tabuľky & "(id text, value text)") 'Vytvoriť dátovú tabuľku s dvoma stĺpcami, prvý stĺpec je id a druhý stĺpec je hodnota
Vytvorte dátovú tabuľku (názov databázovej tabuľky, "id text, value text")
Ak chcete vytvoriť samoinkrementujúce ID pole, môžete napísať Create Data Table (názov databázovej tabuľky, "id integer PRIMARY KEY, value text")
Vyskakovacie okno ("Vytvoriť datasheet úspešne!") )
Inak
Vyskakovacie okno ("Datasheet už existuje!") )
Koniec ak
Záverečná udalosť
Tlačidlo udalosti 2. Klikol som na ()
' Vykonávanie databázy ("VLOŽIŤ DO " & Názov databázovej tabuľky & "HODNOTY ('1','zhangshang@163.com')") 'Vložiť záznamy
' Vykonávanie databázy ("VLOŽIŤ DO " & názov databázovej tabuľky & " HODNOTY ('2','1234567@qq.com')")
' Vykonávanie databázy ("INSERT INTO" & názov databázovej tabuľky & "VALUES ('3','Lisi@126.com')")
' Vykonávanie databázy ("VLOŽIŤ DO " & názov databázovej tabuľky & " HODNOTY ('4','Wangwu@163.com')")
Vložiť záznam (názov databázovej tabuľky, "'1','zhangshang@163.com'")
Vložiť záznam (názov databázovej tabuľky, "'2','1234567@qq.com'")
Vložiť záznam (názov databázovej tabuľky, "'3','Lisi@126.com'")
Vložiť záznam (názov databázovej tabuľky, "'4','Wangwu@163.com'")
'Ak je id samoinkrementujúce pole, malo by byť napísané takto Insert record (názov databázovej tabuľky, 'null,'Wangwu@163.com'")
Na vloženie obsahu editačného poľa môžete napísať takto: Vložiť záznam (názov databázovej tabuľky, "'" & edit box 1.content & "','" & edit box 2.content & "'")
Vyskakovacie okno ("Vloženie úspešné!") )
Záverečná udalosť
Tlačidlo udalosti 3. Kliknuté ()
'Edit box 1.Content = database query("SELECT * FROM" & názov databázovej tabuľky & " WHERE id='1'","-",","\n") 'Query id='1' pre záznam, deti každého záznamu sú oddelené -, a záznamy sú oddelené zalomením riadkov
'Edit box 1.Content = conditional query (názov databázovej tabuľky, "id='1'", "-", "\n")
Ak vymažete začiatok a koniec prázdneho miesta (edit box 2.content) = "" potom
Vyskakovacie okno ("Prosím, zadajte kritériá dopytu")
Východ
Koniec ak
Edit box 1.Content = conditional query(názov databázovej tabuľky,"id='" > vymazať prvé a posledné medzery (edit box 2.content) > "'","-","\n")
Vyskakovacie okno ("Dotaz úspešný!") )
Záverečná udalosť
Tlačidlo udalosti 6. Klikol som ()
'Vykonávanie databázy ('UPDATE' & názov databázovej tabuľky > 'SET value='Toto je modifikovaná hodnota' WHERE id='1'") 'Upraviť id='1' pre tento záznam
Upravte záznam (názov databázovej tabuľky, "value='Toto je upravená hodnota'", "id='1'")
Vyskakovacie okno ("Úspešne upravené!") )
Záverečná udalosť
Tlačidlo udalosti 5. Kliknuté ()
'DELETE FROM' ("DELETE FROM" & názov databázovej tabuľky & " WHERE id='1'") 'delete the record id='1'
Vymazať záznam (názov databázovej tabuľky, "id='1'")
Vyskakovacie okno ("Vymazané, úspešné!") )
Záverečná udalosť
Tlačidlo udalosti 7. Klikol som na ()
"VYKONÁVANIE DATABÁZY" ("DROP TABLE" > názov databázovej tabuľky) vymaže celú databázovú tabuľku
Vymazanie dátovej tabuľky (názov databázovej tabuľky)
Vyskakovacie okno ("Vymazať databázovú tabuľku úspešne!") )
Záverečná udalosť
Tlačidlo udalosti 8. Klikol som na ()
Vyskakovacie okno ("Celkový počet záznamov:" > Počet záznamov (názov databázovej tabuľky) > "Položky")
Záverečná udalosť
Tlačidlo udalosti 9. Kliknuté ()
'Edit box 1.Content = database query("SELECT * FROM" > názov databázovej tabuľky > "WHERE hodnota AKO '%163.com'","-","\n") 'Dotazujte všetky záznamy s hodnotami končiacimi na '163.com'
Edit box 1. Content = podmienený dotaz (názov databázovej tabuľky, "value LIKE '%163.com'", "-", "\n")
Vyskakovacie okno ("Dotaz úspešný!") )
Záverečná udalosť
Tlačidlo udalosti 10. Kliknuté ()
'Edit box 1.Content = database query("SELECT * FROM" > názov databázovej tabuľky & "LIMIT 0,3","-","\n") 'Dotaz na 3 záznamy začínajúce od 0 (1).
Edit box 1. Content = Scope query (názov databázovej tabuľky, 0, 3, "-", "\n")
Vyskakovacie okno ("Dotaz úspešný!") )
Záverečná udalosť
Tlačidlo udalosti 11. Kliknuté ()
Zatvorte databázu() '!! Na konci programu zatvorte databázu
Koniec procedúry ()
Záverečná udalosť |
[Kopírovať odkaz]
Zverejnené 4. 1. 2018 21:16:38
|
Zverejnené 4. 6. 2017 8:49:09
