pedram_ns
دوشنبه 07 فروردین 1391, 14:20 عصر
با سلام
من به کاربر اجازه میدم تا برای اطلاعات شرکت خودش روی سایتم یک تصویر لوگو بذاره و هر وقت خواست اون رو حذف کنه.
با شروع ثبت نام من مقدار فیلد لوگو رو در دیتایسم خالی null میذارم و با کد زیر در هنگام جستجو شرکتها اون رو نمایش میدم
Dim adapter As New OleDbDataAdapter(cmd)
Dim ds As New DataSet()
adapter.Fill(ds, "company")
Dim l As Integer
For l = 0 To ds.Tables("company").Rows.Count - 1
Dim logo As String
If Not IsDBNull(ds.Tables("company").Rows(l)("logo")) Then
logo = ds.Tables("company").Rows(l)("logo").ToString()
Else
ds.Tables("company").Rows(l)("logo") = "not_available.gif"
End If
Next
همونطور که در این کد میبیند اگر کاربر تصویر بذاره اون تصویر نمایش داده میشه و اگر تصویری انتخاب نگرده باشه یک تصویر پیش فرض رو نمایش میدم.
مشکل من وقتیه که کاربر اول یک تصویر رو برای شرکتش بذاره و بعد اون رو حذف کنه. با حذف تصویر من باز هم فیلد مربوط به لوگو در دیتابیس رو خالی میذارم ولی دیگه کد بالا نمیتونه عکس پیش فرض رو نشون بده.
لطفا راهنمایی کنید مشکل در کجاست و باید چکار کرد؟
با تشکر
من به کاربر اجازه میدم تا برای اطلاعات شرکت خودش روی سایتم یک تصویر لوگو بذاره و هر وقت خواست اون رو حذف کنه.
با شروع ثبت نام من مقدار فیلد لوگو رو در دیتایسم خالی null میذارم و با کد زیر در هنگام جستجو شرکتها اون رو نمایش میدم
Dim adapter As New OleDbDataAdapter(cmd)
Dim ds As New DataSet()
adapter.Fill(ds, "company")
Dim l As Integer
For l = 0 To ds.Tables("company").Rows.Count - 1
Dim logo As String
If Not IsDBNull(ds.Tables("company").Rows(l)("logo")) Then
logo = ds.Tables("company").Rows(l)("logo").ToString()
Else
ds.Tables("company").Rows(l)("logo") = "not_available.gif"
End If
Next
همونطور که در این کد میبیند اگر کاربر تصویر بذاره اون تصویر نمایش داده میشه و اگر تصویری انتخاب نگرده باشه یک تصویر پیش فرض رو نمایش میدم.
مشکل من وقتیه که کاربر اول یک تصویر رو برای شرکتش بذاره و بعد اون رو حذف کنه. با حذف تصویر من باز هم فیلد مربوط به لوگو در دیتابیس رو خالی میذارم ولی دیگه کد بالا نمیتونه عکس پیش فرض رو نشون بده.
لطفا راهنمایی کنید مشکل در کجاست و باید چکار کرد؟
با تشکر