اپدیت دیتابیس افلاین(از طریق بانک انلاین)

[mehrabmmp 528]

سلام

شهاب جان ممنون به خاطر اموزش

فقط یه سوال داشتم

در در 1395/05/24, 10:30:19، porya گفته است :

سلام شما بیا با این کوئری اطلاعات رو از آخر به اول برحسب id بگیر...

SELECT * FROM tblname ORDER BY id DESC

ایشون اومدن تو بیسیک ایدی رو از اخر خوندن میشه تو پی اچ پی از اخر خوند و ارسال کرد؟

[shahab.es 5,429]

سلام

تست نکردم

تستش کن تو

اما خوب منطقی نیست دیگه ، چون اطلاعات php مثلا از شماره 2 به بعد میاد

کلا یک تا 10 رو داریم

اینطوری  1  و 2 نمیاد

اما برعکس که بکنید

9 و 10 نمیاد

اوکی؟؟؟

[mehrabmmp 528]

در 13 ساعت قبل، shahab.es گفته است :

سلام

تست نکردم

تستش کن تو

اما خوب منطقی نیست دیگه ، چون اطلاعات php مثلا از شماره 2 به بعد میاد

کلا یک تا 10 رو داریم

اینطوری  1  و 2 نمیاد

اما برعکس که بکنید

9 و 10 نمیاد

اوکی؟؟؟

اخه برنامه من پیامکی انلاینه و جدیدا باید بیاین اول

کد برعکس کردن رو تو پی اچ پی چجوری بنویسم؟

[shahab.es 5,429]

خوب مگه شما با بیسیک کد میزنی، جدیدا نمیان بالا عزیزم؟؟

از اون حرفا بودشا : )))

کد برعکس شدن تو php هم ، دقیقا کوئریش همینه

اما توصیه میکنم ، انجام ندی اینکارو ، باگ پیدا میکنی احتمالا...

همین الان ، عادی ، اطلاعات رو بگیر
موقع نمایش به یوزرت ، از اخر برو اول...

 

[mehrabmmp 528]

در 12 ساعت قبل، shahab.es گفته است :

خوب مگه شما با بیسیک کد میزنی، جدیدا نمیان بالا عزیزم؟؟

از اون حرفا بودشا : )))

کد برعکس شدن تو php هم ، دقیقا کوئریش همینه

اما توصیه میکنم ، انجام ندی اینکارو ، باگ پیدا میکنی احتمالا...

همین الان ، عادی ، اطلاعات رو بگیر
موقع نمایش به یوزرت ، از اخر برو اول...

 

تو بیسیک اینکارو میکنم ولی بعضی وقتا یه مشکلی پیش میاد

اوکی ممنون

[shahab.es 5,429]

عزیز دلم ، مشکل رو بگو ، اگر قابل حل شدن باشه ، با کمک من و دوستانه دیگه ،حلش میکنیم بره

فدای شما

 

[mehrabmmp 528]

در 12 ساعت قبل، shahab.es گفته است :

عزیز دلم ، مشکل رو بگو ، اگر قابل حل شدن باشه ، با کمک من و دوستانه دیگه ،حلش میکنیم بره

فدای شما

 

چشم اگه به مشکلی برخوردم تو تاپیک دیگه میگم

[mehdi77rezai 6]

سلام من دیتابیس رو به خوبی درست کردم حتی اطلاعات رو از طریق آدرس چک کردم و فایل های php هیچ مشکلی نداشتن ولی وقتی توی برنامه آپدیت میکنم خطا میده مشکل از چیه؟ همهی اطلاعات موجود در سورس هم که  باید تغییر کنن تغییر دادم

[shahab.es 5,429]

سلام هموطن

حالتون خوبه؟

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

شما ارورتون رو قرار بدید ، اگه خدا بخواد ، کمکتون کنیم

موفق باشید

 

[miladli 3]

سلام

عذر میخوام میشه توضیح بدید از چه کدی برای نمایش دیتابیس انلاین توی لیست ویو باید استفاده کرد .

متشکر

[shahab.es 5,429]

سلام عزیزم

توی این تاپیک؟ یا کلا

اگه منظورتون کلی هست به شکل زیر

 

یه همچین کد php ای نیاز دارید

اسمش هم مثلا هست getData.php
 

<?php
$con = mysqli_connect('localhost','username','pass','database name');
$result = $con->query("SELECT * FROM tbl");
if($result->num_rows > 0){
while($row = $result->fetch_assoc()){
echo $row["id"]."#".$row["name"]."#".$row["family"]."<br>";
}
}else{
echo "1";
}
?>

فقط کدهارو چک کنید ، از نظر املائی مورد نداشته باشه

کتابخانه اریا ایسینک تسک رو بگیرید

basic:
 

Sub Globals
Dim ac As AriaAsyncTask
Dim dl As AriaAsyncTaskDownloader
Dim lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
  lv.Initialize("lv")
  ac.Initialize("ac")
  dl.initialize(ac)
  If(dl.IsConnected) Then
    ac.Run(Array("http://site.com/getData.php",""))
    ' ""->ghesmate dovvom array -> parametr haii ke post mikonid be safhe php be in shekl masalan id va name -> id=1&name=shahab
    'inja parametri nemifrestim
  End If
End Sub
Sub ac_DoInBackground(Params() As Object) As Object
  Try
    Return dl.Get(Params(0)).POST(Params(1)).String
  Catch
    Log(LastException)
  End Try
  
End Sub
Sub   ac_OnPostExecute(Result As Object)
  Try 
    Dim res As String = Result
    If(res = "1") Then
      Msgbox("there is no data","state")
    Else
      Dim str1(),str2() As String
      str1 = Regex.Split("<br>",res)
      For i = 0 To str1.Length - 1
        str2 = Regex.Split("#",str1(i))
        lv.AddTwoLines2(str2(1),str2(2),str2(0))
        'str2  0->id   1->name   2->family
      Next
    End If
  Catch
    Log(LastException)
  End Try
End Sub

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

مشکلی بود بگید برطرف کنیم

 

[miladli 3]

متشکر شهاب جان

منظورم همین بود که توضیح دادی ، حالت کلی

بسیار عالی بود بدون هیچ مشکلی ران شد و هیچگونه غلط املایی هم نداشت

فقط یه سوال دارم ممنون میشم کد این قسمت هم بهم بگی

میخوام روی هر ایتمی از لیست ویو کلیک میشه ID مربوط به اون ثبت بشه ، در واقع میخوام از این ایدی توی صفحه بعد استفاده کنم و توی صفحه بعد مشخص باشه من رو کدوم ایتم کلیک کردم تا بتونم تغییراتی که اعمال میکنم روی همون ایتم با همون ای دی اعمال بشه ، مثلا میخوام روی ایتم اول که مربوط به شهاب هستش و ای دی 1 داره کلیک کردم وارد صفحه بعد بشه و اونجا بتونم اسم شهاب رو تصحیح کنم

ممنون از لطفتون

[حسین شیخ بارانی 37]

در در 1394/09/13, 21:09:44، shahab.es گفته است :

خوبه

ببین استاد بیات

کلا فرقی نداره

ما الان داریم دیتا میریزیم توی کجا؟

توی دیتابیس

پس مولتی پنل هم مسلما باید کار کنه و هیچ فرقی نداره

فقط برای اینکه مولتی پنل یه بار از اول مثلا لود شه و اضافه نشه به ایتم های قبلی

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

ScrollView1.Panel.RemoveAllViews
s = 0
ScrollView1.ScrollPosition = 0

s متغیری هست که ارتفاعش هر بار زیاد میشه

این از این

برای کار بعدی هم که فرمودید استاد بیات

یه ستون میخواد دیتابیس

isUpdate مثلا

وقتی که میخوایم اطلاعات بانک انلاین رو اینسرت کنیم به افلاین

sql.ExecNonQuery("INSERT INTO tbl_name (id,name,lname) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")

از کد بالا استفاده میکنیم

برای کای که گفتید باید 

sql.ExecNonQuery("INSERT INTO tbl_name (id,name,lnamem,isUpdate) VALUES (null,'"&str2(1)&"','"&str2(2)&"','1')")

کار کنیم

توی لود مولتی پنل میایم و یه شرط میذاریم

if cur.getstring("isUpdate") = 1 then
panel1.color = colors.Red
end if

و بعد از این کد هم باید بگیم

sql.exenonquery(UPDATE tbl SET isUpdate = '0'")

چون همه شون باید بشن 0 دیگه

مولتی پنل من زیاد خوب نیست

شما خودتون استادید، اگر دوستان مشکلی داشتن بپرسن، منم ندونم، داداشا هستن

سلام استاد کد ریمو زدم جواب نمی ده باز دیتا ها توی مولتی پنل روی هم سوار می شن البته جلوی ایجاد فضای خالی رو گرفت اما روی هم رفتن نه

[shahab.es 5,429]

در در 1395/08/22, 21:39:39، miladli گفته است :

متشکر شهاب جان

منظورم همین بود که توضیح دادی ، حالت کلی

بسیار عالی بود بدون هیچ مشکلی ران شد و هیچگونه غلط املایی هم نداشت

فقط یه سوال دارم ممنون میشم کد این قسمت هم بهم بگی

میخوام روی هر ایتمی از لیست ویو کلیک میشه ID مربوط به اون ثبت بشه ، در واقع میخوام از این ایدی توی صفحه بعد استفاده کنم و توی صفحه بعد مشخص باشه من رو کدوم ایتم کلیک کردم تا بتونم تغییراتی که اعمال میکنم روی همون ایتم با همون ای دی اعمال بشه ، مثلا میخوام روی ایتم اول که مربوط به شهاب هستش و ای دی 1 داره کلیک کردم وارد صفحه بعد بشه و اونجا بتونم اسم شهاب رو تصحیح کنم

ممنون از لطفتون

خواهش میکنم عزیزم

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

کمکتون میکنه

برای این چیزی که گفتید

وقتی رو لیست ویو کلیک کردید

ولیو رو توی یه متغیر process globals میریزید

مثلا توی process globals 

dim meghdar as string

توی رویداد کلیک ،

Sub lv_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity(content)
End Sub

خوب

توی اکتیویتی content شما باید بیاین و این متغیر مقدار که همون ولیو شما هست و ولیو همون ای دی اون مطلب، رو پست کنید به یه فایل php

فایل php مثل زیر هست مثلا

اسمش رو میذارم getById.php

<?php
$id = $_POST["id"];
$con = mysqli_connect('localhost','username','pass','database name');
$result = $con->query("SELECT * FROM tbl WHERE id = '$id'");
if($result->num_rows > 0){
while($row = $result->fetch_assoc()){
echo $row["id"]."#".$row["name"]."#".$row["family"]."<br>";
}
}else{
echo "1";
}
?>

توی اکتیویتی کانتنت مثل زیر کار میکنید

Sub Globals
Dim ac As AriaAsyncTask
Dim dl As AriaAsyncTaskDownloader
Dim lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
  lv.Initialize("lv")
  ac.Initialize("ac")
  dl.initialize(ac)
  If(dl.IsConnected) Then
    ac.Run(Array("http://site.com/getData.php","id-"&main.meghdar))
    ' ""->ghesmate dovvom array -> parametr haii ke post mikonid be safhe php be in shekl masalan id va name -> id=1&name=shahab
    'inja parametri nemifrestim
  End If
End Sub
Sub ac_DoInBackground(Params() As Object) As Object
  Try
    Return dl.Get(Params(0)).POST(Params(1)).String
  Catch
    Log(LastException)
  End Try
  
End Sub
Sub   ac_OnPostExecute(Result As Object)
  Try 
    Dim res As String = Result
    If(res = "1") Then
      Msgbox("there is no data","state")
    Else
      Dim str1(),str2() As String
      str1 = Regex.Split("<br>",res)
      For i = 0 To str1.Length - 1
        str2 = Regex.Split("#",str1(i))
        Msgbox(str1(0)&str1(1),str1(2))
        'str2  0->id   1->name   2->family
      Next
    End If
  Catch
    Log(LastException)
  End Try
End Sub

موفق باشی 

[miladli 3]

 بازم مثل همیشه گل کاشتی شهاب جان

بسیار عالی و بدون هیچ عیب و نقصی کدها اجرا شدن

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

خیلی لطف کردی ارزوی موفقیت برات دارم 

[بهزاد میرزائی 36]

در در 1394/09/13, 14:55:52، شهاب اسکندری گفته است :

به نام خدا

سلام و عرض ادب خدمت همه دوستان
اموزش کامل اپدیت دیتابیس افلاین رو ظبط کردم و قرار دادم براتون
توضیح خاصی نداره
یه بانک توی هاستتون باید داشته باشید
طبق اموزش برید جلو
اطلاعات بانک انلاینتون میاد توی بانک افلاین
امیدوارم کمکتون کنه

 

-------------------------------

بخش دوم اموزش-ویرایش اطلاعات بعد از بروزرسانی

 

-------------------------------
رمز تمامی فایل ها:
answercenter.ir
 
 

قسمت اول:ساخت بانک انلاین و فایل های php

 

 

لینک دانلود اموزش و فایل های قسمت اول

 

لینک فایل های قسمت اول

 

 

قسمت دوم:اپدیت بانک انلاین در بیسیک فور اندروید

 

 

لینک دانلود اموزش و سورس قسمت دوم

 

لینک سورس به همراه کتابخونه ها

 

تاپیک کتابخانه okhttp

 

 

main_activity

Sub Process_Globals
Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Globals
Private ListView1 As ListView
Private Button1 As Button
Dim ht As HttpJob
Dim rowCount As Int
Dim ht2 As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("l")
	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",True)
	End If
	showlist
	ht.Initialize("job1",Me)
	ht2.Initialize("job2",Me)
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
	ht.PostString("http://www.schoolearn.ir/shahab/amoozeshi/amoozeshe_update_db/check.php","")
	ProgressDialogShow("updating...")
End Sub
Sub showlist
	ListView1.clear
		cur = sql.ExecQuery("SELECT * FROM tbl_name")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("lname")&"-----"&cur.GetString("name"),cur.GetInt("id"))
	Next
	ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
End Sub
Sub jobdone (job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job1" Then
		cur = sql.ExecQuery("SELECT * FROM tbl_name")
		rowCount = cur.RowCount
		If job.GetString > rowCount Then	
			cur = sql.ExecQuery("SELECT * FROM tbl_name")
			rowCount = cur.RowCount
			ht2.PostString("http://www.schoolearn.ir/shahab/amoozeshi/amoozeshe_update_db/getcontent.php","tedad="& rowCount &"")
		Else
			ToastMessageShow("db is up to date!!!",False)
		End If
		else if job.JobName = "job2" Then
		If job.GetString = "nothing" Then
			ToastMessageShow("error",False)
		Else 
			Dim str1() As String = Regex.Split("<br>",job.GetString)
			For i = 0 To str1.Length - 1
				Dim str2() As String = Regex.Split("#",str1(i))
				Try
					sql.ExecNonQuery("INSERT INTO tbl_name (id,name,lname) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")
					showlist
				Catch
					Log(LastException)
				End Try
			Next
		ProgressDialogHide
		End If
		End If
	End If
End Sub

سلام آقا شهاب 

اگه بخواهیم برا دیتابیس انلاین یه ستون عکس هم اضافه کنیم  اون موقع  چطور باید کدنویسی کنیم ؟

اگه توی این ستون لینک عکس روبدیم با پیکاسو میشه دانلود و به دیتابیس آفلاین اضافه کرد؟ اگه میشه یه راهنمایی کنید در مورد کدهاش .

یه سوال میمونه اونم اینکه اگه بخواهیم یه مطلبی که چندتا عکس با چند تا متن داره رو در دیتابیس انلاین بنویسیم شکل جدولمون به چه صورت خواهد بود؟

[shahab.es 5,429]

در 25 دقیقه قبل، behimiri گفته است :

سلام آقا شهاب 

اگه بخواهیم برا دیتابیس انلاین یه ستون عکس هم اضافه کنیم  اون موقع  چطور باید کدنویسی کنیم ؟

اگه توی این ستون لینک عکس روبدیم با پیکاسو میشه دانلود و به دیتابیس آفلاین اضافه کرد؟ اگه میشه یه راهنمایی کنید در مورد کدهاش .

یه سوال میمونه اونم اینکه اگه بخواهیم یه مطلبی که چندتا عکس با چند تا متن داره رو در دیتابیس انلاین بنویسیم شکل جدولمون به چه صورت خواهد بود؟

سلام

اره میتونید لینک عکس و اسم عکس رو قرار بدید

و بعدش عکس رو در یک پوشه ی خاص دانلود کنید و بعد هم اسم عکس رو دارید، استفاده کنید

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

شکل جدولتون رو به اون شکلی که میگن تو اموزش ها در بیارید و بعدش هم با توجه به همین تاپیک، بیاید و اپدیت بفرمایید

موفق باشید

 

[بهزاد میرزائی 36]

در در 1394/09/13, 14:55:52، شهاب اسکندری گفته است :

 

در در 1395/11/24, 22:59:11، شهاب اسکندری گفته است :

سلام

اره میتونید لینک عکس و اسم عکس رو قرار بدید

و بعدش عکس رو در یک پوشه ی خاص دانلود کنید و بعد هم اسم عکس رو دارید، استفاده کنید

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

شکل جدولتون رو به اون شکلی که میگن تو اموزش ها در بیارید و بعدش هم با توجه به همین تاپیک، بیاید و اپدیت بفرمایید

موفق باشید

 

ببخشید آقا شهاب  انجمن رو گشتم اما چیزی که مد نظرم بود رو پیدا نکردم البته یه آموزش پیدا کردم که اونم آموزش خودتون بود در مورد دیتابیس افلاین بود( متن و عکس با هم )خیلی هم عالی.

_میخواستم از دیتابیس انلاینم که یه ستون برا عکس داره ، لینک عکسا رو با پیکاسو از دیتابیس دانلود و یه جایی مثل dirInternal ذخیره کنم میشه کداشو راهنمایی کنید که به چه صورت  باید بنویسم؟ اگه یه عکس بود بلد بودم اما عکس ها زیاده  واین منو گیج میکنه  اگه نیاز به حلقه for هست بگین به چه صورت باید بنویسم اگه میشه تئوری نگید 

_آیا تو فایل getcontent.php هم باید تغییراتی ایجاد کنم؟

[mehrad 38]

در ۱ ساعت قبل، behimiri گفته است :

 

دانلود نه ولي من ميتونم راهنماييتون كنم كه لينك عكس بدين و عكسا بصورت مولتي پنل نمايش داده بشه

[visman 2]

سلام

توی b4a 6.5 خطا میده.

چکار کنم؟