• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

egemir

Yeni Üye
Katılım
6 Eyl 2021
Mesajlar
124
Aldığı beğeni
14
Excel V
Office 2013 TR
merhaba,
veri tabanı sqlde bulunan resmi makro ile exceledeki image nesnesinin içine nasıl getirebilirim?
yardım lütfen
 
Çözüm
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
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?
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
Kod:
 yol = "resimAdresi"
ActiveSheet.Image1.Picture = LoadPicture(yol)
 
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.
 
çalışmanıza bir dikdörtgen ekleyip aşağıdaki kodu dener misiniz
Kod:
     yol="resmin tam yolu ve adresi" '
     'yol="C:\Users\RickXL\Pictures\HW Diagrams\Gigaport.png" gibi
     With ActiveSheet.Shapes("Dikdörtgen 1").Fill
        .Visible = msoTrue
        .UserPicture yol
        .TextureTile = msoFalse
    End With
 
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
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?
 
Çözüm
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?
merhaba
resmi sayfaya getirebildim ama formda belirtilen hücreye getiremiyorum
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst