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

xingxingxiangrong 2009-03-08 08:54:32
rt!

...全文
170 20 打赏 收藏 转发到动态 举报
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
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)
cqq_chen 2009-03-10
  • 打赏
  • 举报
 回复
把你的bas代码copy看看!
xingxingxiangrong 2009-03-10
  • 打赏
  • 举报
 回复
是么，那你给我打包一个工程发到我的邮箱 l7698082@163.com ，谢谢了
cqq_chen 2009-03-10
  • 打赏
  • 举报
 回复
怪!我试过，都可行!!
xingxingxiangrong 2009-03-10
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 cqq_chen 的回复:]
Private Sub Main()
-->
Public Sub Main()

在from中调用 main就行，试看看。
[/Quote]
试过了，没反应，也不提示错误
cqq_chen 2009-03-09
  • 打赏
  • 举报
 回复
Private Sub Main()
-->
Public Sub Main()

在from中调用 main就行，试看看。
xingxingxiangrong 2009-03-09
  • 打赏
  • 举报
 回复
引用了，但生成的bas文件运行没没反应！
cqq_chen 2009-03-09
  • 打赏
  • 举报
 回复
看明白引用了什么文件，把包导入到工程中就可以使用了。
xingxingxiangrong 2009-03-08
  • 打赏
  • 举报
 回复
UP
xingxingxiangrong 2009-03-08
  • 打赏
  • 举报
 回复
我拿sql导出一个bas文件，但不知道怎么用了
Synology HDD数据库终极指南：打破硬盘兼容性限制的完整教程
本教程详解Synology HDD db脚本的安装、配置与高级使用，支持SATA/SAS/SSD/NVMe硬盘添加至群晖兼容数据库，适配DSM 6.x至7.4及2025系列新机型。涵盖自动化任务设置、供应商ID自定义、SSD TRIM启用、IronWolf健康监控更新，并提供故障排查与安全备份策略。
DTCC 2020 | 阿里云程实：云原生时代的数据库管理
随着云原生技术发展，数据库进入云原生时代，企业面临数据库管理难题。本文介绍了云原生数据库管理体系，涵盖管理、迁移和备份技术。还阐述了阿里云数据库工具体系及三种解决方案，包括整体迁移上云、云下数据云上管理、云下生产数据与云上二级数据结合。
【直击DTCC】孟小峰：大数据管理系统的发展与机遇
中国人民大学信息学院教授孟小峰在中国数据库技术大会上发表了《大数据管理系统的发展与机遇》的主题演讲，探讨了大数据管理理论、方法及系统和技术，并提出了大数据管理的基本问题和发展趋势。
【管理科学】第六十三篇 企业管理者招聘与人才博弈战略02
编号类型领域问题问题的数学分析（含逐步推理与数值范围）方法/手段/步骤/流程/话术/策略/行为/时序的所有内容和步骤（含数学表达式与数值分析）时序数学表达式及周期行动的数学表达式（含数值范围）关联知识和法律法规651组织博弈成本控制如何在保证质量的前提下有效控制成本？逐步推理： 1. 成本控制模型：成本每降低10%，利润可提升15%~25%。但过度降本可能影响质量和员工士气。 2. 控制效果：有效的成本控制可使利润率提升5%~10%。 3. 法律风险：需遵守劳动法和产品质量法。步骤与数学表
微信客服聊天界面仿制（聊天记录保存在本地数据库）
源码直接下载地址： https://pan.quark.cn/s/a4b39357ea24 在信息技术领域中，开发一个模仿微信客服交流平台的界面是一项普遍的需求，尤其是在构建企业级沟通工具时。这个名为"仿微信客服交流界面（具备聊天信息本地数据库存储功能）"的项目，致力于为用户创造一个类似于微信的互动体验，并且已经完成了聊天信息在本地数据库中的保存功能，以此保障信息的安全性和可恢复性。另外，项目还包含了网络传输的代码，旨在帮助开发者更好地理解和将此功能整合进自己的应用程序中。 现在让我们深入探究聊天界面的构建过程。微信客服交流界面通常由以下几个核心组件构成：用户个人照片、昵称展示、消息展示气泡、时间标记、输入区域以及发送控制键。这些组件需要经过细致的排布，以确保界面既清晰又便于使用。在用户界面设计方面，一般会采用 Material Design 或者 iOS 的 Human Interface Guidelines 来设计符合平台标准的界面。源代码文件 ChatUIDemo 可能包含了这一界面实现的代码，开发者可以通过查看和调整这个文件来个性化自己的聊天界面。 聊天信息在本地数据库中的存储是一项核心功能。在该项目中，或许选用了SQLite作为轻量级数据库，因为它易于集成，支持事务处理，适合存储结构化的数据，例如用户标识符、接收者标识符、消息内容、发送时刻等。通过运用SQL指令，能够执行数据的增加、删除、修改和查询操作，从而确保聊天记录的完整性和一致性。开发者可能需要关注如何将新接收到的消息添加到数据库中，以及如何从数据库中获取历史记录并在界面上进行展示。 在网络传输方面，可能通过HTTP或HTTPS协议来实现，并且使用了诸如AFNetworking（iOS）或O...
VB基础类

7,787

社区成员

197,583

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章