De naam van de variabele databasetabel is Tekst
Hoofdvenster van het evenement. Created()
Database Tabel Naam = "MyTable"
Eindgebeurtenis
Gebeurtenisknop 4. Geklikt ()
Als het bestand bestaat (neem het geheugenkaartpad() > "/mydata.db") = onwaar
Maak een database aan (neem het kaartpad () > "/mydata.db")
Een pop-up prompt ("Database aanmaken succesvol!") )
Einde Als
Open de database (neem het kaartpad() > "/mydata.db") '!! De database moet worden geopend voordat er databasebewerkingen worden uitgevoerd
Een pop-up prompt ("Open database succesvol!") )
Eindgebeurtenis
Gebeurtenisknop 1. Geklikt ()
Als de datatabel bestaat (naam van de databasetabel) = onwaar
'MAAK TABEL '& Database tabelnaam & "(id tekst, waardetekst)") 'Maak een datatabel aan met twee kolommen, de eerste kolom is id en de tweede kolom is value
Maak een datatabel aan (databasetabelnaam, "id-tekst, waardetekst")
Als je een zelf-incrementeel id-veld wilt maken, kun je schrijven Create Data Table (databasetabelnaam, "id integer PRIMARY KEY, waardetekst")
Een pop-up prompt ("Maak datasheet aan, succesvol!") )
Anders
Een pop-up prompt ("Het datasheet bestaat al!") )
Einde Als
Eindgebeurtenis
Gebeurtenisknop 2. Geklikt ()
' Database-uitvoering ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Records invoegen
' Database-uitvoering ("INSERT INTO " & Database Table Name & " VALUES ('2','1234567@qq.com')")
' Database-uitvoering ("INSERT INTO" & Database Table Name & "VALUES ('3','Lisi@126.com')")
' Database-uitvoering ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Record invoegen (naam van databasetabel, "'1','zhangshang@163.com'")
Invoegen van record (naam van databasetabel, "'2','1234567@qq.com'")
Record invoegen (databasetabelnaam, "'3','Lisi@126.com'")
Record invoegen (naam van databasetabel, "'4','Wangwu@163.com'")
'Als id een zelf-incrementerend veld is, moet het als volgt worden geschreven: Voeg record in (databasetabelnaam, 'null,'Wangwu@163.com''")
Om de inhoud van het bewerkingsvak in te voegen, kun je als volgt schrijven: Invoegen van record (databasetabelnaam, "'" & bewerkvak 1.inhoud & "','" & bewerkvak 2.inhoud & "'")
Een pop-up prompt ("Insertie geslaagd!") )
Eindgebeurtenis
Gebeurtenisknop 3. Geklikt ()
'Bewerkingsvak 1.Content = databasequery ("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Query id='1' voor het record worden de kinderen van elk record gescheiden door -, en de records worden gescheiden door regelafbrekingen
'Bewerkingsvak 1.Content = voorwaardelijke zoekopdracht (databasetabelnaam, "id='1'", "-", "\n")
Als het begin en einde van het lege blok verwijderen (bewerkingsvak 2.inhoud) = "" dan
Pop-up prompt ("Voer de querycriteria in")
Exit
Einde Als
Bewerkingsvak 1.Inhoud = voorwaardelijke query(databasetabelnaam,"id='" > verwijder de eerste en laatste spaties (bewerkingsvak 2.Inhoud) > "'","-","\n")
Een pop-up prompt ("Query geslaagd!") )
Eindgebeurtenis
Gebeurtenisknop 6. Geklikt ()
'Database-uitvoering ('UPDATE' & databasetabelnaam > 'SET value='Dit is de gewijzigde waarde' WAAR id='1'") 'Modify id='1' voor dat record
Wijzig het record (naam van de databasetabel, "value='Dit is de gewijzigde waarde'", "id='1'")
Een pop-up prompt ("Succesvol aangepast!") )
Eindgebeurtenis
Gebeurtenisknop 5. Geklikt ()
'DELETE FROM' ("REMOVE FROM" & databasetabelnaam & " WHERE id='1'") 'verwijder het record id='1'
Verwijder record (naam van databasetabel, "id='1'")
Een pop-up prompt ("Verwijderd succesvol!") )
Eindgebeurtenis
Gebeurtenisknop 7. Geklikt ()
'DATABASE EXECUTION' ("DROP TABLE" > databasetabelnaam) verwijdert de gehele databasetabel
Een datatabel verwijderen (naam van databasetabel)
Een pop-up prompt ("Verwijder databasetabel succesvol!") )
Eindgebeurtenis
Gebeurtenisknop 8. Geklikt ()
Pop-up prompt ("Totaal aantal records:" > Aantal records (naam van databasetabel) > "Artikelen")
Eindgebeurtenis
Gebeurtenisknop 9. Geklikt ()
'Bewerkingsvak 1.Content = databasequery ("SELECT * FROM" > databasetabelnaam > "WAAR-waarde ZOALS '%163.com'","-","\n") 'Zoek alle records met waarden eindigend op '163.com'
Bewerkingsvak 1. Inhoud = voorwaardelijke query (naam van databasetabel, "waarde LIKE '%163.com'", "-", "\n")
Een pop-up prompt ("Query geslaagd!") )
Eindgebeurtenis
Gebeurtenisknop 10. Geklikt ()
'Bewerkingsvak 1.Content = databasequery ("SELECT * FROM" > databasetabelnaam & "LIMIT 0,3","-","\n") 'Zoek 3 records op vanaf 0 (1).
Bewerkingsvak 1. Inhoud = Scope-query (databasetabelnaam, 0, 3, "-", "\n")
Een pop-up prompt ("Query geslaagd!") )
Eindgebeurtenis
Gebeurtenisknop 11. Geklikt ()
Sluit de database() '!! Sluit de database aan het einde van het programma
Einde van procedure ()
Eindgebeurtenis |
[Link kopiëren]
Geplaatst op 04-06-2017 08:49:09
|
|
|
|
Geplaatst op 04-01-2018 21:16:38
|
