اضافه کردن عکس به دیتابیس

[coral]

سلام
من دارم یک برنامه پرسنلی می نویسم که عکس کارکنان را در آن لازم داریم.من با روش ADO در وی بی کار میکنم و دیتابیس من اکسس است .چطور می توان در این حالت عکس را به دیتابیس insert نمود.در ضمن من از کد های اس کیو ال برای عملیات اضافه وحذف و آپ دیت استفاده می کنم.
راستی من خودم کد DAO آن را دارم ولی فایده نداشته .
لطفا به من کمک کنید.

[کم حوصله]

   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]

من یک ado کنترل گذاشتم و روی مسیر دیتا بیس آن را ست کردم اما برنامه روی این خط قفل میکنه:

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

[کم حوصله]

Project --> Refrence --> Microsoft Activex Data Objects 2.5 Library

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

[coral]

ببخشید جناب کم حوصله
اما حالا به من
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 استفاده کنم؟
با تشکر
راستی این کد ها را چطور باید چپ چین نمود؟

[کم حوصله]

اینم مثال !! :موفق:

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

[vbprogramer]

سلام عزیز

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


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

[hbi]

من هم همین مشکل را دارم نوع بانک اطلاعاتی اکسس روش دستیابی ado میباشد که نمیتوانم عکس را در بانک اطلاعاتی قرار دهم و همجنین برای نمایش عکس موجود در بانک اطلاعاتی نمیدانم از چه روشی استفاده کنم :sorry: