در خواست کمک در خصوص ثبت اطلاعات در دیتابیس آفلاین از طریق برنامه

[omid-j 28]

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

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

من یک برنامه نوشتم و دارای 4 فیلد است که فیلد اول نام و نام خانوادگی و فیلد دوم شماره تلفن و فیلد سوم عکس و فیلد چهارم آدرس هستش که میخوام از طریق برنامه ایی که نوشتم اطلاعات وارد دیتابیس آفلاین بشه و ذخیره گردد

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

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

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

مهندس کوئری Insert شما ناقص هستش

به این صورت عمل کنید :

sql2.ExecNonQuery("INSERT INTO tbltxt (txt) VALUES ('"& txtAddBlockText.Text &"')")

این تاپیک خیلی میتونه بهتون کمک کنه :

 

[omid-j 28]

در 13 ساعت قبل، مهدی ایزدی گفته است :

مهندس کوئری Insert شما ناقص هستش

به این صورت عمل کنید :

sql2.ExecNonQuery("INSERT INTO tbltxt (txt) VALUES ('"& txtAddBlockText.Text &"')")

این تاپیک خیلی میتونه بهتون کمک کنه :

 

سلام و درود بر آقای ایزدی استاد گرامی:

آقای ایزدی متاسفانه با دستور فوق که شما فرمودید نشد error  میگیره از دستور زیر

sql1.ExecNonQuery("INSERT INTO tbl_matn (id,fasl,fehrast,matn,namemodir) VALUES ('"& et1.Text &"','"&et2.Text &"','"&et3.Text &"','"&et4.Text &"','"&et5.Text &"')")

 

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

عزیز شما    ID رو که نمیخواد خودتون وارد کنید...

اگه id رو به صورت primary key تعریف کرده باشید خودش id رو اضافه میکنه موقع insert کردن...

 

حالا از این گذشته...

خب چه خطایی میده :| 

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

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

با کارتون واقعا به شخصیت ما بی احترامی میکنید !

ناراحت نشید اما بهتون قول میدم بار دیگر سوالتون ناقص باشه شخصا هیچ موقع پاسخگوی سوالات شما نخواهم بود.

[omid-j 28]

در 20 دقیقه قبل، مهدی ایزدی گفته است :

عزیز شما    ID رو که نمیخواد خودتون وارد کنید...

اگه id رو به صورت primary key تعریف کرده باشید خودش id رو اضافه میکنه موقع insert کردن...

 

حالا از این گذشته...

خب چه خطایی میده :| 

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

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

با کارتون واقعا به شخصیت ما بی احترامی میکنید !

ناراحت نشید اما بهتون قول میدم بار دیگر سوالتون ناقص باشه شخصا هیچ موقع پاسخگوی سوالات شما نخواهم بود.

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

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

 

مناجات با خدا - دانلود | نصب برنامه اندروید | کافه بازار

 

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

[omid-j 28]

آقای ایزدی عزیز جواب ندادین ؟؟؟؟؟؟؟؟؟؟؟؟

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

عزیز دستور هیچ مشکلی نداره... شما یه لطف کنید خود پروژه رو توی پیکوفایل آپلود کنید و لینکش رو قرار بدید ببینم مشکل از کجاست !

[omid-j 28]

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

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

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

اگر توی گوشی تون مشکل دارید احتمالا واسه اینه که قبلا دیتابیس با ویژگی های دیگه ای با همین نام و پکیج وجود داشته...

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

میبینید که هیچ مشکلی نداره و بدون هیچ خطایی Insert انجام میشه...

موفق باشید

[omid-j 28]

متشکرم

 

[mohsen m 155]

درود

لطفا قطعه کدی را که نوشته اید قرار دهید تا ایرادش برطرف بشه.

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

درود دوست عزیز

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

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

[مسعود دلفان آذری 52]

با سلام؛

برای وارد کردن اطلاعات به دیتابیس از کد زیر استفاده کنید:

SQL1.ExecNonQuery("UPDATE tbl SET Volume = "&EditText1&" WHERE ID = 1")

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

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

EditText2 = SQL1.ExecQuerySingleResult("Select Volume FROM tbl WHERE ID = 1")

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

برای وارد کردن عکس در دیتابیس، کاری کنین که کاربر برای عکس یک نام انتخاب کنه، سپس اسم عکس رو ببرین توو فیلد دیتابیس (ستون Picture). بعد عکس رو در File.DirAssest ذخیره کنین. در نهایت، عکس رو اینجوری فراخوانی کنید:

ImageView1.Bitmap = LoadBitmap(File.DirAssets, Cur2.GetString("Picture"))

باید براش وقت بذارین و راه های مختلف رو امتحان کنین، انشاء الله موفق میشین.

یا علی

[omid-j 28]

در در 1395/10/14, 10:22:21، مسعود دلفان آذری گفته است :

با سلام؛

برای وارد کردن اطلاعات به دیتابیس از کد زیر استفاده کنید:

SQL1.ExecNonQuery("UPDATE tbl SET Volume = "&EditText1&" WHERE ID = 1")

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

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

EditText2 = SQL1.ExecQuerySingleResult("Select Volume FROM tbl WHERE ID = 1")

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

برای وارد کردن عکس در دیتابیس، کاری کنین که کاربر برای عکس یک نام انتخاب کنه، سپس اسم عکس رو ببرین توو فیلد دیتابیس (ستون Picture). بعد عکس رو در File.DirAssest ذخیره کنین. در نهایت، عکس رو اینجوری فراخوانی کنید:

ImageView1.Bitmap = LoadBitmap(File.DirAssets, Cur2.GetString("Picture"))

باید براش وقت بذارین و راه های مختلف رو امتحان کنین، انشاء الله موفق میشین.

یا علی

از آموزش خوبتون کمال تشکر و از زحمات شما سپاس گزاری می نمایم. البته ببخشد اگر تعداد زیادی مطلب میخوام بفرستم id همون برابر 1 باید باشد فرقی ندارد یعنی هر تعداد که بخوام می توانم ثبت کنم ؟

[omid-j 28]

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Dim sql1 As SQL
	
End Sub

Sub Globals
	Private et1 As EditText
	Private et2 As EditText
	Private et3 As EditText
	Private et4 As EditText
	Private et5 As EditText
	Private lbl1 As Label
	Private lbl2 As Label
	Private lbl3 As Label
	Private lbl4 As Label
	Private lbl5 As Label
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private btnadd As Button
	Private btndel As Button
	Private btnedit As Button
	Private btnreport As Button
	
	Dim cur As Cursor
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	If File.Exists(File.DirInternal,"asnaff.db") = False Then
		File.Copy(File.DirAssets,"asnaff.db",File.DirInternal,"asnaff.db")
	End If
		
	If sql1.IsInitialized = False Then
		sql1.Initialize(File.DirInternal,"asnaff.db",False)
	End If
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnreport_Click
	
End Sub

Sub btnedit_Click
	
End Sub

Sub btndel_Click
	
End Sub

Sub btnadd_Click
	' این قطعه کد من و فایل دیتابیس من گذاشتم لطفا کمک کنید 
	sql1.ExecNonQuery("INSERT INTO tbl_matn VALUES('" &et1.Text&"','"&et2.Text&"','"&et3.Text&"','"&et4.Text&"','"&et5.Text&")")
'	sql1.ExecNonQuery("UPDATE tbl_matn SET namemodir = "&et3.Text&" WHERE ID =1")

	
End Sub

لینک دانلود دیتابیس

[مسعود دلفان آذری 52]

در 7 ساعت قبل، omid-j گفته است :

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Dim sql1 As SQL
	
End Sub

Sub Globals
	Private et1 As EditText
	Private et2 As EditText
	Private et3 As EditText
	Private et4 As EditText
	Private et5 As EditText
	Private lbl1 As Label
	Private lbl2 As Label
	Private lbl3 As Label
	Private lbl4 As Label
	Private lbl5 As Label
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private btnadd As Button
	Private btndel As Button
	Private btnedit As Button
	Private btnreport As Button
	
	Dim cur As Cursor
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	If File.Exists(File.DirInternal,"asnaff.db") = False Then
		File.Copy(File.DirAssets,"asnaff.db",File.DirInternal,"asnaff.db")
	End If
		
	If sql1.IsInitialized = False Then
		sql1.Initialize(File.DirInternal,"asnaff.db",False)
	End If
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnreport_Click
	
End Sub

Sub btnedit_Click
	
End Sub

Sub btndel_Click
	
End Sub

Sub btnadd_Click
	' این قطعه کد من و فایل دیتابیس من گذاشتم لطفا کمک کنید 
	sql1.ExecNonQuery("INSERT INTO tbl_matn VALUES('" &et1.Text&"','"&et2.Text&"','"&et3.Text&"','"&et4.Text&"','"&et5.Text&")")
'	sql1.ExecNonQuery("UPDATE tbl_matn SET namemodir = "&et3.Text&" WHERE ID =1")

	
End Sub

لینک دانلود دیتابیس

سلام

چرا آیدی رو نوشتین -1 !!

هر تعداد آیدی میتونین وارد کنید.

من تا حالا برای ورود اطلاعات از INSERT INTO استفاده نکردم، کارام با Update راه میفتاد.