عمل نسخة لقاعدة sql server من خلال اكسس

[tiger wanted]

هل يمكن عمليا عمل bakup لقاعدة sqlserver من خلال واجهة اكسس لانه لوكان ذلك ممكنا فأعتقد ان هذا يضيف رصيد كبير من الاهتمام لعشاق اكسس وفى انتظار ردكم الكريم 

وجزاكم الله كل خير

[SEMO.Pa3x]

10 ساعات مضت, tiger wanted said:

هل يمكن عمليا عمل bakup لقاعدة sqlserver من خلال واجهة اكسس لانه لوكان ذلك ممكنا فأعتقد ان هذا يضيف رصيد كبير من الاهتمام لعشاق اكسس وفى انتظار ردكم الكريم 

وجزاكم الله كل خير

لا اضن ان ذلك ممكن من خلال الأكسس.

يمكنك استعمال لغة اخرى لعمل الباك اب مثلاً انا هنا استعملت لغة Visual Studio .NET

Using con = New SqlConnection("Data Source=.\SQLEXPRESS;User id=sa;password=admin;")

    con.Open()

    Dim str As String = "backup database OFFICEMANAGEMENT to disk='C:\TMP\OM.bak' WITH INIT"

    Using cmd = New SqlCommand(str, con)
        cmd.ExecuteNonQuery()
    End Using

    con.Close()

End Using

ستقوم بعمل تطبيق تمرر له براميتر ( CommandLine ) يتضمن معلومات الاتصال بالسيرفر ومسار حفظ الباك اب

وهو بدوره سيقوم بهذه العملية.

مودتي 

تم تعديل مايو 23, 2021 بواسطه SEMO.Pa3x

[tiger wanted]

برجاء التوضيح ان امكن 

 

[SEMO.Pa3x]

المثال مكتوب بالأكسس + VB.NET

أولا:

تحتاج 3 براميترات...

الأول: مفتاح الإتصال بقاعدة البيانات SQLServer

ثانياً: اسم الباك أب لقاعدة البيانات

ثالثاً: مسار حفظ الباك أب

Option Compare Database

Private Sub Backup_Click()

    Dim BAK_File As String
    Dim SQLConnectionString As String
    Dim DatabaseBackupName As String
    Dim DatabaseBackupPath As String
    Dim Parameters As String

    BAK_File = CurrentProject.Path + "\BAK.exe"
    SQLConnectionString = "Data Source=.\SEMICOLONSQL;Persist Security Info=True;Database=AlraedDb;User id=sa;password=123@a;"
    DatabaseBackupName = "Backup"
    DatabaseBackupPath = "E:"
    DatabaseName = "AlraedDb"
    
    Parameters = SQLConnectionString & "," & DatabaseBackupName & "," & DatabaseBackupPath & "\" & "," & DatabaseName
    
    Call Shell(BAK_File & " " & """" & Parameters & """", vbNormalFocus)
    
End Sub

 

سورس ملف الـ VB.NET

 

Imports System.Data.SqlClient

Module BAK

    Sub Main()

        'c0ded bY: SEMO.Pa3x
        'date: 23-5-2021 : 05:01 PM

        For Each arg As String In My.Application.CommandLineArgs

            Dim argArray() As String = Split(arg, ",")

            'vars to split args
            Dim SQLConnectionString As String = argArray(0)
            Dim DatabaseBackupName As String = argArray(1) & " " & DateTime.Now.ToString("yyyy-MM-dd-HH-mm tt")
            Dim DatabaseBackupPath As String = argArray(2)
            Dim DatabaseName As String = argArray(3)

            Using con = New SqlConnection(SQLConnectionString)

                'open connection
                con.Open()

                'check connection is open ?
                If con.State = ConnectionState.Open Then
                    'check connection is open ?
                    Dim str As String = "backup database " & DatabaseName & " to disk='" & DatabaseBackupPath & DatabaseBackupName & ".BAK' WITH INIT"
                    Using cmd = New SqlCommand(str, con)
                        cmd.ExecuteNonQuery()
                    End Using
                    con.Close()
                End If

            End Using

        Next

    End Sub

End Module

 

مدة العمل ( 3 ساعات ) وأنا أكتب الأكواد 

 

Backup_By_SEMO_Pa3x.rar

تم تعديل مايو 23, 2021 بواسطه SEMO.Pa3x
تعديل خطأ برمجي

[tiger wanted]

مجهود رائع اخى الكريم وسوف اقوى بالتجربة وبارك الله فيك وجعلك دائما مقصد لمن يريدون المساعدة