نمایش نوتیفیکیشن با اطلاعات دیتابیس

[shahab.es 5,429]

سلام دوستان

تکه کد زیر، میاد و یه متن و تیتر رو از دیتابیس میگیره و توی نوتیفیکیشن نشون میده...

کتابخونه Sql رو تیک بزنید...

Dim sql As SQL
Dim cur As Cursor
Dim myId As Int
Dim noti As Notification
If File.Exists(File.DirInternal,"db.db") = False Then
	File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
End If
If sql.IsInitialized = False Then
	sql.Initialize(File.DirInternal,"db.db",False)
End If
noti.Initialize
cur = sql.ExecQuery("SELECT * FROM tbl WHERE id = " & myId)
cur.Position = 0
noti.SetInfo(cur.GetString("myTitle"),cur.GetString("myContent"),Me)
noti.Notify(1)