کپی شدن متن و اضافه به دیتابیس

[dostmobile 329]

سلام دوستان 

یه سرویس ساختم و همیشه در حال اجراس

کاری که مد نظرمه

هرچی کپی بشه به دیتابیس یه رکورد اضافه شه و وارد دیتابیس بشه

پیشاپیش ممنون از دوستان

[مجید آرتا 5,874]

سلام

کاری که بخوای انجام بدی اینه که متن موجود داخل کلیپ  بورد رو با کوئری INSERT به دیتابیس اضافه کنی همین

میتونی فیلد id  رو Auto Inceremnt  قرار بدی که واسه هر کپی یه روکورد بسازه.

[dostmobile 329]

ممنون

با یه نمونه کد میتونین راهنمایی کنید؟

دوتا فیلد id  و text دارم

[dostmobile 329]

اساتید ممنون میشم راهنمایی کنید

هر متنی کپی شد به دیتابیس اضافه شه

[mahdi tahan 723]

منم همین سوالو دارم.ممنون از راهنماییتون

[shahab.es 5,429]

سلام هموطنا

اصلا تست نزدم اما ارور کامپایل نداشت...

این رو توی سرویس بذارید

#Region  Service Attributes 
	#StartAtBoot: true
	#ExcludeFromLibrary: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim aria As AriaLib
Dim sql As SQL
Dim cur As Cursor
Dim t As Timer
End Sub

Sub Service_Create
	'This is the program entry point.
	'This is a good place to load resources that are not specific to a single activity.
If File.Exists(File.DirInternal,"test.db") = False Then
	File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
If sql.IsInitialized = False Then
	sql.Initialize(File.DirInternal,"test.db",True)
End If
t.Initialize("t",1000)
End Sub

Sub Service_Start (StartingIntent As Intent)
t.Enabled = True
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy
t.Enabled = False
End Sub

Sub t_Tick
	sql.BeginTransaction
	Try
		sql.ExecNonQuery("INSERT INTO tbl (id,text) VALUES(null,'"&aria.ClipboadText&"')")
		sql.TransactionSuccessful
	Catch
		Log("error dar vorood be bank")
		Log(LastException)
	End Try
	sql.EndTransaction
End Sub

سرویس هم اجرا کنید

startService(starter)

کتابخونه اریالیب ورژن 6 و sql رو هم تیک بزنید...

این به ذهن من رسید...