فراخوانی متن طولانی از دیتابیس در b4a

[hamidspeed 20]

سلام

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

اینم کدهایی هستند که استفاده میکنم

Sub Button1_Click
Activity.LoadLayout("main")
   File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
   SQL1.Initialize(File.DirInternal,"data.db",True)
   
   cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
   
   
cur1.Position = 0
ListView1.AddSingleLine(cur1.GetString("txt"))


	
End Sub

 

[reza sabouri 444]

درود

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

Sub Button1_Click
Activity.LoadLayout("main")

If File.Exists(File.DirInternal,"data.db") = False Then

File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")

End If
If sql1.IsInitialized = False Then

sql1.Initialize(File.DirInternal,"data.db",True)

End If

Cur1 = sql1.ExecQuery("SELECT * FROM tbl")

For i = 0 To Cur1.RowCount-1

Cur1.Position = i

ListView1.AddSingleLine(Cur1.GetString("txt"))
next
End Sub

 

[hamidspeed 20]

در ۱ ساعت قبل، رضا صبوری گفته است :

درود

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

Sub Button1_Click
Activity.LoadLayout("main")

If File.Exists(File.DirInternal,"data.db") = False Then

File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")

End If
If sql1.IsInitialized = False Then

sql1.Initialize(File.DirInternal,"data.db",True)

End If

Cur1 = sql1.ExecQuery("SELECT * FROM tbl")

For i = 0 To Cur1.RowCount-1

Cur1.Position = i

ListView1.AddSingleLine(Cur1.GetString("txt"))
next
End Sub

 

 

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

ممنون

لینک دانلود

[reza sabouri 444]

فک کنم یه مشکل اساسی که هستش ، برای نمایش متنه

شما باید متنهاتون رو داخل مثلا یک لیبل نمایش بدین و برای لیبل حالت اسکرول ویو قرار بدین

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

برای مثال

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

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

 

[hamidspeed 20]

در 19 دقیقه قبل، رضا صبوری گفته است :

فک کنم یه مشکل اساسی که هستش ، برای نمایش متنه

شما باید متنهاتون رو داخل مثلا یک لیبل نمایش بدین و برای لیبل حالت اسکرول ویو قرار بدین

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

برای مثال

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

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

 

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

[majerajoo 161]

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

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

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

رو هر کدوم بزنید میره داخل یه اکتیویتی دیگه که هرچقدر متن طولانی باشه نشون میده

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

سورس رو پیوست کردم

کتابخونه مورد نظر هم پیوست کردم حتما در کتابخانه های بیسیک قرار بدید

(پسندیدم فراموش نشه)

 

databa.zip

AutoSizeScroll.zip

[hamidspeed 20]

در 8 ساعت قبل، majerajoo گفته است :

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

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

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

رو هر کدوم بزنید میره داخل یه اکتیویتی دیگه که هرچقدر متن طولانی باشه نشون میده

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

سورس رو پیوست کردم

کتابخونه مورد نظر هم پیوست کردم حتما در کتابخانه های بیسیک قرار بدید

(پسندیدم فراموش نشه)

 

databa.zip

AutoSizeScroll.zip

 

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

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

سلام

احتمالا یک نوع داده ای تعریف شده که نمیتونه شناسایی کنه!!!

کتابخونه هارو کپی کردید ؟

بی زحمت کد رو توی تگ کد قرار بدید یه بررسی کنیم.

[hamidspeed 20]

در ۱ ساعت قبل، مجید آرتا گفته است :

سلام

احتمالا یک نوع داده ای تعریف شده که نمیتونه شناسایی کنه!!!

کتابخونه هارو کپی کردید ؟

بی زحمت کد رو توی تگ کد قرار بدید یه بررسی کنیم.

سلام

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

اینم کدها

Private Label1 As Label
	Dim cur1 As Cursor
	Dim SQL1 As SQL
	Private Button1 As Button
	Private ScrollView1 As ScrollView
	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("btn")
   
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
Activity.LoadLayout("main")
  
If File.Exists(File.DirInternal,"data.db") = False Then

File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")

End If
If SQL1.IsInitialized = False Then

SQL1.Initialize(File.DirInternal,"data.db",True)

End If

cur1 = SQL1.ExecQuery("SELECT * FROM tbl")

For i = 0 To cur1.RowCount-1

cur1.Position = i

ListView1.AddSingleLine2(cur1.GetString("onvan"),i)
Next


	
End Sub




Sub ListView1_ItemClick (Position As Int, Value As Object)
	matlab.id=Value
	StartActivity(matlab)
End Sub

 

اینم کدهای مربوط به اکتیویتی matlab

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private img As Label
	Dim au As AutoSizeScroll
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("lmatlab")
	ScrollView1.Panel.LoadLayout("matn")
	
	If File.Exists(File.DirInternal,"data.db")=False Then
		File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	
	If sql1.IsInitialized=False Then
		sql1.Initialize(File.DirInternal,"data.db",False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl WHERE id="&id)
	cur.Position=0

				
	img.Text=cur.GetString("onvan")
					
	Label1.Text=cur.GetString("txt")
	Label1.TextColor = Colors.White
	Label1.TextSize = "25"
	Label1.Gravity = Gravity.RIGHT
	
	au.set(Label1,ScrollView1)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[majerajoo 161]

در 1 ساعت قبل، hamidspeed گفته است :

 

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

جلل خالق این چیه دیگه

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

[hamidspeed 20]

در 19 دقیقه قبل، majerajoo گفته است :

جلل خالق این چیه دیگه

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

به خط 52 گیرمیده

Activity.LoadLayout("main")

 

[majerajoo 161]

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

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

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

فکر کنم حل بشه مشکلتون

[hamidspeed 20]

در 24 دقیقه قبل، majerajoo گفته است :

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

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

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

فکر کنم حل بشه مشکلتون

 حالا به خط 71 گیر میده

ListView1.AddSingleLine2(cur1.GetString("onvan"),i)

 

[majerajoo 161]

از سمت راست بیسیک توی پنجره log ببینید چه اروری میده

 

[hamidspeed 20]

در 31 دقیقه قبل، majerajoo گفته است :

از سمت راست بیسیک توی پنجره log ببینید چه اروری میده

 

اینو نشون میده

 

[majerajoo 161]

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

[hamidspeed 20]

در 19 دقیقه قبل، majerajoo گفته است :

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

شرمنده

[majerajoo 161]

در 13 دقیقه قبل، hamidspeed گفته است :

شرمنده

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

ببینید شما برنامتون رو روی شبیه ساز گوشی یا هرچی که نصب کردید یه بار حدفش کنید دوباره کامپایل کنید نصب کنید

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

[hamidspeed 20]

در 18 دقیقه قبل، majerajoo گفته است :

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

ببینید شما برنامتون رو روی شبیه ساز گوشی یا هرچی که نصب کردید یه بار حدفش کنید دوباره کامپایل کنید نصب کنید

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

داداش دمت گرم درست شد

مرسیییی