رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase

shahab.es

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

  • تعداد ارسال ها

    2,766

  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    48

 نوع محتوا 

پست ها ارسال شده توسط shahab.es

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

    در مرتبط با فروشگاه

    ارسال شده در

    سلام دوستم

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

    خوب

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

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

    • پسندیدن 1

    سورس کار با دیتابیس در بیسیک فور اندروید

    در ســـورس کـــدهـا

    ارسال شده در

    سلام دلاور

    شما خوب فقط از اکتیوتی دوم استفاده کن....

    Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Dim id As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("content")
	
	
	'meghdar be edit text baraye viraayeh'
	cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2")
	cur.Position = 0
	EditText1.Text = cur.GetString("content")
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click''''emaal taghirat va viraayesh''''
	Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& "2" &"'")
			ToastMessageShow("sabt shod",False)
			
			'dobare edittetx ro load mikonam ta taghirat maloom beshe'
			EditText1.Text = ""
				cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2")
				cur.Position = 0
			EditText1.Text = cur.GetString("content")	
		End If
	
End Sub
    • پسندیدن 3
    • این ارسال پرطرفدار است.
    • این ارسال پرطرفدار است.

    سورس کار با دیتابیس در بیسیک فور اندروید

    در ســـورس کـــدهـا

    ارسال شده در

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

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

    این سورس زیر، از طریق کتابخونه sql با دیتابیس کار میکنه و 4 عمل سلکت، اپدیت، اینسرت و دیلت رو باهاش انجام میدیم...

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

    غیر از دیتابیس دو سه تا چیز دیگه هم تو سورس هست:

    دیزاینر اسکریپت کاملا انجام شده.

    مسیج باس 2 رو استفاده کردیم و قبل از هر کاری از کاربر میپرسیم مطمئن هست یا نه

    و چک میکنیم که فیلد ها خالی هستن یا نه که در صورت خالی بودن، چیزی ثبت نمیشه و کاربر اخطار دریافت میکنه

    موفق تر باشید

    دانلود سورس و دیتابیس....

    www.answercenter.ir

     

    تصاویر محیط نرم افزار

    Untitled_1.jpg

    main activity

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

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private ListView1 As ListView
	
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	'avval bayad database ro copy konim va bad initialize sh konim'
	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
	
	'bayad ettelaate data base ro bekhoonam o berizam tooye list view'
	cur = sql.ExecQuery("SELECT * FROM mytbl")
	For i = 0 To cur.RowCount - 1 
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
	Next
	
	'ye shart mizaram ke age chizi too list view nabood masalan be karbar begiim '
	'ke ettelaate jadid ra vared konid o in harfa...'
	If ListView1.Size = 0 Then
		Msgbox("ettelaati mojood nist"&CRLF&"az paiin safhe vared konid","answercenter.ir-->shahab.es")
	End If
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ListView1_ItemClick (Position As Int, Value As Object)'''''''''''''in ghesmat , id ro mifreste be 1 activity dg'''''''
	meghdar = Value
	StartActivity(content)
End Sub



Sub ListView1_ItemLongClick (Position As Int, Value As Object)'''''''in ghesmat baray hazfe ettelaat az data base hastesh''''
	'dar in ghesmat hazf ettelaato anjam midim'
	Dim a As Int
	a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
	If a = DialogResponse.POSITIVE Then
		'injaa vaarede data base mikonim'
		
		sql.ExecNonQuery("DELETE FROM mytbl WHERE id = '"& Value &"'")
		ToastMessageShow("hazf shod",False)
		
		'dobare list view ro load mikonam ta taghirat maloom beshe'
		ListView1.Clear
		cur = sql.ExecQuery("SELECT * FROM mytbl")
		For i = 0 To cur.RowCount - 1 
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
		Next
		
	End If
End Sub



Sub Button1_Click'''''''insert dar database'''''''
	'dar inja ettelaate jadid ro vaarede database mikonimmm'
	'avval check mikonam ke edittext haa khali nabashan'
	'bad az karbar miporsam ke motmaeennnid???'
	
	
	If EditText1.Text = "" Or EditText2.Text = "" Then
		ToastMessageShow("matni vaared nashode ast",False)
	Else
		
		Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			sql.ExecNonQuery("INSERT INTO mytbl (id,title,content) VALUES (null,'"& EditText1.Text &"','"& EditText2.text &"')")
			ToastMessageShow("sabt shod",False)
			
			'dobare list view ro load mikonam ta taghirat maloom beshe'
			ListView1.Clear
			cur = sql.ExecQuery("SELECT * FROM mytbl")
			For i = 0 To cur.RowCount - 1 
				cur.Position = i
				ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
			Next
			
		End If
	End If
End Sub

    content activity

    Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Dim id As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("content")
	id = Main.meghdar
	
	'meghdar be edit text baraye viraayeh'
	Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
	Main.cur.Position = 0
	EditText1.Text = Main.cur.GetString("content")
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click''''emaal taghirat va viraayesh''''
	Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			Main.sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& id &"'")
			ToastMessageShow("sabt shod",False)
			
			'dobare edittetx ro load mikonam ta taghirat maloom beshe'
			EditText1.Text = ""
				Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
				Main.cur.Position = 0
			EditText1.Text = Main.cur.GetString("content")	
		End If
	
End Sub
    • پسندیدن 22
    • تشکر 1

    کتابخانه Farakhani نسخه 3

    در تـولـیـداتـــ انـجـمــن

    ارسال شده در

    سلام دوست عزیز

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

    فک کنم منظورت از اپدیت افلاین اینه که فایل دیتابیس دانلود میکنی درسته؟

    کجاش افلاینه هموطن :):gol:

     

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

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

     

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

    اگر منظور دیگه ای دارید، بگید که بهتر راهنماییتون کنم اگه بتونم :):gol:

    آموزش تصویری برقراری ارتباط با دیتابیس آنلاین در بیسیک۴اندروید

    در مرتبط با فروشگاه

    ارسال شده در

    سلام دلاور

    شما باید دستور sql رو تغییر بدی

    یه متغیر php تعریف میکنی

    <?php
 
$myid = $_POST["id"];
 
?>

     

    دستور Sql باید مثه زیر باشه

    "SELECT * FROM tbl WHERE id = '".$myid."'"

    از سمت برنامتون هم پارامتر id = رو باید ارسال کنید

    موفق باشید

    کتابخانه Farakhani نسخه 3

    در تـولـیـداتـــ انـجـمــن

    ارسال شده در

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

    fara.Insert1("id,name,fname,sotoone2,sotoone3,sotoone4","null,'"&edit1.text&"','"&edit2.text&"','"&edit4.text&"','"&edit3.text&"','"&edit6.text&"'")

    ارور رو هم نمیذاری که :gol:

     

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

    کتابخانه Farakhani نسخه 3

    در تـولـیـداتـــ انـجـمــن

    ارسال شده در

    سلام

    اختیار دارید

    مراحمید

     

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

    Dim fara As Farakhani
	fara.Insert1("id,name,fname","null,'"&edit1.text&"','"&edit2.text&"'")'insert kardane maghaadir'
	fara.DeleteAll("*")'hazfe hame'
	fara.DELETE("DELETE from TBL_1 WHERE id = '"&editext1.text&"'")'delete kardane 1 id khass'
	fara.Update1("name,fname","'"&edit1.text&"','"&editt2.text&"'",edittext_id.text)'update 1 radife khass → id = editext_id.text'
    • پسندیدن 2

    کتابخانه Farakhani نسخه 3

    در تـولـیـداتـــ انـجـمــن

    ارسال شده در

     

     

    سلام

    نه برادر من

    نمیگه باید توی لیست ویو باشه

    اون listView.val در اصل ای دی او عکس تو دیتابیس هست

    شما اینطوری باید کار کنی

    	fara.FarakhaniImage("id","1","img",btmp)
	img.SetBackgroundImage(btmp)

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

     

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

     

    اتفاقا تو فکر اونم هستم

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

     

    شما لطف داری

    ایجاد بخش " تست برنامه قبل از انتشار "

    در انتقادات و پیشـــنهادات

    ارسال شده در

    سلام 

    خوب فکریه

    یه کاری هم میشه کرد

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

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

    سایتش یادم نیست

    اما اونم چیز جالبی بود

    میتونی اپ رو بدی به این سایتا و یه لینک بگیری و بذاری برای بقیه

    • پسندیدن 2
×
×
  • اضافه کردن...