Kintamojo duomenų bazės lentelės pavadinimas yra Tekstas
Pagrindinis įvykio langas. Sukurta()
Duomenų bazės lentelės pavadinimas = "mytable"
Baigti renginį
Įvykio mygtukas 4. Spustelėta ()
Jei failas yra (paimkite atminties kortelės kelią() > "/mydata.db") = false
Sukurkite duomenų bazę (pasirinkite kortelės kelią () > "/mydata.db")
Iššokantis raginimas ("Sukurti duomenų bazę sėkmingai!") )
Baigti, jei
Atidarykite duomenų bazę (pasirinkite kortelės kelią() > "/mydata.db") '!! Duomenų bazė turi būti atidaryta prieš atliekant bet kokias duomenų bazės operacijas
Iššokantis raginimas ("Atidaryti duomenų bazę sėkmingai!") )
Baigti renginį
Įvykio mygtukas 1. Spustelėta ()
Jei duomenų lentelė yra (duomenų bazės lentelės pavadinimas) = false
'CREATE TABLE ' & Duomenų bazės lentelės pavadinimas & "(id tekstas,reikšmės tekstas)") 'Sukurkite duomenų lentelę su dviem stulpeliais, pirmasis stulpelis yra id, o antrasis stulpelis yra value
Duomenų lentelės kūrimas (duomenų bazės lentelės pavadinimas, ID tekstas, reikšmės tekstas)
Jei norite sukurti savaime didėjantį id lauką, galite parašyti Kurti duomenų lentelę (duomenų bazės lentelės pavadinimas, "id sveikasis skaičius PRIMARY KEY, reikšmės tekstas")
Iššokantis raginimas ("Sukurti duomenų lapą sėkmingai!") )
Priešingu atveju
Iššokantis raginimas ("Duomenų lapas jau yra!") )
Baigti, jei
Baigti renginį
Įvykio mygtukas 2. Spustelėta ()
' Duomenų bazės vykdymas ("INSERT INTO " & Duomenų bazės lentelės pavadinimas & "VALUES ('1','zhangshang@163.com')") 'Įterpti įrašus
' Duomenų bazės vykdymas ("INSERT INTO " & Duomenų bazės lentelės pavadinimas & " VALUES ('2','1234567@qq.com')")
' Duomenų bazės vykdymas ("INSERT INTO" & Duomenų bazės lentelės pavadinimas & "VALUES ('3','Lisi@126.com')")
' Duomenų bazės vykdymas ("INSERT INTO " & Duomenų bazės lentelės pavadinimas & " VALUES ('4','Wangwu@163.com')")
Įterpti įrašą (duomenų bazės lentelės pavadinimas, "1','zhangshang@163.com")
Įterpti įrašą (duomenų bazės lentelės pavadinimas, "2','1234567@qq.com")
Įterpti įrašą (duomenų bazės lentelės pavadinimas, "3','Lisi@126.com")
Įterpti įrašą (duomenų bazės lentelės pavadinimas, "4','Wangwu@163.com")
"Jei id yra savaime didėjantis laukas, jis turėtų būti parašytas taip: Įterpti įrašą (duomenų bazės lentelės pavadinimas, null,'Wangwu@163.com")
Norėdami įterpti redagavimo laukelio turinį, galite parašyti taip: Įterpti įrašą (duomenų bazės lentelės pavadinimas, "'" & redaguoti langelį 1.turinys & "','" & redaguoti langelį 2.turinys & "'")
Iššokantis raginimas ("Įterpimas sėkmingas!") )
Baigti renginį
Įvykio mygtukas 3. Spustelėta ()
'Redaguoti langelį 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Query id='1' įrašui, kiekvieno įrašo antriniai elementai atskiriami -, o įrašai atskirti eilučių lūžiais
'Redaguoti laukelį 1.Content = sąlyginė užklausa (duomenų bazės lentelės pavadinimas, "id='1'", "-", "\n")
Jei ištrinkite tuščio lauko pradžią ir pabaigą (redaguoti langelį 2.content) = "", tada
Iššokantis raginimas ("Įveskite užklausos kriterijus")
Išeiti
Baigti, jei
Redaguoti langelį 1.Content = sąlyginė užklausa(duomenų bazės lentelės pavadinimas,"id='" > ištrinti pirmą ir paskutinį tarpus (redaguoti langelį 2.content) > "'","-","\n")
Iššokantis raginimas ("Užklausa sėkminga!") )
Baigti renginį
Įvykio mygtukas 6. Spustelėta ()
'Duomenų bazės vykdymas ('UPDATE' & duomenų bazės lentelės pavadinimas > 'SET value='Tai modifikuota reikšmė' WHERE id='1'") 'Modifikuoti to įrašo id='1'
Modifikuoti įrašą (duomenų bazės lentelės pavadinimas, "value='Tai modifikuota reikšmė'", "id='1'")
Iššokantis raginimas ("Sėkmingai modifikuota!") )
Baigti renginį
Įvykio mygtukas 5. Spustelėta ()
'DELETE FROM' ("DELETE FROM' & database table name & " WHERE id='1'") 'delete the record id='1'
Naikinti įrašą (duomenų bazės lentelės pavadinimas, "id='1'")
Iššokantis raginimas ("Ištrinta sėkmingai!") )
Baigti renginį
Įvykio mygtukas 7. Spustelėta ()
"DUOMENŲ BAZĖS VYKDYMAS" ("NUMESTI LENTELĘ" > duomenų bazės lentelės pavadinimą) panaikina visą duomenų bazės lentelę
Duomenų lentelės naikinimas (duomenų bazės lentelės pavadinimas)
Iššokantis raginimas ("Ištrinti duomenų bazės lentelę sėkmingai!") )
Baigti renginį
Įvykio mygtukas 8. Spustelėta ()
Iššokantis raginimas ("Bendras įrašų skaičius:" > Įrašų skaičius (duomenų bazės lentelės pavadinimas) > "Elementai")
Baigti renginį
Įvykio mygtukas 9. Spustelėta ()
'Redaguoti langelį 1.Content = database query("SELECT * FROM" > duomenų bazės lentelės pavadinimas > "WHERE reikšmė LIKE '%163.com'","-","\n") 'Užklausti visus įrašus, kurių reikšmės baigiasi '163.com'
Redaguoti langelį 1. Turinys = sąlyginė užklausa (duomenų bazės lentelės pavadinimas, "reikšmė LIKE '%163.com'", "-", "\n")
Iššokantis raginimas ("Užklausa sėkminga!") )
Baigti renginį
Įvykio mygtukas 10. Spustelėta ()
'Redaguoti langelį 1.Content = database query("SELECT * FROM" > duomenų bazės lentelės pavadinimas & "LIMIT 0,3","-","\n") 'Užklausa 3 įrašams, prasidedantiems nuo 0 (1).
Redaguoti langelį 1. Turinys = Aprėpties užklausa (duomenų bazės lentelės pavadinimas, 0, 3, "-", "\n")
Iššokantis raginimas ("Užklausa sėkminga!") )
Baigti renginį
Įvykio mygtukas 11. Spustelėta ()
Uždaryti duomenų bazę() '!! Uždarykite duomenų bazę programos pabaigoje
Pabaigos procedūra ()
Baigti renginį |
[Kopijuoti nuorodą]
Paskelbta 2018-01-04 21:16:38
|
Paskelbta 2017-06-04 08:49:09
