[asemshahen5]

عدل نوع العامود Pic الى نص في قاعدة البيانات و عدل كود الحفظ الى التالي :

PHP كود :

  Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If Not System.IO.Directory.Exists("D:\" & "مستندات السكانر" & "\") Then
            System.IO.Directory.CreateDirectory("D:\" & "مستندات السكانر" & "\")
        End If
        Dim StrSQL0 As String = "Select IIF(Max(ID) Is NULL,1,Max(ID)+1)AS ID From PicT"
        Dim PicName As String = Now.ToString("yyyy_MM_dd_hh_mm_ss_tt") & FillDataTableXT(StrSQL0)(0)("ID").ToString & ".Bmp"
        Dim StrSQL1 As String = "INSERT INTO PicT (Pic) VALUES ('D:\" & "مستندات السكانر" & "\" & PicName & "')"
        ExcuteNoneQuryXT(StrSQL1)
        EZTwain.AcquireToFileName(Me.Handle, PicName) ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
        PictureBox1.Image = Image.FromFile(PicName) ' لجلب الصورة في البكتشر بوكس وعرضها
    End Sub 


و اضف الى الموديول الاكواد التالية :

PHP كود :

   Sub ExcuteNoneQuryXT(strSQL As String)
        Dim Cmd As New OleDb.OleDbCommand(strSQL, Con)
        If Con.State = ConnectionState.Closed Then Con.Open()
        Cmd.ExecuteNonQuery()
        If Con.State = ConnectionState.Open Then Con.Close()
        ''هذه الطريقة جيدة لاضافة و تعديل السجلات
    End Sub
    Function FillDataTableXT(Qquery As String) As DataTable
        Dim da As New OleDb.OleDbDataAdapter(Qquery, Con)
        Dim DT As New DataTable
        DT.Clear()
        da.Fill(DT)
        Return DT
        ''هذه الطريقة جيدة لعرض السجلات عن طريق الداتاتيبل
        ''طريقة الاتصال المنفصل
    End Function 


و عدل كود الفورم 2 الى التالي :

PHP كود :

   Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDataTableXT("select * from PicT ")
        PictureBox1.Image = Image.FromFile(DataGridView1.CurrentRow.Cells(1).Value.ToString)
    End Sub