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
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
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
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not System.IO.Directory.Exists("D:\" & "مستندات السكانر" & "\") Then
System.IO.Directory.CreateDirectory("D:\" & "مستندات السكانر" & "\")
End If
Dim PicName As String = Now.ToString("yyyy_MM_dd_hh_mm_ss_tt.Bmp")
EZTwain.AcquireToFileName(Me.Handle, PicName) ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
PictureBox1.Image = Image.FromFile(PicName) ' لجلب الصورة في البكتشر بوكس وعرضها
End Sub
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If Not System.IO.Directory.Exists("D:\" & "مستندات السكانر" & "\") Then
System.IO.Directory.CreateDirectory("D:\" & "مستندات السكانر" & "\")
End If
DataGridView1.Rows.Clear()
Dim i As Integer = 0
For Each FileName As String In IO.Directory.GetFiles("D:\" & "مستندات السكانر" & "\", "*.Bmp")
i += 1
DataGridView1.Rows.Add(i, FileName)
Next
PictureBox1.Image = Image.FromFile(DataGridView1.CurrentRow.Cells(1).Value.ToString)
End Sub