در خواست کمک در خصوص حذف اطلاعات در دیتابیس آفلاین ازطریق برنامه
این هم سورس برنامه که نوشتم فقط تو حذف اطلاعات مشکل دارم
#Region Project Attributes
#ApplicationLabel: دفتراندیکاتور همراه
#VersionCode: 59865986
#VersionName: 1.0
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: True
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Dim sql As SQL
End Sub
Sub Globals
Dim cur As Cursor
Private Button2 As Button
Private EditText1 As EditText
Private EditText2 As EditText
Private EditText3 As EditText
Private EditText4 As EditText
Private Panel1 As Panel
Private Button3 As Button
Private Label5 As Label
Dim i As Int
Private Label10 As Label
Private Label11 As Label
Private Label12 As Label
Private Label9 As Label
Private Button4 As Button
Private Button1 As Button
' Dim aria As AriaLib
Dim num As String
Private EditText5 As EditText
Private Label14 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("text")
If File.Exists(File.DirInternal,"Daftar-andikator.db") = False Then
File.Copy(File.DirAssets,"Daftar-andikator.db",File.DirInternal,"Daftar-andikator.db")
End If
If sql.IsInitialized = False Then
sql.Initialize(File.DirInternal,"Daftar-andikator.db",False)
End If
' If aria.TestInterntConnection = False Then
' Msgbox("اینترنت شما وصل نیست","")
' Else If aria.TestInterntConnection = True Then
' Msgbox("اینترنت وصل است ","")
' End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button2_Click
Try
sql.ExecNonQuery("INSERT INTO tbl(shoarah,envan_namah,sharh,payvast,deta) VALUES('"&EditText5.Text&"','"&EditText1.Text&"','"&EditText2.Text&"','"&EditText3.Text&"','"&EditText4.Text&"')")
ToastMessageShow("اطلاعات ثبت شد",False)
EditText1.Text=""
EditText2.Text=""
EditText3.Text=""
EditText4.Text=""
EditText5.Text=""
EditText1.RequestFocus
Catch
ToastMessageShow("اطلاعات ثبت نشد",False)
End Try
End Sub
Sub Button3_Click
Dim cur As Cursor
Try
cur=sql.ExecQuery("SELECT * FROM tbl")
cur.Position = i
i= i+1
Label9.Text = cur.GetString("shoarah")
Label10.Text = cur.GetString("envan_namah")
Label11.Text = cur.GetString("sharh")
Label12.Text = cur.GetString("payvast")
Label14.Text = cur.GetString("deta")
Catch
i = 0
End Try
End Sub
Sub Button4_Click
sql.ExecNonQuery("DELETE FROM tbl WHERE shoarah =1")''''' در این قسمت مشکل دارم نمی دانم از چه دستوری استفاده کنم
End Sub
Sub Button1_Click
Dim ext As Int
ext = Msgbox2("آیا قصد خروج را دارید؟","خروج از برنامه","بله","خیر","",LoadBitmap(File.DirAssets,"exit.png"))
If ext= DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub
سوال
omid-j 28
با سلام
اساتید محترم عرض ادب
در خواست کمک در خصوص حذف اطلاعات در دیتابیس آفلاین ازطریق برنامه
این هم سورس برنامه که نوشتم فقط تو حذف اطلاعات مشکل دارم
#Region Project Attributes #ApplicationLabel: دفتراندیکاتور همراه #VersionCode: 59865986 #VersionName: 1.0 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: True #End Region #Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim sql As SQL End Sub Sub Globals Dim cur As Cursor Private Button2 As Button Private EditText1 As EditText Private EditText2 As EditText Private EditText3 As EditText Private EditText4 As EditText Private Panel1 As Panel Private Button3 As Button Private Label5 As Label Dim i As Int Private Label10 As Label Private Label11 As Label Private Label12 As Label Private Label9 As Label Private Button4 As Button Private Button1 As Button ' Dim aria As AriaLib Dim num As String Private EditText5 As EditText Private Label14 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("text") If File.Exists(File.DirInternal,"Daftar-andikator.db") = False Then File.Copy(File.DirAssets,"Daftar-andikator.db",File.DirInternal,"Daftar-andikator.db") End If If sql.IsInitialized = False Then sql.Initialize(File.DirInternal,"Daftar-andikator.db",False) End If ' If aria.TestInterntConnection = False Then ' Msgbox("اینترنت شما وصل نیست","") ' Else If aria.TestInterntConnection = True Then ' Msgbox("اینترنت وصل است ","") ' End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button2_Click Try sql.ExecNonQuery("INSERT INTO tbl(shoarah,envan_namah,sharh,payvast,deta) VALUES('"&EditText5.Text&"','"&EditText1.Text&"','"&EditText2.Text&"','"&EditText3.Text&"','"&EditText4.Text&"')") ToastMessageShow("اطلاعات ثبت شد",False) EditText1.Text="" EditText2.Text="" EditText3.Text="" EditText4.Text="" EditText5.Text="" EditText1.RequestFocus Catch ToastMessageShow("اطلاعات ثبت نشد",False) End Try End Sub Sub Button3_Click Dim cur As Cursor Try cur=sql.ExecQuery("SELECT * FROM tbl") cur.Position = i i= i+1 Label9.Text = cur.GetString("shoarah") Label10.Text = cur.GetString("envan_namah") Label11.Text = cur.GetString("sharh") Label12.Text = cur.GetString("payvast") Label14.Text = cur.GetString("deta") Catch i = 0 End Try End Sub Sub Button4_Click sql.ExecNonQuery("DELETE FROM tbl WHERE shoarah =1")''''' در این قسمت مشکل دارم نمی دانم از چه دستوری استفاده کنم End Sub Sub Button1_Click Dim ext As Int ext = Msgbox2("آیا قصد خروج را دارید؟","خروج از برنامه","بله","خیر","",LoadBitmap(File.DirAssets,"exit.png")) If ext= DialogResponse.POSITIVE Then ExitApplication End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
17 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.