السلام عليكم ورحمة الله وبركاته الى كل الاخوة كبار الشخصيات او كبار المطورين او الأعضاء المتقدمين
يا اخوان انا شخص مبتداء تركت VB6 ودخلت في عالم الدوت نت
كل الي نحتاجه ان نبداء خطوه بخطوه بغض النضر عن فهم واستيعات كل شخص
ولاكن لما نطلب مساعدة لفهم موضوع كالحفظ من الداتا جريد الى قاعدة البيانات واجد مثال فيه التالي
da.Update(dt)
My.Settings.mloc = Me.Location
My.Settings.Save()
If con.State = ConnectionState.Open Then con.Close()
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
Dim splitFilename() As String = Split(filename, "\")
Dim onlyFilename As String = splitFilename(splitFilename.Length - 1)
Try
jro.CompactDatabase(" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename,
" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename & "i" & ";Jet OLEDB:Engine Type=5")
'MsgBox("تم الضغط بنجاح")
FileIO.FileSystem.DeleteFile(filename)
FileIO.FileSystem.RenameFile(filename & "i", onlyFilename)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try
وهو جزء من كود الاخ سعود جزاه الله خير على المساعدة ولاكن انا احتاج شي واضح وبسيط
يا اخوان هذا فكري وقدرتي على الفهم
انا احتاج شي واضح عشان بعد كذا ابني عليه كل عمليات الحفظ الي احتاجها
وفي الاخير نتمنى احد من الاخوه ولو ثقلنا عليه واخذنا من وقته ان يعمل لنا مثال بسيط عملية حفظ مكونة من اسم ورقم من الداتا جريد الى
الداتا بيز
والف شكر لك من رد او حاول يساعد في موضوعي هذا
وانا ارفقت مثال في بداية الموضوع لكي يتم التعديل عليه
يا اخوان انا شخص مبتداء تركت VB6 ودخلت في عالم الدوت نت
كل الي نحتاجه ان نبداء خطوه بخطوه بغض النضر عن فهم واستيعات كل شخص
ولاكن لما نطلب مساعدة لفهم موضوع كالحفظ من الداتا جريد الى قاعدة البيانات واجد مثال فيه التالي
da.Update(dt)
My.Settings.mloc = Me.Location
My.Settings.Save()
If con.State = ConnectionState.Open Then con.Close()
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
Dim splitFilename() As String = Split(filename, "\")
Dim onlyFilename As String = splitFilename(splitFilename.Length - 1)
Try
jro.CompactDatabase(" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename,
" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename & "i" & ";Jet OLEDB:Engine Type=5")
'MsgBox("تم الضغط بنجاح")
FileIO.FileSystem.DeleteFile(filename)
FileIO.FileSystem.RenameFile(filename & "i", onlyFilename)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try
وهو جزء من كود الاخ سعود جزاه الله خير على المساعدة ولاكن انا احتاج شي واضح وبسيط
يا اخوان هذا فكري وقدرتي على الفهم
انا احتاج شي واضح عشان بعد كذا ابني عليه كل عمليات الحفظ الي احتاجها
وفي الاخير نتمنى احد من الاخوه ولو ثقلنا عليه واخذنا من وقته ان يعمل لنا مثال بسيط عملية حفظ مكونة من اسم ورقم من الداتا جريد الى
الداتا بيز
والف شكر لك من رد او حاول يساعد في موضوعي هذا
وانا ارفقت مثال في بداية الموضوع لكي يتم التعديل عليه

