[VBA] picturedata

88888888 · 15-03-2017, 13:12

merhaba üstadlarım

Visual Basic
Dim yol, Dosya As String, Kyt As Recordset
yol = Me.Metin2 & "\"
DoEvents
Dosya = Dir(yol & "*.jpg")
Set Kyt = CurrentDb.OpenRecordset("Select * From Tbl_Resim")
While Dosya <> ""
Kyt.AddNew
Kyt!Res_Yer = yol
Kyt!Dosya = Dosya
Kyt!Tarih = FileDateTime(yol & Dosya)
Kyt.Update
Debug.Print Dosya
Dosya = Dir
Wend
Kyt.Close: Set Kyt = Nothing

yukardaki kodla klasör içindeki resimleri vt ye alabiliyorum. ancak picturedata kısmınıda Ekler bölümüne almak istiyorym veritabanında saklamak için. ancak kodu nereye eklemem lazım

Tşk ederim

(Zeki Gürsoy hocamın örneğini incelemdim ancak yapamadım)

jon206 · 15-03-2017, 17:13

sn. 88888888;
ek olarak alırsanız ileride dosyanız da şişme, kilitlenme ve hatalar olacaktır.
vt. hasar görecektir; hele ki access vt buna müsait değil bence ya sql servere , mysql geçin yada böyle devam edin derim tavsiyemdir.. Wink

88888888 · 17-03-2017, 23:56

Jon hocam mysql kurdum ve access ile bağlantısını yaptım şu anda kullanıyorum ancak yine aynı sorun ile karşı karsiyayim . Yazdığım koda ek olarak ne yapmam gerekli ki klasordeki resimleri mysqle toplu şekilde yukleyeyim. C# öğrenmeye başladım ancak ondada öyle bir kod bulamadım ( önce accesste tasarlıyor sonra c# da denemeler yapıyorum ) bu konuda bilgilerinizi esirgemeyeceginizi biliyorum saygılarımla

dsezgin · 18-03-2017, 04:38

Ek Alanina Dosya Ekleme konusunu inceleyebilirsiniz.

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL