[رحوووم]

السلام عليكم ورحمة الله وبركاااته


في قاعدة البيانات أنا كتبت جنب إسم الموظف .. إسم الملف إلي فيه صوره .. وأبغا لمن يتم الضغط على إسم الموظف .ز يتم إستدعاء جميع صوره من إسم الملف إلي في قاعدة االبيانات

الله يخليكم ... بإذن الله أول ما المشروع يكتمل ... راح أنسقه كامل وأرفعه على منتدانا الغالي ليستفيد الجميع منه

فساعدوني بارك الله فيكم

إلي حاب إني أقوله المشروع كامل عندي حساب في السكايب ---> skype201320141 هذا هو كامل

الأن هذا كود الفورم إلي راح تنعرض فيه صورة الموظف

Imports System.Data.OleDb

Imports System.Data
Imports System.Data.SqlClient



Public Class Home3

Dim q As String

Dim CN As New SqlConnection("Data Source=zeromoooney\sqlexpress;Initial Catalog=Employe;Integrated Security=True")


Private Sub Home3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
q = "Select ID, pic From main WHERE ([ID]=" & v & ") "


CN.Open()
Dim snds As New DataSet
Dim AccTableAdapter As New SqlDataAdapter(q, CN)
AccTableAdapter.Fill(snds, "main")

Dim app As New IO.FileInfo(Application.ExecutablePath)

Dim pat As String = app.DirectoryName & "\images\" & snds.Tables(0).Rows(0)("pic")
' MsgBox(pat)
If IO.File.Exists(pat) Then
Me.pb1.Image = Image.FromFile(pat)
Else
pb1.Image = Nothing
End If
End Sub

Dim v As String


WriteOnly Property setValue() As String
Set(ByVal value As String)


v = value


End Set
End Property

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Home1.Show()


End Sub
End Class

وهذا ملف المشروع --------> http://www.gulfup.com/?i3HAdo