如何从远程SQLServer数据复制到本地访问DB

Try

            

            Dim sDBFile As String = "SERVER PATH"

            Dim sBackUpFile As String = "D:\BACKUP"

            If Not System.IO.Directory.Exists(sBackUpFile) Then

                System.IO.Directory.CreateDirectory(sBackUpFile)

            End If

            '  a = Format$(Now.Date, "ddMMyyyy")

            b = a

            c1 = Now.ToLongTimeString

            d = c1

            c1 = c1.Replace(":", "")

            c1 = c1.Replace(" ", "")

            d = c1

            sBackUpFile &= "\ABC.mdb"

            'First check the file u want to compact exists or not

            If File.Exists(sDBFile) Then

                Dim db As New OleDb.OleDbConnection

                'CompactDatabase has two parameters, creates a copy of compact DB at the Destination path

                FileCopy(sDBFile, sBackUpFile)

            End If

            'restore the original file from the compacted file

            If File.Exists(sBackUpFile) Then

                File.Delete(sBackUpFile)

                File.Copy(sDBFile, sBackUpFile, True)

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        MsgBox("Backup of INTELPAT database was backedUp successfully !" & vbCrLf & "This Backup can bi found in D:\BACKUP\ABC_today'sdate.mdb ", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, )