مشکلات مربور به آموزش ویدیویی قرار دادن عکس در دیتابیس (بسیار مهم,بخش دوم)

[pouya_uut 17]

ابتدا لینک آموزش رو میذارم

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

 

من این آموزش رو نگا کردم یه مشکلی برام پیش اومده نمیتونم حلش کنم

این ارور چی میگه 

 

 

[pouya_uut 17]

سلام یه سوال دیگه دارم

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

اینم عکس دیتابیس

[sajad8888 819]

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

[pouya_uut 17]

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

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

میتونی کمکم کنی؟

[sajad8888 819]

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

میتونی کمکم کنی؟

مشکلت چیه؟

[حسینh 50]

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

[pouya_uut 17]

آرههههه دیگه خودتون که استادین )))

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

یاری کنید

[sajad8888 819]

این کد باتون که وقتی روش کلیک شد چیکار کنه

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

Sub btnfav_Click
    
    Dim cur As  Cursor
    cur=matn.sql1.ExecQuery("SELECT * FROM tabl1 WHERE id = "&matn.fasl)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    matn.sql1.ExecNonQuery("UPDATE tabl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    btnfav.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    matn.sql1.ExecNonQuery("UPDATE tabl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    btnfav.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
    
    
End Sub
 
 
 
 
 

[pouya_uut 17]

 

این کد باتون که وقتی روش کلیک شد چیکار کنه

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

Sub btnfav_Click
    
    Dim cur As  Cursor
    cur=matn.sql1.ExecQuery("SELECT * FROM tabl1 WHERE id = "&matn.fasl)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    matn.sql1.ExecNonQuery("UPDATE tabl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    btnfav.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    matn.sql1.ExecNonQuery("UPDATE tabl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    btnfav.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
    
    
End Sub
 
 
 
 
 

 

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

[sajad8888 819]

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

Sub Globals

    
    Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("fav2")
    
    If File.Exists(File.DirInternal,"d.db")=False Then
    File.Copy(File.DirAssets,"d.db",File.DirInternal,"d.db")
    End If
    
    If matn.sql1.IsInitialized= False Then
    matn.sql1.Initialize(File.DirInternal,"d.db",False)
    End If
    
    Dim cur As Cursor
    cur=matn.sql1.ExecQuery("SELECT * FROM tabl1 WHERE fav=1")
    
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    ListView1.AddSingleLine2(cur.GetString("fasl"),cur.GetInt("id"))
    Next
    cur.Close
ListView1.SingleLineLayout.Label.TextColor=Colors.Black  ' تنظیمات لیست ویو هستند

ListView1.SingleLineLayout.Label.TextSize=16' تنظیمات لیست ویو هستند
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER' تنظیمات لیست ویو هستند
Dim listimg As BitmapDrawable' تنظیمات لیست ویو هستند

listimg.Initialize(LoadBitmap(File.DirAssets,"back_list.png"))' تنظیمات لیست ویو هستند
ListView1.SingleLineLayout.Background=listimg' تنظیمات لیست ویو هستند
ListView1.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("bkoodkbd.ttf")' تنظیمات لیست ویو هستند
End Sub



Sub ListView1_ItemClick (Position As Int, Value As Object)
    
    matn.fasl=Value
    StartActivity(matn1)
    
    
End Sub
 
 
 

[pouya_uut 17]

یه سوال دیگه

شما گفتین

 

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

بذارید توضیح بدم

این عکس اکتیویتی های من هستش

 

مثلا dbkot واسه لیست کردن دیتا بیس وdbkot2 برای نشون دادن متن و عکس اون هستش

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

 

و اینم دیتابیس

 

با این حساب من واسه  StartActivity چی بنویسم؟کدومو بگم استارتش کنه؟

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

سلام

دوست عزیز از کجای قضیه رفتید به نا کجا آباد ؟!!!!

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

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

http://answercenter.ir/index.php?app=nexus&module=payments&section=store&do=item&id=23

در صورت بروز اشکال تاپیک جداگانه ای مطرح کنید.

تاپیک قفل.

[pouya_uut 17]

من خیلی متوجه نشدم چرا پس دوتا عکس fav داشت؟

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

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

نظر شما چیه داش سجاد؟

[sajad8888 819]

من خیلی متوجه نشدم چرا پس دوتا عکس fav داشت؟ چون کاربر بفهمه که الان متن در علاقه مندی هست مثلا عکس اول سفید بعد از اینکه وارد علاقه مندی شد قرمز بشه

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

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

نظر شما چیه داش سجاد؟  نظرم رو دادم

[حسینh 50]

پویا جان بجای باتن کلیک- بنویس باتن لانگ کلیک

[MahdiHD 1,748]

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

[pouya_uut 17]

بفرمایین

 

 

 

[porya 959]

فکر کنم باید یه cursor تو dbmanto تعریف کنی و به جای این کدها

Dim cur As Cursor 
cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbmanto.fast)
cur.Position =0

این مدلی بنویس

dbmanto.cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbmanto.fast)
dbmanto.cur.Position =0

[pouya_uut 17]

 

فکر کنم باید یه cursor تو dbmanto تعریف کنی و به جای این کدها

Dim cur As Cursor 
cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbmanto.fast)
cur.Position =0

این مدلی بنویس

dbmanto.cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbmanto.fast)
dbmanto.cur.Position =0

 

پوریا جان ارور میده قبول نمیکنه

نگا کن

[porya 959]

اگه میتونی کدهای اکتیویتی dbmanto رو قرار بده...

[pouya_uut 17]

اگه میتونی کدهای اکتیویتی dbmanto رو قرار بده...

بفرماا