Tabellens variabelnamn är Text
Evenemangets huvudfönster. Created()
databastabellnamn = "mytable"
Sluthändelse
Händelseknapp 4. Klickade ()
Om filen existerar (ta minneskortets sökväg() > "/mydata.db") = falsk
Skapa en databas (ta kortbanan () > "/mydata.db")
En popup-prompt ("Skapa databas lyckad!") )
Slut om
Öppna databasen (ta kortspåret() > "/mydata.db") '!! Databasen måste öppnas innan några databasoperationer utförs
En popup-prompt ("Öppna databas lyckad!") )
Sluthändelse
Händelseknapp 1. Klickade ()
Om datatabellen existerar (databastabellens namn) = falskt
'SKAPA TABELL' & Databastabellnamn & "(id-text, värdetext)") 'Skapa en datatabell med två kolumner, den första kolumnen är id och den andra kolumnen är värde
Skapa en datatabell (databastabellsnamn, "id-text, värdetext")
Om du vill skapa ett självinkrementerande id-fält kan du skriva Create Data Table (databastabellens namn, "id heltal PRIMÄRNYCKEL, värdetext")
En popup-prompt ("Skapa datablad lyckat!") )
Annars
En popup-prompt ("Databladet finns redan!") )
Slut om
Sluthändelse
Händelseknapp 2. Klickade ()
' Databasexekvering ("INSERT INTO " & Databastabellnamn & "VALUES ('1','zhangshang@163.com')") 'Infoga poster
' Databasexekvering ("INFOGA IN " & Databastabellens namn & " VÄRDEN ('2','1234567@qq.com')")
' Databasexekvering ("INSERT INTO" & Databastabellnamn & "VALUES ('3','Lisi@126.com')")
' Databasexekvering ("INSERT INTO " & Databastabellnamn & " VALUES ('4','Wangwu@163.com')")
Infoga post (databastabellens namn, "'1','zhangshang@163.com'")
Infoga post (databastabellens namn, "'2','1234567@qq.com'")
Infoga post (databastabellens namn, "'3','Lisi@126.com'")
Infoga post (databastabellens namn, "'4','Wangwu@163.com'")
'Om id är ett självinkrementerande fält, ska det skrivas så här: Infoga post (databastabellens namn, 'null,'Wangwu@163.com''")
För att infoga innehållet i redigeringsrutan kan du skriva så här: Infoga post (databastabellens namn, "'" & redigeringsruta 1.innehåll & "','" & redigeringsruta 2.innehåll & "'")
En popup-prompt ("Insättning lyckad!") )
Sluthändelse
Händelseknapp 3. Klickade på ()
'Redigeringsruta 1.Content = databasfråga ("SELECT * FROM" & databastabellnamn & " WHERE id='1'","-","\n") 'Frågeid='1' för posten separeras barnen till varje post med -, och posterna separeras med radbrytningar
'Redigeringsruta 1.Content = villkorlig fråga (databastabellens namn, "id='1'", "-", "\n")
Om ta bort början och slutet av tomrummet (redigeringsruta 2.innehåll) = "" då
Popup-prompt ("Vänligen ange frågekriterier")
Utgång
Slut om
Redigeringsruta 1.Content = villkorlig förfrågan (databastabellsnamn, "id='" > ta bort första och sista mellanslagen (redigeringsruta 2.innehåll) > "'","-","\n")
En popup-prompt ("Sökning lyckad!") )
Sluthändelse
Händelseknapp 6. Klickade på ()
'Databasexekvering ('UPDATE' och databastabellens namn > 'SET value='Detta är det modifierade värdet' DÄR id='1'") 'Modifiera id='1' för den posten
Ändra posten (databastabellens namn, "value='This is the added value'", "id='1'")
En popup-prompt ("Modifierad framgångsrikt!") )
Sluthändelse
Händelseknapp 5. Klickade på ()
'DELETE FROM' ("DELETE FROM" & databastabellens namn & " WHERE id='1'") 'ta bort post-id='1'
Ta bort post (databastabellens namn, "id='1'")
En popup-prompt ("Raderad lyckades!") )
Sluthändelse
Händelseknapp 7. Klickade ()
'DATABASE EXECUTION' ("DROP TABLE" > databastabellens namn) tar bort hela databastabellen
Radera en datatabell (databastabellnamn)
En popup-prompt ("Ta bort databastabell lyckad!") )
Sluthändelse
Händelseknapp 8. Klickade på ()
Popup-prompt ("Totalt antal poster:" > Antal poster (databastabellens namn) > "Artiklar")
Sluthändelse
Händelseknapp 9. Klickade på ()
'Redigeringsruta 1.Content = databasfråga ("VÄLJ * FRÅN" > databastabellens namn > "VAR värde SOM '%163.com'","-","\n") 'Sök alla poster med värden som slutar på '163.com'
Redigeringsruta 1. Innehåll = villkorlig fråga (databastabellens namn, "värde SOM '%163.com'", "-", "\n")
En popup-prompt ("Sökning lyckad!") )
Sluthändelse
Händelseknapp 10. Klickade ()
'Redigeringsruta 1.Content = databasfråga ("SELECT * FROM" > databastabellnamn & "LIMIT 0,3","-","\n") 'Fråga 3 poster som börjar från 0 (1).
Redigeringsruta 1. Innehåll = Omfångsfråga (databastabellens namn, 0, 3, "-", "\n")
En popup-prompt ("Sökning lyckad!") )
Sluthändelse
Händelseknapp 11. Klickade på ()
Stäng databasen() '!! Stäng databasen i slutet av programmet
Slut på procedur ()
Sluthändelse |
[Kopiera länk]
Publicerad på 2018-01-04 21:16:38
|
Publicerad på 2017-06-04 08:49:09
