PDA

View Full Version : اضافه کردن عکس به دیتابیس



coral
چهارشنبه 13 آبان 1383, 11:07 صبح
سلام
من دارم یک برنامه پرسنلی می نویسم که عکس کارکنان را در آن لازم داریم.من با روش ADO در وی بی کار میکنم و دیتابیس من اکسس است .چطور می توان در این حالت عکس را به دیتابیس insert نمود.در ضمن من از کد های اس کیو ال برای عملیات اضافه وحذف و آپ دیت استفاده می کنم.
راستی من خودم کد DAO آن را دارم ولی فایده نداشته .
لطفا به من کمک کنید.

کم حوصله
چهارشنبه 13 آبان 1383, 15:49 عصر
Dim stm As New Stream
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile "c:\MyPic.bmp"
rs.AddNew
rs.Fields("Column1").Value = stm.Read
rs.Update
stm.Close

coral
شنبه 16 آبان 1383, 09:14 صبح
من یک ado کنترل گذاشتم و روی مسیر دیتا بیس آن را ست کردم اما برنامه روی این خط قفل میکنه:

Dim stm As New Stream
و پیام
user-defined type not defind
می دهد .
لطفا به من کمک کنید
نکته دیگه اینک من هم فکر می کنم که از دستورات اس کیو ال استفاده نکردین.و دستورات خود ado را به کار بردین.
به هرحال دستتون درد نکنه واز لطف شما متشکرم.

کم حوصله
شنبه 16 آبان 1383, 21:44 عصر
Project --> Refrence --> Microsoft Activex Data Objects 2.5 Library

یا بالاتر در ورژن 2.0 تا 2.4 وجود ندارد

coral
یک شنبه 17 آبان 1383, 08:57 صبح
ببخشید جناب کم حوصله
اما حالا به من
operation not allowed when object is closed
می دهد.
همان طور که گفتم من قبلا از دستورات اس کیو ال استفاده می کردم والان نمی دانم باید چه کار کنم وچگونه این عکس را به جدول اضافه کنم.
کد من الان به این شکل شده:
Dim stm As New stream

Dim cn As New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\db1.mdb"

Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
'rs.Open "", cn, adOpenStatic, adLockBatchOptimistic


stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile "c:\MyPic.bmp"
rs.AddNew
rs.Fields("pic").Value = stm.Read
rs.Update
stm.Close

و در اون قسمت rs.open که همیشه عبارت اس کیوال می گذاشتم نمی دانم چی بذارم
یا اینکه باید از cn.execute استفاده کنم؟
با تشکر
راستی این کد ها را چطور باید چپ چین نمود؟

کم حوصله
سه شنبه 19 آبان 1383, 23:18 عصر
اینم مثال !! :موفق:

می بخشید که دیر شد !! :sorry:

vbprogramer
چهارشنبه 20 آبان 1383, 07:59 صبح
سلام عزیز

آقا دست شما درد کنه عالی بود :thnx: :تشویق:


فقط یه سؤال :
با استفاده از Insert Into هم می تونیم یه عکس رو اضافه کنیم؟

hbi
چهارشنبه 27 آبان 1383, 21:09 عصر
من هم همین مشکل را دارم نوع بانک اطلاعاتی اکسس روش دستیابی ado میباشد که نمیتوانم عکس را در بانک اطلاعاتی قرار دهم و همجنین برای نمایش عکس موجود در بانک اطلاعاتی نمیدانم از چه روشی استفاده کنم :sorry: