Muuttujan tietokantataulun nimi on Text
Tapahtuman pääikkuna. Luotu()
tietokantataulun nimi = "mytable"
Lopputapahtuma
Tapahtumapainike 4. Klikkaus ()
Jos tiedosto on olemassa (ota muistikortin polku() > "/mydata.db") = epätosi
Luo tietokanta (ota korttipolku () > "/mydata.db")
Ponnahdusikkuna ("Luo tietokanta onnistunut!") )
Lopeta jos
Avaa tietokanta (ota korttipolku() > "/mydata.db") '!! Tietokanta on avattava ennen minkään tietokantatoiminnon suorittamista
Ponnahdusikkuna ("Avaa tietokanta onnistunut!") )
Lopputapahtuma
Tapahtumapainike 1. Klikkaus ()
Jos tietotaulu on olemassa (tietokantataulun nimi) = epätosi
'CREATE TABLE' & Database table name & "(id text,value text)") 'Luo datataulu, jossa on kaksi saraketta, ensimmäinen sarake on id ja toinen sarake arvo
Luo tietotaulu (tietokantataulun nimi, "id-teksti, arvoteksti")
Jos haluat luoda itsestään kasvavan id-kentän, voit kirjoittaa Create Data Table (tietokantataulun nimi, "id integer PRIMARY KEY, arvoteksti")
Ponnahdusikkuna ("Luo datasheet onnistunut!") )
Muuten
Ponnahdusikkuna ("Datasheet on jo olemassa!") )
Lopeta jos
Lopputapahtuma
Tapahtumapainike 2. Klikkaus ()
' Tietokannan suoritus ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Lisää tietueita
' Tietokannan suoritus ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Tietokannan suoritus ("INSERT INTO" & Database Table Name & "VALUES ('3','Lisi@126.com')")
' Tietokannan suoritus ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Lisää tietue (tietokantataulun nimi, "'1','zhangshang@163.com'")
Lisää tietue (tietokantataulun nimi, "'2','1234567@qq.com'")
Lisää tietue (tietokantataulun nimi, "'3','Lisi@126.com'")
Lisää tietue (tietokantataulun nimi, "'4','Wangwu@163.com'")
'Jos id on itsestään kasvava kenttä, se tulisi kirjoittaa näin Insert-tietue (tietokantataulukon nimi, 'null,'Wangwu@163.com'")
Lisätäksesi muokkauslaatikon sisällön, voit kirjoittaa näin: Lisää tietue (tietokantataulukon nimi, "'" & muokkauslaatikko 1.sisältö & "','" & muokkauslaatikko 2.sisältö & "'")
Ponnahdusikkuna ("Insertion onnistui!") )
Lopputapahtuma
Tapahtumapainike 3. Klikkaus ()
'Edit box 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-""\n") 'Query id='1' tietueelle, jokaisen tietueen lapset on erotettu -, ja tietueet on erotettu rivinvaihdoilla
'Edit box 1.Content = ehdollinen kysely (tietokantataulun nimi, "id='1'", "-", "\n")
Jos poistat tyhjän kohdan alun ja lopun (muokkausruutu 2.content) = "" niin
Ponnahdusikkuna ("Syötä kyselykriteerit")
Poistuminen
Lopeta jos
Muokkausruutu 1.Content = ehdollinen kysely (tietokantataulun nimi,"id='" > poista ensimmäinen ja viimeinen väli (muokkauslaatikko 2.content) > "'","-","\n")
Ponnahdusikkuna ("Kysely onnistui!") )
Lopputapahtuma
Tapahtumapainike 6. Klikkaus ()
'Tietokannan suoritus ('UPDATE' & tietokantataulun nimi > 'SET value='Tämä on muokattu arvo' MISSÄ id='1'") 'Muokkaa id='1' kyseiselle tietueelle
Muokkaa tietuetta (tietokantataulun nimi, "value='Tämä on muokattu arvo'", "id='1'")
Ponnahdusikkuna ("Muokattu onnistuneesti!") )
Lopputapahtuma
Tapahtumapainike 5. Klikkaus ()
'DELETE FROM' ("DELETE FROM" &tietokantataulun nimi & " WHERE id='1'") 'poista tietue id='1'
Poista tietue (tietokantataulun nimi, "id='1'")
Ponnahdusikkuna ("Poistettu onnistui!") )
Lopputapahtuma
Tapahtumapainike 7. Klikkaus ()
'DATABASE EXECUTION' ("DROP TABLE" > tietokantataulun nimi) poistaa koko tietokantataulun
Tietotaulun poistaminen (tietokantataulun nimi)
Ponnahdusikkuna ("Poista tietokantataulu onnistui!") )
Lopputapahtuma
Tapahtumapainike 8. Klikkaus ()
Ponnahdusikkunakehote ("Tietueiden kokonaismäärä:" > Tietueiden määrä (tietokantataulun nimi) > "Kohteet")
Lopputapahtuma
Tapahtumapainike 9. Klikkaus ()
'Edit box 1.Content = database query("SELECT * FROM" > tietokantataulun nimi > "WHERE-arvo KUTEN '%163.com'","-","\n") 'Hae kaikki tietueet, joiden arvot päättyvät '163.com'
Muokkauslaatikko 1. Sisältö = ehdollinen kysely (tietokantataulun nimi, "arvo LIKE '%163.com'", "-", "\n")
Ponnahdusikkuna ("Kysely onnistui!") )
Lopputapahtuma
Tapahtumapainike 10. Klikkaus ()
'Edit box 1.Content = database query("SELECT * FROM" > tietokantataulun nimi & "LIMIT 0,3","-","\n") 'Kysely 3, tietueet alkavat 0 (1).
Muokkausruutu 1. Sisältö = Laajuuskysely (tietokantataulukon nimi, 0, 3, "-", "\n")
Ponnahdusikkuna ("Kysely onnistui!") )
Lopputapahtuma
Tapahtumapainike 11. Klikkaus ()
Sulje tietokanta() '!! Sulje tietokanta ohjelman lopussa
Loppuprosessi ()
Lopputapahtuma |
[Kopioi linkki]
Julkaistu 4.1.2018 21.16.38
|
Julkaistu 4.6.2017 8.49.09
