Yardım: HATA ALIYORUM

[blaco]

arkadaşlar başımın belası bir sorun oluştu yardımcı olursanız sevinirim..

hata1.JPG

hata2.JPG

resim ler bunlar... lütfen yardımınıza ihtiyacım var...

ufak bir not... form 'da kayıt yapmaya çalışıyorum..

tşk 'ler..

[blaco]

arkadaşlar kendi cevabımı kendım buldum tsk ederım..

[Revlis]

önemli değilde , başlıklar "yardım" şeklinde açılmazlar. Lütfen yardım gerektiren konunun içeriğini yazın.

[blaco]

arkadaşlar yeni bir başlık açmak istemediğim için bu konuya yazıyorum..

şimdi elimizde bir datagrid düşünelim..

datagrid 'te bir kayıt 'a tıklandıgı zaman o kayıtın resmıni gelmesini istiyorum..
böyle bir şey olabilir mi ?

eger varsa yardımcı olrumusunuz ?

teşekkürler..

[blaco]

arkadaşlar cevap yazan kimse olmadı sanırım görmezden geliyorsunuz ufak bir ipucu bile işime yarıyabilir..

tkr tşk ler..

[Revne]

Veriler arasında gezinebiliyor musun??

[blaco]

evet sorunsuz bir şekilde gezinebiliyorum.. ancak resimleri gostermek ıcın gereken komut elımde yok..

[Revne]

ADODC1 in ozelliklerinden
CursurType =adOpenDynamic
CursurLocation=adUseClient

olacak...

Resim kaydetmenin farkli yolları var...
Benim kullandıgım...

    Dim Rec As New ADODB.Recordset
    Dim st As New ADODB.Stream
    st.Type = adTypeBinary
    st.Open
    SQL = "SELECT * FROM EVK_EKLER WHERE EK_EVK_NO=" & evkId
    Rec.Open SQL, adodc1.Connection, adOpenDynamic, adLockOptimistic
      Rec.AddNew
      Rec.Fields("EK_NO") = NewID
      Rec.Fields("EK_EVK_NO") = txtEvrakNo.Text
      st.LoadFromFile FilePath 'resim dosyası yukleniyor
      Rec.Fields("EK_PICTURE").Value = st.Read 'Resim dosyası kaydediliyor
      Rec.Update
    st.Close
    Rec.Close
    Set Rec = Nothing
    Set st = Nothing

Kolay Gelsin...

[blaco]

denemeye değer tşk ederim yardım için..