مشکل در ذخیزه وبازیابی عکس از بانک sql

[mf_engineer]

با سلام
من کد نمایش رو نوشتم ولی به لطف دوستان کسی جواب نداد :گریه:
دوباره کد ذخیره ونمایش رو براتون می ذارم انشالله که کسی کمکم کنه
الهی به امید تو.....
راستی بانک من Sql
کد ذخیره:


Public adoconn As ADODB.Connection
Public mystream As ADODB.Stream
Public recordset As ADODB.recordset
Private Sub Command1_Click()
Set mystream = New ADODB.Stream
mystream.Type = 1
mystream.Open
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
CommonDialog1.ShowOpen
mystream.LoadFromFile CommonDialog1.FileName
sqlString = "INSERT INTO picture(pic) VALUES (' mystream.Read ' )"
adoconn.Execute sqlString
mystream.Close
adoconn.Close


کد نمایش هم :


Private Sub Command2_Click()
Dim strStream As ADODB.Stream
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
Set recordset = New ADODB.recordset
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
sqlString = "SELECT * FROM picture "
recordset.Open sqlString, adoconn
strStream.Write recordset.Fields("Pic").Value
strStream.SaveToFile "C:\Temp.jpg", adSaveCreateOverWrite
Picture1.Picture = LoadPicture("C:\Temp.jpg")
Kill ("C:\Temp.bmp")
End Sub

[r0ot$harp]

با سلام
من کد نمایش رو نوشتم ولی به لطف دوستان کسی جواب نداد :گریه:
دوباره کد ذخیره ونمایش رو براتون می ذارم انشالله که کسی کمکم کنه
الهی به امید تو.....
راستی بانک من Sql
کد ذخیره:


Public adoconn As ADODB.Connection
Public mystream As ADODB.Stream
Public recordset As ADODB.recordset
Private Sub Command1_Click()
Set mystream = New ADODB.Stream
mystream.Type = 1
mystream.Open
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
CommonDialog1.ShowOpen
mystream.LoadFromFile CommonDialog1.FileName
sqlString = "INSERT INTO picture(pic) VALUES (' mystream.Read ' )"
adoconn.Execute sqlString
mystream.Close
adoconn.Close
کد نمایش هم :


Private Sub Command2_Click()
Dim strStream As ADODB.Stream
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
Set recordset = New ADODB.recordset
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
sqlString = "SELECT * FROM picture "
recordset.Open sqlString, adoconn
strStream.Write recordset.Fields("Pic").Value
strStream.SaveToFile "C:\Temp.jpg", adSaveCreateOverWrite
Picture1.Picture = LoadPicture("C:\Temp.jpg")
Kill ("C:\Temp.bmp")
End Sub



دوست عزیز مشکل در این جا بود :


sqlString = "INSERT INTO picture(pic) VALUES (' mystream.Read ' )"


به این :



sqlString = "INSERT INTO picture(pic) VALUES (' " & mystream.Read & " ')"


تغییر دهید .



باتشکر احسان

[xxxxx_xxxxx]

یک سری pdf فوق العاده جالب (http://barnamenevis.org/forum/showthread.php?t=111558): پست شماره 7 فایل ضمیمه دوم
یک سری pdf فوق العاده جالب (http://barnamenevis.org/forum/showthread.php?t=111558&page=2): پست شماره 13 فایل ضمیمه پنجم

[mf_engineer]

دوست عزیز :


دوست عزیز مشکل در این جا بود :

کد:
sqlString = "INSERT INTO picture(pic) VALUES (' mystream.Read ' )"
به این :


کد:
sqlString = "INSERT INTO picture(pic) VALUES (' " & mystream.Read & " ')"
تغییر دهید .



باتشکر احسان


من کار شما رو قبلا کردم ولی بازهم نشد و خطا می ده

[mf_engineer]

دوست عزیز


نقل قول: مشکل در ذخیزه وبازیابی عکس از بانک sql
یک سری pdf فوق العاده جالب (http://barnamenevis.org/forum/showthread.php?t=111558): پست شماره 7 فایل ضمیمه دوم
یک سری pdf فوق العاده جالب (http://barnamenevis.org/forum/showthread.php?t=111558&page=2): پست شماره 13 فایل ضمیمه پنجم

من فایل های شما رو هم دانلود کردم ولی متاسفانه بازهم راه حل نمایش وذخیره عکس رو توی اکسس گفته نه sql
فقط یه توضیح مختصر داده در مورد sql که خیلی کار ساز نبود

[r0ot$harp]

دوست عزیز :

من کار شما رو قبلا کردم ولی بازهم نشد و خطا می ده


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



sqlString = "INSERT INTO picture(pic) VALUES (' mystream.Read ' )"



و به هیج عنوان نباید استفاده بشه .

من بازهم امشب رو مشکل شما کار می کنم .


باتشکر احسان

[vahid_d_0101]

اقای mf_engineer (http://barnamenevis.org/forum/member.php?u=45515) اون سورسی که به من دادید رو اینجا بزارید بچه ها میتونن روش کار کنن درستش کنن حتما مشکلتون حل میشه.

[mf_engineer]

دوست عزیزvahid_d_0101
من هم اگه خوب دقت کنین اون بالا سورسم رو گذاشتم
========================================
من فکر می کنم مشکل تو ذخیره باشه یعنی بنظر من اول باید عکس رو به باینری تبدیل کنم بعد بریزم تو بانک ، و اینکه اول عکس رو از حالت باینری تو بانک تبدیل به عکس کنم و بعد نشونش بدم ,
نظر شما چیه ؟
اگه کدش رو دارین ممنون می شم برام بذارین
راستی طبق کمک ونظر دوست عزیز xxxxx_xxxxx من رو کد ایشون هم کار کردم وبراتون کد ایشون رو هم که از مقاله ای که دانلود کردم نوشتم می ذارم
کد نمایش :


Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
Set recordset = New ADODB.recordset
recordset.Open "picture", adoconn, adOpenKeyset, adLockPessimistic, adCmdTable
Set Image2.DataSource = recordset
Image2.DataField = "pic"


این کد رو برای نمایش عکس گذاشتن که باز هم تو خط اخر خطا می ده
خطا :


unable to bind to field or datamember:'pic'

کد ذخیره:



Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
adoconn.Open
Set recordset = New ADODB.recordset
sqlString = "INSERT INTO picture(pic) VALUES ('recordset.AppendChunk (Image1.Picture)')"
adoconn.Execute sqlString


اینم بگم وقتی رو دکمه ذخیره کلیک می کنم به بانکم اضافه می شه وخطایی نمی ده
طاعاتتون قبول
یاحق

[mf_engineer]

اهای مهندسین ,برنامه نویسان ایران کجایین؟؟؟
منتظر یاری سبز شما هستم.............

[xxxxx_xxxxx]

ببخشید فیلد pic از نوع image هست؟

[mf_engineer]

بله فیلد pic از نوع image هست

[mf_engineer]

ای بابا
یکی نیست به داد ما برسه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟
اگه کسی راه دیگه ای هم بلده به ما بگه ...........
کسی اون راه رو که می شه ادرس عکس رو تو بانک ذخیره کرد رو نداره؟؟؟

[A.Noor]

سلام
این فایل راهنما را من چند سال پیش گرفتم و کارم راه افتاد. انشاء الله مشکل شما هم حل می شود.
فقط یک توصیه دوستانه به شما دارم که هر چه زودتر سراغ دات نت بروید

[salarblacklove]

دوست عزیز ممنون از راهنماییتون یک مشکل دارم اونم این هست که من میخوام مثلاً آلبوم عکس چاپ کنم یعنی تو برگ A4 کلاً عکس باشه و زیرش هم اسم و فامیل شخص با روشی که فرمودین ابتدا باید از فیلد خونده بشه بعد بره تو فایل بعدلود بشه! اما جایی که من مثلاً میخوام 20 تا عکس رو کاغذ بندازم باید اونوقت 20 تا فایل تصویر درست کنم و 20 بار عمل لود و 20 بار هم پاک کردن؟! یا روش دیگه ای هم هست؟