مشکل در دیتابیس

[majid08 266]

سلام

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

من وقتی هر قسمت رو براش یه دیتابیس درست میکنم درسته یعنی برای هر قسمت مثلا fasl1db // fasl2.db  اینطوری درست میکنم حله

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

 

[مهمان]

سلام

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

من وقتی هر قسمت رو براش یه دیتابیس درست میکنم درسته یعنی برای هر قسمت مثلا fasl1db // fasl2.db  اینطوری درست میکنم حله

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

Query Sql تون مشکل دارد . قسمت فراخوانی داده را کدشو بزارید . تا بتونیم بیشتر کمکتون بکنیم

[majid08 266]

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

[مهمان]

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

جلوی Fasl= چی گذاشتی ؟؟ ایا متغیر را درست تعریف کردی ؟ یا اگر editview یا چیز دیگه ای تو layout بهش مقدار میدی ؟

[majid08 266]

Dim Fasl As String

Dim cur As Cursor

cur=s.ExecQuery("SELECT * From Tbl2")

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")

Btn.Tag=i+1

Btn.TextColor=Colors.Black

Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")

Btn.TextSize = 17

If cur.GetInt("Neshan")=0 Then

Dim b As BitmapDrawable

b.Initialize(LoadBitmap(File.DirAssets,"124.png"))

Btn.Background=b

Else

Dim b As BitmapDrawable

b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))

Btn.Background=b

End If

Btn.Gravity=Gravity.RIGHT

ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)

h=h+12%y

Next

[مهمان]

Dim Fasl As String
Dim cur As Cursor

	
	cur=s.ExecQuery("SELECT * From Tbl2")
	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")
	Btn.Tag=i+1
	
	
	Btn.TextColor=Colors.Black
	Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn.TextSize = 17
	
	If cur.GetInt("Neshan")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn.Background=b
	End If
	
	Btn.Gravity=Gravity.RIGHT
	ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)
	
	h=h+12%y
	
	Next
	

این اررور مربوط به این قسمت نیست چون تو اررور از where استفاده شده جای دیگه اررور خوردید

[majid08 266]

Dim cur As Cursor

cur=a1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Fasl="&a1.Fasl)

cur.Position=0

ImageView1.Bitmap=Namayesh

Dim Label1 As Label

Label1.Initialize("label1")

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

ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)

TextSetting1.LongText(Label1,Label1.Text,17,ScrollView1,1)

Dim su As StringUtils

Label1.Height=su.MeasureMultilineTextHeight(Label1,Label1.Text)

End Sub

[shahab.es 5,429]

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

1 - کنترل کنید که اسم کوچیک یا بزرگه تو لانک(حساسه به کوچیک بزرگی)

2 - متغیر a1.fasl رو قبلا مقدار دهی کردید دیگه؟ خالی نیست؟ 

[majid08 266]

اره مقدار دهی کردم

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

[majid08 266]

سلام

کتابم 15 موضوع داره و دیتابیسم هم 15 تیبل

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

[shahab.es 5,429]

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

یعنی مثلا کتابت دو تا موضوع داره و هر تیبل برای یه موضوعه؟

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

[majid08 266]

سلام

من یه کتاب دارم با چنتا فصل و یه دیتابیس با چنتا تیبل حالا فصل اول درست کار میکنه و بقیه ارور میده؟؟ عکس رو ببینید

	Dim cur1 As Cursor
	
	cur1=s.ExecQuery("SELECT * From Tbl2")
	Dim h As Int
	h=2%y
	For i = 0 To cur1.RowCount-1
	cur1.Position=i
	
	Dim Btn1 As Button
	Btn1.Initialize("btn1")
	Btn1.Text=cur1.GetString("Onvan")
	Btn1.Tag=i+1
	
	
	Btn1.TextColor=Colors.Black
	Btn1.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn1.TextSize = 17
	
	If cur1.GetInt("Neshan")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn1.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn1.Background=b
	End If
	
	Btn1.Gravity=Gravity.RIGHT
	ScrollView1.Panel.AddView(Btn1,0,h,100%x,12%y)
		h=h+12%y
		Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn1_click
Dim B1 As Button
B1=Sender
 Fasl=B1.Tag
StartActivity(fasl2_2)
End Sub

[sganji 678]

 

سلام

من یه کتاب دارم با چنتا فصل و یه دیتابیس با چنتا تیبل حالا فصل اول درست کار میکنه و بقیه ارور میده؟؟ عکس رو ببینید

	Dim cur1 As Cursor
	
	cur1=s.ExecQuery("SELECT * From Tbl2")
	Dim h As Int
	h=2%y
	For i = 0 To cur1.RowCount-1
	cur1.Position=i
	
	Dim Btn1 As Button
	Btn1.Initialize("btn1")
	Btn1.Text=cur1.GetString("Onvan")
	Btn1.Tag=i+1
	
	
	Btn1.TextColor=Colors.Black
	Btn1.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn1.TextSize = 17
	
	If cur1.GetInt("Neshan")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn1.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn1.Background=b
	End If
	
	Btn1.Gravity=Gravity.RIGHT
	ScrollView1.Panel.AddView(Btn1,0,h,100%x,12%y)
		h=h+12%y
		Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn1_click
Dim B1 As Button
B1=Sender
 Fasl=B1.Tag
StartActivity(fasl2_2)
End Sub

داره مگه اشکال از کد زیره:

Select * From Tbl2 WHERE fasl=

اونوقت تو اصلا چنین کدی نداری که...

[majid08 266]

 

داره مگه اشکال از کد زیره:

Select * From Tbl2 WHERE fasl=

اونوقت تو اصلا چنین کدی نداری که...

 

ببخشید

Dim cur1 As Cursor
cur1=fasl1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Fasl="&fasl1.Fasl)
cur1.Position=0

ImageView1.Bitmap=Namayesh


Dim Label1 As Label
Label1.Initialize("label1")
Label1.Text=cur1.GetString("Matn")



Dim m As String = ln.get("nkk","size")
ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
TextSetting1.LongText(Label1,Label1.Text,m,ScrollView1,1)
Dim su As StringUtils
Label1.Height=su.MeasureMultilineTextHeight(Label1,Label1.Text)
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Namayesh As Bitmap
Dim cur1 As Cursor
cur1=fasl1.s.ExecQuery("SELECT Aks FROM Tbl2 WHERE Fasl="&fasl1.Fasl)
cur1.Position=0

Dim bytes() As Byte
bytes=cur1.GetBlob("Aks")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b1 As Bitmap
b1.Initialize2(input)
input.Close
Return(b1)
End Sub

[sganji 678]

 

کد زیر رو بذار ببین درست میشه یا نه(فاصله گذاشتم )

cur1=fasl1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Fasl = "&fasl1.Fasl)

اگه درست نشد مشکل از fasl1.Fasl هست.

[majid08 266]

 

 

کد زیر رو بذار ببین درست میشه یا نه(فاصله گذاشتم )

cur1=fasl1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Fasl = "&fasl1.Fasl)

اگه درست نشد مشکل از fasl1.Fasl هست.

 

درست نشد

ببینید

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

[sganji 678]

fasl1.Fasl رو کجا و چطوری مقدار دهی کردی؟

اگه میتونی سورست روبذار.

[shahab.es 5,429]

سلام

این سورسش خدمت شما

دانلود سورس

 

 

دانلود کتابخانه Farakhani 2

[majid08 266]

 

fasl1.Fasl رو کجا و چطوری مقدار دهی کردی؟

اگه میتونی سورست روبذار.

 

fasl1.fasl رو درست کردم یه استرینگ هست تو اکتیویتی fasl1

حجمش زیاده 40 مگ هست نمیشه بزارم

[sganji 678]

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

توی دیتابیس ستون مربوط به fasl اگه int باشه اونوقت ارور میده.

متغیر fasl1 رو از نوع Object کن ببین حل میشه؟

[majid08 266]

 

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

توی دیتابیس ستون مربوط به fasl اگه int باشه اونوقت ارور میده.

متغیر fasl1 رو از نوع Object کن ببین حل میشه؟

 

از نوع INTEGER هست

تو لیستش اینا هست

INTEGER

TEXT

REAL

BLOB

کدومش رو بزارم