رفتن به مطلب
  • 0

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


majid08

سوال

سلام

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

متن دریتابیس رو با HttpJob دانلود میکنم و با دستور INSERT میریزم تو دیتابیس افلاین

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

دیتابیسس به صورت زیر هست

 

 

post-2383-0-38162700-1443255303_thumb.png

 

ولی وقتی کلیک میکنم رو باتن اولی میره به اکتیویتی متن که متون رو نمایش بده در یک صفحه

که در اینجا ارور میده و هیچی نمایش داده نمیشه

 

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

 

و این هم کدها

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


	Dim cur As Cursor
	
	cur=s.ExecQuery("SELECT * From online1")
	Dim h As Int
	h=2%y
	For i = 0 To cur.RowCount-1
	cur.Position=i
	
	Dim Btn As Button
	Btn.Initialize("btn")
	Btn.Text=cur.GetString("onvan")&CRLF&cur.GetString("matn")
	Btn.Tag=i+1
	
	Btn.TextColor=Colors.Black
	Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn.TextSize = 15
	
		
	Btn.Gravity=Gravity.RIGHT
	
	ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)
	

	
	h=h+12%y
	
	Next
	cur.Close





کد دوم برای دانلود

job10.Initialize("job10" , Me)
	job10.Download("http://xxxxxxxx.xxx/show1.php")
	ProgressDialogShow2("درحال دریافت اطلاعات"&CRLF&"لطفا کمی صبر کنید..." , False)




کد سوم 



Sub JobDone (job As HttpJob)


ProgressDialogHide
If job.Success = True Then 
			
			Dim a() As String
			a = Regex.Split("<br>",job10.GetString)
		'	Log(a.Length)
		
	
			For i=0 To a.Length-1
			
				Dim b() As String
				b = Regex.Split("#", a(i))
			Log(b.Length)
			

            s.ExecNonQuery("INSERT INTO online1 (id,onvan,matn,aks,bay) VALUES('"& b(0) &"' , '"& b(1) &"' , '"& b(2) &"', '"& b(3) &"', '"& b(4) &"' ) ")
			

			
			Next

Else 
	ToastMessageShow("اشکال در دریافت اطلاعات" , False)
End If 
job.Release

End Sub


کلیک باتن

Sub Btn_click
Dim B As Button
B=Sender
 Fasl=B.Tag
StartActivity(online_matn)
End Sub


و این هم از اکتیویتی دوم جهت نمایش متون



Dim cur As Cursor
cur=l3.s.ExecQuery("SELECT * FROM online1 WHERE id="&online_shop.Fasl)
cur.Position=0
Label1.Initialize("label1")

Label1.Text=cur.GetString("matn")

cur.Close
لینک ارسال
به اشتراک گذاری در سایت های دیگر

10 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام.

بنظر میاد که مشکلی وجود نداره. :fekr:

فقط برای باتن اول متنش رو نشون نمیده؟؟

 

ایدی ها داخل دیتابیس آفلاین مطمئنی از 0شروع میشه؟؟

 

ساب کلیک باتن رو جای کدهای خودت به این صورت بنویس:

Sub Btn_click
Dim B As Button
B=Sender
 Fasl=B.Tag

Fasl=Fasl+1

StartActivity(online_matn)
End Sub

یعنی fasl+1 بشه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام.

بنظر میاد که مشکلی وجود نداره. :fekr:

فقط برای باتن اول متنش رو نشون نمیده؟؟

 

ایدی ها داخل دیتابیس آفلاین مطمئنی از 0شروع میشه؟؟

 

ساب کلیک باتن رو جای کدهای خودت به این صورت بنویس:

Sub Btn_click
Dim B As Button
B=Sender
 Fasl=B.Tag

Fasl=Fasl+1

StartActivity(online_matn)
End Sub

یعنی fasl+1 بشه.

 

فقط برای باتن اول متنش رو نشون نمیده؟؟ اره فقط برای باتن اول

 

ایدی ها داخل دیتابیس آفلاین مطمئنی از 0شروع میشه؟؟ ای دی دیتابیس انلاین از1 شروع میشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

    For i = 1 To cur.RowCount-1
    cur.Position=i

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

    For i = 1 To cur.RowCount-1

    cur.Position=i

اگه اینطوری بنویسم ردیف اول رو اصلا نشون نمیده

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اگه اینطوری بنویسم ردیف اول رو اصلا نشون نمیده

 

 

راستی ها گیج بازی ار من بود :) بزار یه بار دیگه  کدها رو چک کنم 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

وقتی از یک شروع بشه نشون میده دادا 

تست کردم که میگم عزیز الان گذاشتم ولی ردیف اول نیست ولی بقیه درست شده؟؟؟؟!!!!!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

شما ایدی 1 و 2 رو یکی کن یعنی  دوتاش یه متن و عنوان باشه بعد همون کد 

 

 

    For i = 1 To cur.RowCount-1
    cur.Position=i

 
فعلا این روش به نظرم میرسه 
 
یعنی متن ای دی 1 و دو یکی باشه 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

 

شما ایدی 1 و 2 رو یکی کن یعنی  دوتاش یه متن و عنوان باشه بعد همون کد 

 

 

    For i = 1 To cur.RowCount-1

    cur.Position=i

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

 

یعنی هیچ راهی نداره

لینک ارسال
به اشتراک گذاری در سایت های دیگر

یعنی هیچ راهی نداره

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اون کاری که من گفتم هم کردی؟؟ Fasl+1

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...