那位高手能告诉我怎么从数据库到数据库copy数据

Question

SQL 语句!
数据库类型再具体些?位置等???

Answer 1

那倒很简单了，我要解决的问题是：
把整张表格原封不动copy过去，而不是按照记录数。不知道有没有这样的命令。
不用担心目标数据库，这些表格结构已经在目标数据库建好，只是把数据倒过去就好

Answer 2

INSERT INTO TargetTable (Field1,Field2,Field3)
SELECT Field1,Field2,Field3 FROM SourceTable

Answer 3

不要用bcp命令，因为它在后台运行，没法知道社么时候结束，除非您告诉我

Answer 4

'参阅 T-SQL 帮助: OpenDataSource() 的用法
Dim adoConnection As New ADODB.Connection
adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master"
adoConnection.Execute "INSERT INTO OPENDATASOURCE('SQLOLEDB.1','Data Source=TargetServerName;User ID=MyUID;Password=MyPass').TargetDataBaseName.dbo.TargetTable (Field1,Field2,field3) SELECT Field1,Field2,field3 FROM OPENDATASOURCE('SQLOLEDB.1','Data Source=SourceServerName;User ID=MyUID;Password=MyPass').SourceDataBaseName.dbo.SourceTable" 

Answer 5

dim db as database
db.Execute ("select  * into 新表名  from 源表名;")

Answer 6

dim db as database
db.Execute ("select  * into 新表名  from 源表名;")
通过些条语句可以把源表中的数据原本地拷到新表中来。

Answer 7

我已经写出了程序，比bcp命令非常慢，但是数据却可靠多了

Answer 8

我已经写出了程序，比bcp命令非常慢，但是数据却可靠多了

Answer 9

我已经写出了程序，比bcp命令非常慢，但是数据却可靠多了

Answer 10

我已经写出了程序，比bcp命令非常慢，但是数据却可靠多了

Answer 11

bdgyz(中关村)，可否让我学习一下你的代码，我也在做类似的事情
[email protected]

Answer 12

to vbkiller:能不能将源码发一份过来！[email protected]

Answer 13

On Error GoTo handler
    
    '登录目的计算机
    
    If Trim(txtDestination.Text) = "" Or Trim(txtSource.Text) = "" Then
       
        MsgBox "请输入目的计算机名和登录用户！", vbExclamation, "提示"
        Exit Sub
    Else
        strSrcComputer = Trim(txtSource.Text)
        strDesComputer = Trim(txtDestination.Text)
        strDesUser = "userID"
        strDesPwd = "userPass"
        
        strMsg = "此次操作将从" & strSrcComputer & "向" & strDesComputer _
                 & "传送数据,请确认"
        If MsgBox(strMsg, vbOKCancel, "提示") = vbCancel Then
             Exit Sub
        End If
    End If
         
    ' 用dsn登陆目标计算机
  
    '建造关键字字符串。
    strAttribs = "Description=SQL Server on server  " & strDesComputer _
                 & Chr$(13) & "OemToAnsi=No" _
                 & Chr$(13) & "Network=DBNMPNTW" _
                 & Chr$(13) & "SERVER=" & strDesComputer _
                 & Chr$(13) & "Database=youdatabase" _
                 & Chr$(13) & "Address=\\" & strDesComputer _
                 & "\PIPE\SQL\QUERY"
    
    '建立新的注册的 DSN。
    rdoEngine.rdoRegisterDataSource "JRTJDBDes", _
             "SQL Server", True, strAttribs                'JRTJDBDes
    If gadoCnDes.State <> 1 Then
           gadoCnDes.ConnectionTimeout = 1200
   
           gadoCnDes.Open "DSN=urDSN" & ";UID=" & strDesUser & _
                          ";PWD=" & strDesPwd & ";"
    End If
          
       
     '取所有报表到目标数据库
    
               
                    '删除所有和源数据库报表集定义有关的信息
                    gadoCnDes.Execute "truncate table " & strRpto                  ‘hehe，这儿是playeryuer斑竹的高招，大家要注意看啦
                   strRptSql = "insert " & strRpt & _
                    " SELECT * FROM OPENDATASOURCE('SQLOLEDB','Data Source=" 
              & strSrcComputer & ";User ID=" & strDesUser & ";Password="  &          strDesPwd & _
                     "').yourdatabase.dbo." & strRpt
                   gadoCnDes.CommandTimeout = 1200
                   gadoCnDes.Execute strRptSql
                  
 分两步，第一步：联接数据库
第二步：执行插入语句
一切ok