تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في كود ضغط واصلاح قاعة بينات اكسس 2003
#1
كود :
   Public Sub CompactAccessDBT(ByVal connectionString As String, ByVal mdwfilename As String)

       Try

           Dim Engine = CreateObject("JRO.JetEngine")

           Engine.CompactDatabase("provider=microsoft.ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\AUTO.mdb;" & "Jet OLEDB:Database Password=AHMED1998;" & _
           "Jet OLEDB:Engine Type=5;", _
           "provider=microsoft.ace.oledb.12.0;" & _
           "Jet OLEDB:Database Password=AHMED1998;" & _
           "Data Source=" & Application.StartupPath & "\AUTO.mdb.tmp" & ";" & _
            "Jet OLEDB:Engine Type=5;")
           Dim FullPath As String = IO.Path.GetDirectoryName(Application.StartupPath & "\AUTO.mdb")
           IO.File.Delete(Application.StartupPath & "\AUTO.mdb")
           Dim filename As String = IO.Path.GetFileName(Application.StartupPath & "\AUTO.mdb.accdb" & ".tmp")
           Dim GetFileNameWithoutExtension As String = IO.Path.GetFileNameWithoutExtension(Application.StartupPath & "\AUTO.mdb" & ".tmp")
           FileSystem.Rename(Application.StartupPath & "\AUTO.mdb" & ".tmp", FullPath & "\" & GetFileNameWithoutExtension)

       Catch ex As Exception

           If InStr(ex.Message.ToUpper, "password".ToUpper) Or InStr(ex.Message.ToUpper, "password".ToUpper) Then
               MsgBox("Password is invalid.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Password Database")

           ElseIf My.Computer.FileSystem.FileExists(Application.StartupPath & "\AUTO.mdb") = False Then
               MsgBox("Database Not found!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erorr")

           Else
               MsgBox("Pressure operation failed!, Be sure not to open the database from another source.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erorr")

           End If
       End Try
   End Sub
السلام عليكم 
اريد اين المشكل في هد الكود ضغط واصلاح قاعدة بينات اكسس 2003


الرد
تم الشكر بواسطة:
#2
هل انت متأكد من هذا السطر ؟؟؟
Dim filename As String = IO.Path.GetFileName(Application.StartupPath & "\AUTO.mdb.accdb" & ".tmp")
الرد
تم الشكر بواسطة:
#3
كود :
[size=small] Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click[/size]
[size=small]        Try[/size]
[size=small]            Application.DoEvents()[/size]


[size=small]            'اذا وجد نسخة بهذا الاسم يمسحها[/size]
[size=small]            If IO.File.Exists(Application.StartupPath & "\Compact.mdb") Then[/size]
[size=small]                IO.File.Delete(Application.StartupPath & "\Compact.mdb")[/size]

[size=small]            End If[/size]


[size=small]            ' كود ضغط واصلاح قاعدة البيانات[/size]

[size=small]            Dim Engine[/size]

[size=small]            Engine = CreateObject("JRO.JetEngine")[/size]

[size=small]            Engine.CompactDatabase("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data11.mdb;user id=admin;jet oledb:database password=optimize",[/size]
[size=small]                               "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Compact.mdb;user id=admin;jet oledb:database password=optimize")[/size]


[size=small]            'كود حذف قاعدة البيانات القديمة[/size]

[size=small]            Kill(Application.StartupPath & "\data11.mdb")[/size]

[size=small]            'كود اعادة تسمية قاعدة البيانات التي تم ضغطها واصلاحها[/size]

[size=small]            My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Compact.mdb", "data11.mdb")[/size]
[size=small]            MsgBox("تمت عملية الضغط والإصلاح ")[/size]
[size=small]        Catch ex As Exception[/size]
[size=small]            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)[/size]
[size=small]        End Try[/size]

[size=small]    End Sub[/size]
الرد
تم الشكر بواسطة:
#4
لم ينجح الامر اخي
الرد
تم الشكر بواسطة:
#5
حمل ذا وعدل المعطيات  ولا ارفق مثالك والشباب ماراح يقصرون 

خبرتي قليلة 

http://vb4arb.com/vb/attachment.php?aid=25299
الرد
#6
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال ؟ khaled Mohammed 2 74 , 02:44 AM
آخر رد: mrfodri
  سؤال ؟ khaled Mohammed 3 72 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  سؤال ؟ khaled Mohammed 3 100 15-09-20, 08:42 AM
آخر رد: Anas Mahmoud
  سؤال بخصوص CellBackcolor Selection in Datagridview .net yazanahmed 2 72 13-09-20, 12:07 AM
آخر رد: T 1
  سؤال ؟ khaled Mohammed 9 136 12-09-20, 10:01 AM
آخر رد: Anas Mahmoud
  سؤال ؟ khaled Mohammed 1 87 11-09-20, 09:19 PM
آخر رد: T 1
  سؤال ؟ khaled Mohammed 5 146 11-09-20, 02:34 PM
آخر رد: عبد الهادي بهاب
  سؤال ؟ khaled Mohammed 9 234 08-09-20, 08:39 PM
آخر رد: Anas Mahmoud
  [VB.NET] سؤال ؟ khaled Mohammed 11 208 08-09-20, 04:24 PM
آخر رد: Anas Mahmoud
  سؤال بالداتا جريد فيو اليوم السابع 3 106 07-09-20, 01:34 AM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم