Access SQL   ›   Tags   ›   picturedata

Tags
Author: 88888888 - Replies: 3 - Views: 922
picturedata
merhaba üstadlarım


Visual Basic
  1. Dim yol, Dosya As String, Kyt As Recordset
  2. yol = Me.Metin2 & "\"
  3. DoEvents
  4. Dosya = Dir(yol & "*.jpg")
  5. Set Kyt = CurrentDb.OpenRecordset("Select * From Tbl_Resim")
  6. While Dosya <> ""
  7. Kyt.AddNew
  8. Kyt!Res_Yer = yol
  9. Kyt!Dosya = Dosya
  10. Kyt!Tarih = FileDateTime(yol & Dosya)
  11. Kyt.Update
  12. Debug.Print Dosya
  13. Dosya = Dir
  14. Wend
  15. Kyt.Close: Set Kyt = Nothing



yukardaki kodla klasör içindeki resimleri vt ye alabiliyorum. ancak picturedata kısmınıda Ekler bö