السلام عليكم.اخواني بهذا الملف الذي لقيتو بامنتدى يتم حفظ الصورة بعد مسحها بالديباج او يمكن حفظها بقاعدة البيانات.كيف يمكن اخلي الصورة يلي عملت لها سكانر تنحفظ على القرص D بمجلد اسمو ( مستندات السكانر ) .ما اريد احفظها بقاعدة البيانات بارك الله فيكم
17-02-20, 10:15 PM (آخر تعديل لهذه المشاركة : 17-02-20, 10:16 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
17-02-20, 11:15 PM (آخر تعديل لهذه المشاركة : 17-02-20, 11:21 PM {2} بواسطة محمد خيري.)
بارك الله فيك اخ عاصم على المساعدة.لكن ما عرفت اشغلو .انا اريد حذف قاعدة البيانات تماما و لا احفظ فيها تماما .اريد لما اعمل سكانر للصورة لما ينتهي المسح تنعرض الصورة المعمول ليها سكانر بالبكشر بوكس 1 و تلقائي تنحفظ بالمجلد ( مستندات السكانر ) على القرص D و لو كان ممكن اخي عاصم تنحفظ الصورة بالمجلد و يظهر معها التاريخ و التوقيت اما قاعدة البيانات اكسس اريد احذفها تماما و بارك الله فيك و معذرة على التعب اخي
هذا الملف فيه ما احتاجه فقط بارك الله فيك
18-02-20, 03:45 AM (آخر تعديل لهذه المشاركة : 18-02-20, 03:48 AM {2} بواسطة asemshahen5.)
عدل كود الحفظ الى الكود التالي :
PHP كود :
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
و كود الفورم 2 لود الى :
PHP كود :
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
والله الموفق .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر