Değişken veritabanı tablo adı Metindir
Etkinlik Ana Penceresi. Oluşturuldu()
veritabanı tablosu adı = "Mytable"
Olayın Sonu
Etkinlik butonu 4. Tıklandı ()
Dosya varsa (hafıza kartı yolu() > "/mydata.db") = false
Bir veritabanı oluşturun (kart yolunu () > "/mydata.db")
Bir açılır istem ("Veritabanı başarılı oluştur!") )
Sona Et
Veritabanını aç (kart yolu() > "/mydata.db") '!! Veritabanı herhangi bir işlem yapılmadan önce veritabanı açılmalıdır
Bir açılır uyarı ("Veritabanını aç başarılı!") )
Olayın Sonu
Etkinlik butonu 1. Tıklandı ()
Eğer veri tablosu varsa (veritabanı tablosu adı) = yanlış
'TABLO OLUŞTUR' & Veritabanı tablo adı & "(id metin,değer metni)") 'İki sütunlu bir veri tablosu oluşturun, ilk sütun id ve ikinci sütun değer
Bir veri tablosu oluşturun (veritabanı tablosu adı, "id metni, değer metni")
Kendi kendine artan bir id alanı oluşturmak istiyorsanız, Create Data Table (veritabanı tablo adı, "id tamsayı BIRINCIL ANAHTAR, değer metni") yazabilirsiniz
Bir açılır isteği ("Veri sayfası başarılı oluştur!") )
Aksi takdirde
Bir açılır isteği ("Veri sayfası zaten var!") )
Sona Et
Olayın Sonu
Etkinlik butonu 2. Tıklandı ()
' Veritabanı Yürütme ("INSERT INTO " & Database Table Name & "VALUES ('1','zhangshang@163.com')") 'Kayıtları ekle
' Veritabanı Yürütmesi ("INSERT INTO " & Veritabanı Tablo Adı & " VALUES ('2','1234567@qq.com')")
' Veritabanı Yürütme ("INSERT INTO" & Database Table Name & "VALUES ('3','Lisi@126.com')")
' Veritabanı Yürütmesi ("INSERT INTO " & Database Table Name & " VALUES ('4','Wangwu@163.com')")
Kaydı ekle (veritabanı tablosu adı, "'1','zhangshang@163.com'")
Kaydı ekle (veritabanı tablosu adı, "'2','1234567@qq.com'")
Kaydı ekle (veritabanı tablosu adı, "'3','Lisi@126.com'")
Kaydı ekle (veritabanı tablosu adı, "'4','Wangwu@163.com'")
'Eğer id kendi kendine artan bir alansa, bu şekilde yazılmalıdır: Insert kaydı (veritabanı tablosu adı, 'null,'Wangwu@163.com'")
Düzenleme kutusunun içeriğini eklemek için şöyle yazabilirsiniz: Kaydı ekle (veritabanı tablo adı, "'" & edit kutusu 1.content & ','" & edit box 2.content & "'")
Bir açılır uyarı ("Yerleştirme başarılı!") )
Olayın Sonu
Etkinlik butonu 3. Tıklandı ()
'Edit box 1.Content = database query("SELECT * FROM" & database table name & " WHERE id='1'","-","\n") 'Sorgu id='1' kayıt için, her kaydın çocukları -, kayıtlar satır aralarıyla ayrılır
'Edit kutusu 1.İçerik = koşullu sorgu (veritabanı tablosu adı, "id='1'", "-", "\n")
Boşluğun başını ve sonunu siliyorsanız (edit box 2.content) = ""
Açılır uyarı ("Lütfen sorgu kriterlerini girin")
Çıkış
Sona Et
Edit kutusu 1.İçerik = koşullu sorgu (veritabanı tablosu adı,"id='" > ilk ve son boşlukları sil (edit box 2.content) > "'","-","\n")
Bir açılır istem ("Sorgu başarılı!") )
Olayın Sonu
Etkinlik butonu 6. Tıklandı ()
'Veritabanı yürütülmesi ('UPDATE' & veritabanı tablo adı > 'SET değeri='Bu değiştirilen değerdir' WHERE id='1'") 'Modify id='1' için
Kaydı değiştirin (veritabanı tablosu adı, "value='Bu değiştirilen değer'", "id='1'")
Bir açılır uyarı ("Başarılı şekilde değiştirildi!") )
Olayın Sonu
Etkinlik butonu 5. Tıklandı ()
'SIL' ("SIL" & veritabanı tablo adı & "WHERE id='1'") 'kaydı sil id='1'
Kaydı sil (veritabanı tablosu adı, "id='1'")
Bir açılır mesaj ("Silinen başarılı!") )
Olayın Sonu
Etkinlik butonu 7. Tıklandı ()
'DATABASE EXECUTION' ("DROP TABLE" > veritabanı tablosu adı) tüm veritabanı tablosunu siler
Bir Veri Tablosunun Sililmesi (Veritabanı Tablosu Adı)
Bir açılır istem ("Veritabanı tablosunu sil başarılı!") )
Olayın Sonu
Etkinlik butonu 8. Tıklandı ()
Açılır istem ("Toplam kayıt sayısı:" > Kayıt sayısı (veritabanı tablosu adı) > "Öğeler")
Olayın Sonu
Etkinlik butonu 9. Tıklandı ()
'Edit box 1.Content = database query("SELECT * FROM" > veritabanı tablosu adı > "WHERE değeri LIKE '%163.com'","-","\n") 'Değerleri '163.com' ile biten tüm kayıtları sorgulayın
Düzenleme kutusu 1. İçerik = koşullu sorgu (veritabanı tablosu adı, "değer LIKE '%163.com'", "-", "\n")
Bir açılır istem ("Sorgu başarılı!") )
Olayın Sonu
Etkinlik butonu 10. Tıklandı ()
'Edit kutusu 1.İçerik = veritabanı sorgusu ("SELECT * FROM" > veritabanı tablosu adı & "LIMIT 0,3","-","\n") '0 (1) ile başlayan kayıtlar için sorgu 3.
Düzenleme kutusu 1. İçerik = Kapsam sorgusu (veritabanı tablosu adı, 0, 3, "-", "\n")
Bir açılır istem ("Sorgu başarılı!") )
Olayın Sonu
Etkinlik butonu 11. Tıklandı ()
Veritabanını kapat() '!! Programın sonunda veritabanını kapatın
Son İşlem ()
Olayın Sonu |
[Bağlantıyı kopyala]
Yayınlandı 4.01.2018 21:16:38
|
Yayınlandı 4.06.2017 08:49:09
