چونگی ذخیره اطلاعات دیتابیس انلاین در دیتابیس افلاین

[mr-edris 186]

سلام و خسته نباشید همون طور که از سوالم معلومه بتید چی کار کنم که 6تا فیلدی که تو دیتابیس انلاینم هست تو دیتابیس افلاینم ذخیره شه؟ مقدارای جدید البته

سوال دومم اینه چطور یه نوتیفیکیشن و هر بار که برنامه بالا میاد اجرا کم که لین به یه برنامم تو بازار باشه

[مهدی ایزدی 9,203]

درود

لطفا توی یک تاپیک دو تا سوال نپرسید

در مورد عنوان تاپیک و سوال اول باید بگم میتونیم از دستور INSERT استفاده کنیم.

اطلاعات بیشتر و کامل تر در مورد این دستور در آدرس زیر:

http://www.tutorialspoint.com/sqlite/sqlite_insert_query.htm

[Alireza Khoram مهمان]

سلام و خسته نباشید همون طور که از سوالم معلومه بتید چی کار کنم که 6تا فیلدی که تو دیتابیس انلاینم هست تو دیتابیس افلاینم ذخیره شه؟ مقدارای جدید البته

سوال دومم اینه چطور یه نوتیفیکیشن و هر بار که برنامه بالا میاد اجرا کم که لین به یه برنامم تو بازار باشه

دوست من سئوالات شما خیلی کلیه ولی برای جواب اولی باید اول اطلاعات رو از فایل php که وصله به دیتابیس آنلاینت بگیری توسط کتابخانه httputils2 بعد انهارا به این صورت در دیتابیس آفلاین وارد میکنیم:

Dim httpjob1 As HttpJob
httpjob1.Download("Adres")
Dim a() As String
Dim filed_ON1() As String
Dim filed1 As String
Dim filed2 As String
a = Regex.Split("<br>",httpjob1.GetString)
Dim sql1 As SQL
sql1.Initialize(File.DirInternal,"Adres db Ofline",False)
For i=0 To a.Length-1
filed_ON1=Regex.Split("Alamat Makhsos Khod baray jodasazi",a(i)) 'jodasazi record
filedON1=filed_ON1(0) 'Shomareh Andis
filedON2=filed_ON1(1) 'Shomareh Andis
sql1.ExecNonQuery("INSERT INTO jadval (fieldOF1,fieldOF2)VAULES('"&filedON1)&"','"&filedON2&"'")
Next

اگه بلد نیستی با دیتابیس آنلاین کار کنی توضیحات من فقط قسمتی از کاری است که باید کنی.

آموزش کامل و تصویری دیتابیس آنلاین که مهدی عزیز آماده کردن رو تو فروشگاه هست میتونی بگیری واستفاده کنی.

***لینک آموزش***

[mr-edris 186]

ببخشید الان این تو این حالت قرار گرفته اشتباهش کجاست؟

Sub JobDone2 (Job As HttpJob)
If Job.JobName = "dl" Then
Dim a() As String
Dim filed_ON1() As String
Dim id As String
Dim Name As String
Dim FAmily As String
Dim Sen As String
Dim Shahr As String
Dim Line As String
a = Regex.Split("<br>",readdb.GetString)
offline.Initialize(File.DirInternal,"offline.db",False)
For i=0 To a.Length-1
filed_ON1=Regex.Split("<br>",a(i)) 'jodasazi record
id=filed_ON1(0) 'Shomareh Andis
Name=filed_ON1(1) 'Shomareh Andis
FAmily=filed_ON1(2) 'Shomareh Andis
Sen=filed_ON1(3) 'Shomareh Andis
Shahr=filed_ON1(4) 'Shomareh Andis
Line=filed_ON1(5) 'Shomareh Andis
offline.ExecNonQuery("INSERT INTO offline (id,Name,FAmily,Sen,Shahr,Line)VAULES('"&id)&"','"&Name&"','"&FAmily&"','"&Sen&"',,'"&Shahr&"',,'"&Line&"'")
Next
End If
End Sub

چون من نمیتونم دیتابیس انلاین بیارم تو مولتی پنل واسه همین مجبورم انلاین رو بیارم افلاین از افلاین با آموزش برم مولتی پنل

[majid08 266]

سلام 

منم همین مشکل رو دارم

 

اینم کد هام

Sub JobDone (job As HttpJob)
If job.Success = True Then 
	Select Case job.JobName
		Case "job1"
						Dim a() As String
			a = Regex.Split("<br>",job1.GetString)
			Log(a.Length)
			For i=0 To a.Length-1
				
				b = Regex.Split("-", a(i))
				If b.Length = 3 Then  
				
			s.ExecNonQuery("INSERT INTO tbl1(id,onvan,matn) VALUES(' b(0) ',' b(1) ','b(2) ')")