Çözüldü Sql veri tabanındaki resmi exceldeki image içine getirme

bu arada sqldeki Veritabanınız ne, access değil mi?

günaydın
başka türlü sorsam yardımcı olabilirmisiniz bana
excelde bir image var
bu image içerisine sql veri tabanındaki resmi getirmek istiyorum
bağlantılara gerek yok sadece resmi veri tabanından nasıl çağırabilirim

Dim resim As String değişkene atadım

'bağlantıları yaptım bu kısımda

Range("G4") = baglantirst.Fields(33)


resim = baglantirst.Fields(33)

If resim = False Then
Exit Sub
Else
Image1.Picture = LoadPicture(resim)

End If

""SQL veri tabanımdaki 33.dosyam resimdir

çalıştırdığımda hata vermiyor ancak resmide yüklemiyor

bahsettiğiniz resim çerçevesinin adı = Image1 olduğunu varsayarsak aşağıdaki kod işinize yarayabilir

invalid picture 481 hatası alıyorum şimdide neden kaynaklanıyor olabilir acaba

resmin uzantısı ne?
resim eklemek için şekil mi kullanıyorsunuz yoksa image nesnesi mi?

Dim veritabaniismi, veritabanikullanici, veritabanisifre, strBaglanti, anaveritabani As String
Dim baglanti As ADODB.Connection
Dim baglantirst As ADODB.Recordset
Dim VtAdi As String
Dim VtKulAdi As String
Dim VtSifre, resim As String
Dim evnStr As Object



bağlantı işlemleri yapılıyor bu kısımda

strBaglanti = strBaglanti & "DATA SOURCE=" & veritabaniismi & ";INITIAL CATALOG=" & anaveritabani & "; Auto Translate=False;"
strBaglanti = strBaglanti & "UID=" & veritabanikullanici & ";PWD=" & veritabanisifre
baglanti.ConnectionString = strBaglanti

baglanti.Open
Set baglantirst.ActiveConnection = baglanti

baglantirst.Open "SELECT * FROM table_personel_sozlesme WHERE (AD like '" & Range("D5") & "' AND SOYAD like '" & Range("D7") & "') OR SICIL like '" & Range("D8") & "' OR SICIL like '" & Range("D10") & "' ", baglanti, 1, 3

Dim bosmu As Boolean
bosmu = True

TEMİZLE

While Not baglantirst.EOF

Range("D8") = baglantirst.Fields(1)
Range("D5") = baglantirst.Fields(2)
Range("D7") = baglantirst.Fields(3)
Range("D10") = baglantirst.Fields(4)
Range("D12") = baglantirst.Fields(5)
Range("D14") = baglantirst.Fields(6)
Range("D16") = baglantirst.Fields(7)

Range("C26") = baglantirst.Fields(8)
Range("C27") = baglantirst.Fields(8)
Range("C28") = baglantirst.Fields(10)
Range("C29") = baglantirst.Fields(11)
Range("C30") = baglantirst.Fields(12)
Range("C31") = baglantirst.Fields(13)
Range("C32") = baglantirst.Fields(14)
Range("C33") = baglantirst.Fields(15)
Range("C34") = baglantirst.Fields(16)
Range("C35") = baglantirst.Fields(17)

Range("H26") = baglantirst.Fields(18)
Range("H27") = baglantirst.Fields(19)
Range("H28") = baglantirst.Fields(20)
Range("H29") = baglantirst.Fields(21)
Range("H30") = baglantirst.Fields(22)
Range("H31") = baglantirst.Fields(23)
Range("H32") = baglantirst.Fields(24)
Range("H33") = baglantirst.Fields(25)
Range("H34") = baglantirst.Fields(26)
Range("H35") = baglantirst.Fields(27)

Range("C41") = baglantirst.Fields(28)
Range("C37") = baglantirst.Fields(28)

Range("H37") = baglantirst.Fields(29)
Range("C42") = baglantirst.Fields(29)
Range("D18") = baglantirst.Fields(30)
Range("C43") = baglantirst.Fields(31)
Range("D43") = baglantirst.Fields(32)

If baglantirst.RecordCount = 0 Then
MsgBox "Resim bulunamadı.", vbInformation, "hata"
Exit Sub
Else
Set evnStr = CreateObject("ADODB.Stream")
resim = "C:\foto\personel.jpg"
ff = FreeFile
evnStr.Type = 1
evnStr.Open
evnStr.Write baglantirst.Fields("FOTO").Value
evnStr.SaveToFile "resim"
Open resim For Output As ff
Personel.Image1.Picture = LoadPicture(resim)
Close ff
Kill "resim"

Set evnStr = Nothing: Set baglantirst = Nothing: Set baglanti = Nothing
End If


bosmu = False
baglantirst.MoveNext
Wend

If (bosmu = True) Then

MsgBox ("Personel Kaydı Bulunamadı.")
Exit Sub
End If

baglantirst.Close

End Sub



dosyaya yazma başarısız oldu 3004 hatası alıyorum


resmi sqlden alıp bir klasöre atıyorbelirttiğim pathte ve klasörden image içine o resmi getiremedim
yardımcı olurmusunuz lütfen

kodlarım yukarıdaki gibidir.

halily' Alıntı:

resmin uzantısı ne?
resim eklemek için şekil mi kullanıyorsunuz yoksa image nesnesi mi?

Genişletmek için tıkla...

jpg bmp png olarak veri tabanından indirdim klasore

geliştirici ekle image nesnesi ekledim excel sayfama
image içine klasördeki resmin gelmesini istyorum ancak başarılı olamadım

hiç bir resim mi gelmedi?

halily' Alıntı:

hiç bir resim mi gelmedi?

Genişletmek için tıkla...

excel sayfasına image içerisine yada hücreye hiçbir resim getiremedim
resim = "C:\foto\personel.jpg"
belirttiğim path e veritabanından indiriyor ancak sayfama eklemiyor

çalışmanıza bir dikdörtgen ekleyip aşağıdaki kodu dener misiniz

aeGNoR' Alıntı:

Bazı durumlarda veritabanından dosya alırken bozarak alabiliyor. Belirttiğiniz yoldaki dosyayı çift tıklayarak açmayı denediniz mi? resmi görüntüleyebiliyor musunuz? Ayrıca image nesnesinin desteklediği bir formatta olduğundan emin miyiz?

Genişletmek için tıkla...

merhaba
resmi sayfaya getirebildim ama formda belirtilen hücreye getiremiyorum

teşekkür ederim size

çok teşekkür ederim .