谁会用dtc进行数据备份与还原了，普通的数据库备份与还原太慢了！

2009-03-08 08:54:32 176 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xingxingxiangrong 墨衍会员 · AI 创作全网分发关注 + 加入社区

华为开发岗暑期实习笔试（2025年4月16日）第一题怀疑测试样例不完整，贪心法不应该能够解决该题。第二题使用0-1BFS解决单源最短路径的问题，往往搭配双端队列实现。第三题是运用动态规划解决最大不重叠子区间个数的问题，难点在于满足3重判断规则，所需数据结构及相关操作较多。阅读详情

rt!

...全文

写一个b站爬虫（思路） part 0 安装 scrapy， requests part 1 信息获取打开番剧索引链接(https://www.bilibili.com/anime/index/) F12控制台，选中NETWORK，来到xhr文件，我们可以找到了存放番剧json的地方阅读详情

xingxingxiangrong

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

cqq_chen 2009-03-11

打赏
举报

不能再回答了，以后很长一段时间内不上csdn了。

老版的csdn没事还可以看看，新版的怎么看怎么不舒服。

其实已经很长时间没有做技术，这两天有空才上来看看，结果一个老朋友也没看到，看来大家都已经不上了，哎!

做技术挺累人的，不过问题解决了，也很有乐趣。

老了，现在应该是年轻人的天下了，加油啊!年青人!!!

cqq_chen 2009-03-11

打赏
举报

我的是Access->sql
这根本就不是问题了。

如果你把这理解成备份，问题就大了。

数据结构，比如索引、主键、check之类的用这种方式是不能copy的。特别是自动ID更是大有问题。

xingxingxiangrong 2009-03-11

打赏
举报

我是sql--〉sql 一个数据库上导出了
不是sql-->access,而且是在一个数据库上导出，相当于备份，不知道我理解的对么

cqq_chen 2009-03-11

打赏
举报

跟踪得到吗？我的和你的很类似，我是用来导入大量Access中的数据的，没有关系。

xingxingxiangrong 2009-03-11

打赏
举报

[Quote=引用 14 楼 cqq_chen 的回复:]
看第5楼的回答，再试一次。
[/Quote]
改了Public Sub Main()运行完还是没动静，到底是为什么了

Private Sub Command1_Click()
Main
End Sub

或是直接设sub main 为启动项都不行

嗷嗷叫的老马 2009-03-11

打赏
举报

汗,楼上很久没出现了.......

cqq_chen 2009-03-10

打赏
举报

看第5楼的回答，再试一次。

cqq_chen 2009-03-10

打赏
举报

Private Sub Main()
你没有修改啊!兄弟仔细一些

xingxingxiangrong 2009-03-10

打赏
举报

运行还没没动静

xingxingxiangrong 2009-03-10

打赏
举报



'---------------------------------------------------------------------------

' Save or execute package

'---------------------------------------------------------------------------



'goPackage.SaveToSQLServer "(local)", "sa", ""

goPackage.Execute

goPackage.Uninitialize

'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line

Set goPackage = Nothing



Set goPackageOld = Nothing



End Sub





'------------- define Task_Sub1 for task Copy Data from test to [te].[dbo].[test] 任务 (Copy Data from test to [te].[dbo].[test] 任务)

Public Sub Task_Sub1(ByVal goPackage As Object)



Dim oTask As DTS.Task

Dim oLookup As DTS.Lookup



Dim oCustomTask1 As DTS.DataPumpTask2

Set oTask = goPackage.Tasks.New("DTSDataPumpTask")

Set oCustomTask1 = oTask.CustomTask



        oCustomTask1.Name = "Copy Data from test to [te].[dbo].[test] 任务"

        oCustomTask1.Description = "Copy Data from test to [te].[dbo].[test] 任务"

        oCustomTask1.SourceConnectionID = 1

        oCustomTask1.SourceSQLStatement = "select [id],[name] from [te].[dbo].[test]"

        oCustomTask1.DestinationConnectionID = 2

        oCustomTask1.DestinationObjectName = "[te].[dbo].[test]"

        oCustomTask1.ProgressRowCount = 1000

        oCustomTask1.MaximumErrorCount = 0

        oCustomTask1.FetchBufferSize = 1

        oCustomTask1.UseFastLoad = True

        oCustomTask1.InsertCommitSize = 0

        oCustomTask1.ExceptionFileColumnDelimiter = "|"

        oCustomTask1.ExceptionFileRowDelimiter = vbCrLf

        oCustomTask1.AllowIdentityInserts = True

        oCustomTask1.FirstRow = 0

        oCustomTask1.LastRow = 0

        oCustomTask1.FastLoadOptions = 2

        oCustomTask1.ExceptionFileOptions = 1

        oCustomTask1.DataPumpOptions = 0

        

Call oCustomTask1_Trans_Sub1(oCustomTask1)

                

                

goPackage.Tasks.Add oTask

Set oCustomTask1 = Nothing

Set oTask = Nothing



End Sub



Public Sub oCustomTask1_Trans_Sub1(ByVal oCustomTask1 As Object)



        Dim oTransformation As DTS.Transformation2

        Dim oTransProps As DTS.Properties

        Dim oColumn As DTS.Column

        Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")

                oTransformation.Name = "DirectCopyXform"

                oTransformation.TransformFlags = 63

                oTransformation.ForceSourceBlobsBuffered = 0

                oTransformation.ForceBlobsInMemory = False

                oTransformation.InMemoryBlobSize = 1048576

                oTransformation.TransformPhases = 4

                

                Set oColumn = oTransformation.SourceColumns.New("id", 1)

                        oColumn.Name = "id"

                        oColumn.Ordinal = 1

                        oColumn.Flags = 16

                        oColumn.Size = 0

                        oColumn.DataType = 3

                        oColumn.Precision = 0

                        oColumn.NumericScale = 0

                        oColumn.Nullable = False

                        

                oTransformation.SourceColumns.Add oColumn

                Set oColumn = Nothing



                Set oColumn = oTransformation.SourceColumns.New("name", 2)

                        oColumn.Name = "name"

                        oColumn.Ordinal = 2

                        oColumn.Flags = 104

                        oColumn.Size = 50

                        oColumn.DataType = 129

                        oColumn.Precision = 0

                        oColumn.NumericScale = 0

                        oColumn.Nullable = True

                        

                oTransformation.SourceColumns.Add oColumn

                Set oColumn = Nothing



                Set oColumn = oTransformation.DestinationColumns.New("id", 1)

                        oColumn.Name = "id"

                        oColumn.Ordinal = 1

                        oColumn.Flags = 16

                        oColumn.Size = 0

                        oColumn.DataType = 3

                        oColumn.Precision = 0

                        oColumn.NumericScale = 0

                        oColumn.Nullable = False

                        

                oTransformation.DestinationColumns.Add oColumn

                Set oColumn = Nothing



                Set oColumn = oTransformation.DestinationColumns.New("name", 2)

                        oColumn.Name = "name"

                        oColumn.Ordinal = 2

                        oColumn.Flags = 104

                        oColumn.Size = 50

                        oColumn.DataType = 129

                        oColumn.Precision = 0

                        oColumn.NumericScale = 0

                        oColumn.Nullable = True

                        

                oTransformation.DestinationColumns.Add oColumn

                Set oColumn = Nothing



        Set oTransProps = oTransformation.TransformServerProperties



                

        Set oTransProps = Nothing



        oCustomTask1.Transformations.Add oTransformation

        Set oTransformation = Nothing



End Sub

xingxingxiangrong 2009-03-10

打赏
举报



Option Explicit

Public goPackageOld As New DTS.Package

Public goPackage As DTS.Package2

Private Sub Main()

        Set goPackage = goPackageOld



        goPackage.Name = "新建包"

        goPackage.Description = "DTS 包描述"

        goPackage.WriteCompletionStatusToNTEventLog = False

        goPackage.FailOnError = False

        goPackage.PackagePriorityClass = 2

        goPackage.MaxConcurrentSteps = 4

        goPackage.LineageOptions = 0

        goPackage.UseTransaction = True

        goPackage.TransactionIsolationLevel = 4096

        goPackage.AutoCommitTransaction = True

        goPackage.RepositoryMetadataOptions = 0

        goPackage.UseOLEDBServiceComponents = True

        goPackage.LogToSQLServer = False

        goPackage.LogServerFlags = 0

        goPackage.FailPackageOnLogFailure = False

        goPackage.ExplicitGlobalVariables = False

        goPackage.PackageType = 0

        



Dim oConnProperty As DTS.OleDBProperty



'---------------------------------------------------------------------------

' create package connection information

'---------------------------------------------------------------------------



Dim oConnection As DTS.Connection2



'------------- a new connection defined below.

'For security purposes, the password is never scripted



Set oConnection = goPackage.Connections.New("SQLOLEDB")



        oConnection.ConnectionProperties("Persist Security Info") = True

        oConnection.ConnectionProperties("User ID") = "sa"

        oConnection.ConnectionProperties("Initial Catalog") = "te"

        oConnection.ConnectionProperties("Data Source") = "(local)"

        oConnection.ConnectionProperties("Application Name") = "DTS 导入/导出向导"

        

        oConnection.Name = "连接1"

        oConnection.ID = 1

        oConnection.Reusable = True

        oConnection.ConnectImmediate = False

        oConnection.DataSource = "(local)"

        oConnection.UserID = "sa"

        oConnection.ConnectionTimeout = 60

        oConnection.Catalog = "te"

        oConnection.UseTrustedConnection = False

        oConnection.UseDSL = False

        

        'If you have a password for this connection, please uncomment and add your password below.

        'oConnection.Password = "<put the password here>"



goPackage.Connections.Add oConnection

Set oConnection = Nothing



'------------- a new connection defined below.

'For security purposes, the password is never scripted



Set oConnection = goPackage.Connections.New("SQLOLEDB")



        oConnection.ConnectionProperties("Persist Security Info") = True

        oConnection.ConnectionProperties("User ID") = "sa"

        oConnection.ConnectionProperties("Initial Catalog") = "te"

        oConnection.ConnectionProperties("Data Source") = "(local)"

        oConnection.ConnectionProperties("Application Name") = "DTS 导入/导出向导"

        

        oConnection.Name = "连接2"

        oConnection.ID = 2

        oConnection.Reusable = True

        oConnection.ConnectImmediate = False

        oConnection.DataSource = "(local)"

        oConnection.UserID = "sa"

        oConnection.ConnectionTimeout = 60

        oConnection.Catalog = "te"

        oConnection.UseTrustedConnection = False

        oConnection.UseDSL = False

        

        'If you have a password for this connection, please uncomment and add your password below.

        'oConnection.Password = "<put the password here>"



goPackage.Connections.Add oConnection

Set oConnection = Nothing



'---------------------------------------------------------------------------

' create package steps information

'---------------------------------------------------------------------------



Dim oStep As DTS.Step2

Dim oPrecConstraint As DTS.PrecedenceConstraint



'------------- a new step defined below



Set oStep = goPackage.Steps.New



        oStep.Name = "Copy Data from test to [te].[dbo].[test] 步骤"

        oStep.Description = "Copy Data from test to [te].[dbo].[test] 步骤"

        oStep.ExecutionStatus = 1

        oStep.TaskName = "Copy Data from test to [te].[dbo].[test] 任务"

        oStep.CommitSuccess = False

        oStep.RollbackFailure = False

        oStep.ScriptLanguage = "VBScript"

        oStep.AddGlobalVariables = True

        oStep.RelativePriority = 3

        oStep.CloseConnection = False

        oStep.ExecuteInMainThread = False

        oStep.IsPackageDSORowset = False

        oStep.JoinTransactionIfPresent = False

        oStep.DisableStep = False

        oStep.FailPackageOnError = False

        

goPackage.Steps.Add oStep

Set oStep = Nothing



'---------------------------------------------------------------------------

' create package tasks information

'---------------------------------------------------------------------------



'------------- call Task_Sub1 for task Copy Data from test to [te].[dbo].[test] 任务 (Copy Data from test to [te].[dbo].[test] 任务)

Call Task_Sub1(goPackage)