آیا کسی از دوستان برنامه ای برای ذخیره وحذف تصاویر در بانک اطلاعاتی دارد به به یک نمونه از این برنامه نیاز ضروری دارم
ممنون
آیا کسی از دوستان برنامه ای برای ذخیره وحذف تصاویر در بانک اطلاعاتی دارد به به یک نمونه از این برنامه نیاز ضروری دارم
ممنون
نمونه زیر را برات آماده کردم اما فقط فانکشن SavePicFile ناقص است که خودت با توجه به تنظیمات و نوع بانک استفاده شده در این کار استفاده کنی. بعلت اینکه برای من تحت اسکیو ال و از کلاسهای آماده خودم استفاده میکردم نتونستم کامل بهت بدم.
من در vb.net مبتدی هستم وتازه وارد کار با این برنامه شدم اگه بتونیدبرنامه کاملتر وواضح تری رو برام لینک کنیدممنون می شوم.
این برنامه ای که شما قراردادین فقط آدرس روذخیره میکنه من می خوام خود عکس روهم ذخیره کنم . حالا فرق نمی کنه بانک اون اکسس باشه یا sql مهم این است که بتواند عکس ها وادرس اونها رودر بانک اطلاعاتی ذخیره و دوصورت نیاز حذف کنم
ممنون
Dim fs As IO.FileStream
fs = New IO.FileStream("c:\0.jpg", FileMode.Open, FileAccess.Read, FileShare.Read)
Dim myData(fs.Length) As Byte
fs.Read(myData, 0, fs.Length)
mydata رو ذخیره میکنی توی بانکت . فیلدش هم باید باینری باشه تو بانک
سلام :
راستش من اینجوری اصلا متوجه نمی شم !
اگه برنامه کاملی ومثالی دراین مورد دارد برام لینک کنید تا به کمک شما بتونم برنامه ام رو بنویسم ؟1
ممنون دوستان :
دوست عزیز کدی که میخوای برای ذخیره همینه ... فقط به جای c:\0.jpg آدرس فایلت رو قرار بده .....
سلام :
این کد که شما گفتید قرارداردم اما این پیغام رومیده وبرنامه اجرا نمی شه :
Imports System.IO
Imports System.IO.FileStream
Imports System.Drawing.Bitmap
اینا رو به ابتدای برنامت اضافه کن
سلام :
با قراردادن کدهای بالا تغییری حاصل نشد
برنامه دوباره همون پیغام قبلی را می دهد واجرا نمی شود
لطف کن به من بگو که برای برطرف کردن این پیغام چه کار باید انجام دهم
دوست من منتظر باش کامل برنامه شو برات می زارم
من با vb.net 2008 و sql2005 کار کردم اسم دیتابیس picو جدول pic1 با دو فیلد به ترتیب با نوع imageو (50)nvarchar.دوستان حواسشون باشه اگه اسکیوال 2005 نیست sqlcnnرو باید عوض کنن
شما باید ابتدا روی دکمه مسیر عکس کلیک و یه عکس بهش بدی بعد روی ذخیره و بعد لود کلیک کنی . هم عکس و هم مسیرش تو دیتاگرید نشون داده میشن . روی سطر های جدول که کلیک کنی عکس تو picturebox می افته
البته لود از طریق فیلد image انجام می شه اگه دوستان بگن از طریق فیلد آدرس چه طوری لود کنم ممنون می شم
آخرین ویرایش به وسیله shocraneh : دوشنبه 16 شهریور 1388 در 09:58 صبح
سلام :
برنامه ای که شما نوشته اید هیج تصویری را لود نمی کند آدرس تصویر رودرtextbox نمایش می دهد ووقتی ذخیره ویا لود رامی زنم اجرانمی شود ویکباره از برنامه خارج می شود ؟1
وپیغامی هم نمی دهد لطف کنید وبگویید چه کارباید انجام دهم تااین مشکل برطرف شود با اینکه نمونه دیگری از اینمورد رابرایم لینک کنیدوفرق ندارد که بانک آن اکسس باشد یا sql
من نیاز فوری به یک نمونه از این نوع برنامه ها برای نوشتن برنامه ام دارم ؟1
ممنون؟!
آخرین ویرایش به وسیله sayyadhunter1366 : جمعه 13 شهریور 1388 در 11:51 صبح
با سلام
دوست عزیز از این نمونه که توی امضام هست می تونی استفاده کنی و هر نوع فایلی رو درون بانکت ذخیره کنی .
یا علی
سلام دوستان
منم يه راهي رو پيشنهاد مي كنم .من خودم تو پروژم از اين راه استفاده كردم و خيلي راحته!
openimg.ShowDialog()
openimg.Filter = "all graphic format|*.jpg;*.gif;*.ico;*.wmf"
picfile = openimg.FileName
If picfile = ""Then
ExitSub
EndIf
pic1.Load(picfile)
اين كدو مي تونيد تو يه دكمه بذاريد و يه فيلد هم تو پايگاهت از نوع nvarchar يا همون string خودمون بستگي به نوع پايگاهتون بذاريدبا اين كد آدرس عكس رو به دست مي ياريد و خودشو هم تو pic1 نشون ميده حالا مثل همه فيلدهاي ديگه فيلد پايگاهتون رو كه از نوعstring هست رو با picfile مقدار دهي كنيد و وارد جدولتون بكنيد با اين روش تنها به جاي عكس آدرس عكستون در پايگاه ذخيره مي شه كه كار كردن باهاش راحت تره!
راحت مي تونيد اين آدرس رو دوباره تغيير بديد يا حذفش بكنيد مثل بقيه فيلدها و در pic1 لودش كنيد
موفق باشيد
سلام
دوستان من این برنامه را نوشتم ولی چند تا مشکل داره لطف کنید ببینید و اشکالاتم رو رفع کنید.
1 - حذف رکورد
2 - ویرایش تصویر (UPDATE)
این یکی رو هم امتحان کنید
باید ابتدا در بانک خودت جدولی رو با مشخصات زیر ایجاد کنی
نام فیلد = pic_id نوع فیلد = int
نام فیلد = pic_name نوع فیلد = nvarchar(30)
نام فیلد = pic_image نوع فیلد = image
بعد از اون کانکشن استرینگ خودت رو براساس مشخصات بانک خودت تنظیم کنی یعنی :
your server = نام کامپیوتر مورد نظر
your data = نام بانک اطلاعاتی مورد نظر
username = نام کاربری
password = کلمه عبور
حالا کانکشن رو جایگزین کن و بعد از حالشو ببر
Dim pic_con AsNew SqlConnection("data source = your server;" & _
" Initial Catalog= your data ;" & _
" user id= username" & _
";password= password")
سلام
به اين لينك يه نگاهي بنداز
https://barnamenevis.org/showth...84%D9%81%D9%86