zoukankan      html  css  js  c++  java
  • 使用VB将SQL SERVER 的脚本导出

    '调用方法: TableExport "表名","服务器名","用户名","密码","数据库名"

    Public Sub TableExport(strTableNameSrc As String, _
    strSvrNameSrc As String, _
    strUserNameSrc As String, _
    strUserPwdSrc As String, _
    strDbNameSrc As String)

    Dim strSql As String, nSqlDmoOption
    Dim oSqlDmo As New SQLDMO.Application
    Dim oSvrSrc As New SQLDMO.SQLServer2
    Dim oTbSrc As New SQLDMO.Table2
    Dim oBulkCpy As New SQLDMO.BulkCopy2
    Dim oDmo As SQLDMO.Application

    Set oDmo = New SQLDMO.Application
    Set oSvrSrc = New SQLDMO.SQLServer2

    '参数:SQL Server Name,User ID,Password
    oSvrSrc.Connect strSvrNameSrc, strUserNameSrc, strUserPwdSrc '源服务器


    Set oTbSrc = oSvrSrc.Databases(strDbNameSrc).Tables(strTableNameSrc) '源服务器数据库db1中的表tb1

    '在目的服务器的数据库中建新的表
    nSqlDmoOption = SQLDMOScript_Default + _
    SQLDMOScript_DRI_All + _
    SQLDMOScript_Drops + _
    SQLDMOScript_Indexes + _
    SQLDMOScript_OwnerQualify + _
    SQLDMOScript_Triggers

    'strSQL生成结构脚本
    strSql = oTbSrc.Script(nSqlDmoOption, , , SQLDMOScript2_Default)


    Set oBulkCpy = New SQLDMO.BulkCopy2
    oBulkCpy.UseBulkCopyOption = True
    oBulkCpy.DataFilePath = "c:\temp.txt"

    oTbSrc.ExportData oBulkCpy '导出数据

    Set oTbSrc = Nothing
    Set oBulkCpy = Nothing
    oSvrSrc.Disconnect
    Set oSvrSrc = Nothing
    Set oDmo = Nothing
    End Sub
  • 相关阅读:
    Python程序执行时的不同电脑路径不同问题
    Python写的计算器程序(主要目的在于熟悉下正则表达式)
    占位符
    selenium自动化测试浏览器驱动安装(属于转载文章)
    python的pip升级问题
    索引
    视图
    事务
    引擎
    约束
  • 原文地址:https://www.cnblogs.com/szyicol/p/630421.html
Copyright © 2011-2022 走看看