متن دیتابیس

[porya 959]

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

[porya 959]

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

درضمن آقای shahab.msb نیازی به 3 بار پست دادن نیست کافیه همون پست اولتون رو ویرایش میکرید.

موفق باشید

اقای قبادی اینم از سورس و دیتابیس...

data.rar

[porya 959]

لطفا راهنمایی کنید...........

[نیما قبادی 246]

بفرما

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

data.rar

[porya 959]

بفرما

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

اقای قبادی دمت گرم واقعا گل کاشتی...

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

[نیما قبادی 246]

دلخواه دیگه!!

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

[porya 959]

دلخواه دیگه!!

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

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

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

شماره 1 (اگر هم نشد مشکلی نداره تا همینجا هم لطف کردین)

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

میتونید به جای بازی کردن با 0 و 1 بیایید علاقه مندی هارو توی یک Table جدید بریزید و به همون ترتیب هم بخونید دیگه !

[porya 959]

این کد رو توی قسمت متنت بزار

یعنی به جای این»:

c = sql1.ExecQuery("SELECT * FROM por")

اینو بزار

c = sql1.ExecQuery("SELECT * FROM por where id="&alaghe.esm)

یعدم اون استرینگی که اومدی توی قسمت دیتا گرفتی رو بیار بزار توی علاقه مندی که ادرسی که دادیم بهش رو تنظیم کنه یهنی باید اینجوری باشه

alaghe.esm

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

اکتیویتی متن

[/size]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 Label1 As Label
Dim c As Cursor
Dim sql1 As SQL
Private Button1 As Button
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("matnn")
sql1.Initialize(File.DirInternal,"porya.db",True)
c = sql1.ExecQuery("SELECT * FROM por where id="&alaghe.esm) 
For i = 0 To c.RowCount -1
c.Position = i
Next
Label1.Text = c.GetString("matn")


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click
StartActivity(data)
Activity.Finish

End Sub[size=3]

اکتیویتی علاقه

[size=3]
[/size]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim esm 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 ListView1 As ListView
Private Button1 As Button
Dim sql1 As SQL
Dim c As Cursor
Private Button2 As Button
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("alaghe")
sql1.Initialize(File.DirInternal,"porya.db",True)
c = sql1.ExecQuery("SELECT * FROM por WHERE f = 1")
For i = 0 To c.RowCount -1
c.Position = i
ListView1.AddSingleLine2(C.GetString("titr"),C.GetInt("id"))
Next

End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click
StartActivity(Main)
Activity.Finish
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)

StartActivity(matnn)

End Sub

[shahab.msb 326]

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

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

[نیما قبادی 246]

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

درضمن آقای shahab.msb نیازی به 3 بار پست دادن نیست کافیه همون پست اولتون رو ویرایش میکرید.

موفق باشید

[shahab.msb 326]

آقای قبادی عزیز بنده فقط یه پست دادم توی این تایپک

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

نیازی به اکتیویتی جداگانه نیست.

توی اون تاپیک کامل توضیح دادیم.

[porya 959]

نیازی به اکتیویتی جداگانه نیست.

توی اون تاپیک کامل توضیح دادیم.

خب اقای ارتا من خوب متوجه نشدم الان این اکتیوتی متن من اومدم زدم ("Label1.Text = c.GetString("matn این الان میاد کل ستون متنو میگیره حالا چطور کاربر وقتی تو ایتم مورد نظر تو لیست ویو کلیک میکنه متن مربوط به همون ایتم نمایش داده بشه تو علاقه مندی هم مشکلم مثل همینه.

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 Label1 As Label
   Dim c As Cursor
   Dim sql1 As SQL
   Private Button1 As Button
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("matnn")
   sql1.Initialize(File.DirInternal,"porya.db",True)
   c = sql1.ExecQuery("SELECT * FROM por")
   For i = 0 To c.RowCount -1
   c.Position = i
   Next
   Label1.Text = c.GetString("matn")


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click
   StartActivity(data)
   Activity.Finish
End Sub

اینم دیتابیس

Sub Process_Globals   
'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
       Dim esm 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 ListView1 As ListView
   Dim sql1 As SQL
   Private Button1 As Button
   Dim c As Cursor
   Private Button2 As Button
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("data")
   If File.Exists(File.DirInternal,"porya.db") = False Then
   File.Copy(File.DirAssets,"porya.db",File.DirInternal,"porya.db")
   End If
   sql1.Initialize(File.DirInternal,"porya.db",True)
   c = sql1.ExecQuery("SELECT * FROM por")
   For i = 0 To c.RowCount -1
   c.Position = i
   ListView1.AddSingleLine2(C.GetString("titr"),C.GetInt("id"))
   Next

End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)


   StartActivity(matnn)

   Dim C As Cursor = sql1.ExecQuery("SELECT f FROM por WHERE id="&Value)
    C.Position = 0
     If C.GetString("f") = "0" Then
   sql1.ExecNonQuery("UPDATE por SET f = 1 WHERE id = "&Value)
   ToastMessageShow("Added To Favorite!",False)
   End If

End Sub


Sub Button1_Click
   StartActivity(Main)
   Activity.Finish
End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)


   Dim C As Cursor = sql1.ExecQuery("SELECT f FROM por WHERE id="&Value)
    C.Position = 0
     If C.GetString("f") = "1" Then
   sql1.ExecNonQuery("UPDATE por SET f = 0 WHERE id = "&Value)
   ToastMessageShow("remove!",False)
   End If

End Sub


Sub Button2_Click
   StartActivity(alaghe)
   Activity.Finish

End Sub

اینم علاقه مندی

[/size]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 ListView1 As ListView
Private Button1 As Button
Dim sql1 As SQL
Dim c As Cursor
Private Button2 As Button
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("alaghe")
sql1.Initialize(File.DirInternal,"porya.db",True)
c = sql1.ExecQuery("SELECT * FROM por WHERE f = 1")
For i = 0 To c.RowCount -1
c.Position = i
ListView1.AddSingleLine2(C.GetString("titr"),C.GetInt("id"))
Next

End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click
StartActivity(Main)
Activity.Finish
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)

StartActivity(matnn)
data.esm = Value

End Sub


Sub Button2_Click
StartActivity(data)
Activity.Finish

End Sub[size=3]

[نیما قبادی 246]

این کد رو توی قسمت متنت بزار

یعنی به جای این»:

c = sql1.ExecQuery("SELECT * FROM por")

اینو بزار

c = sql1.ExecQuery("SELECT * FROM por where id="&alaghe.esm)

یعدم اون استرینگی که اومدی توی قسمت دیتا گرفتی رو بیار بزار توی علاقه مندی که ادرسی که دادیم بهش رو تنظیم کنه یهنی باید اینجوری باشه

alaghe.esm