Dim Cnn As Object, cnnschema As Object, constring$, Sql$
Set Cnn = CreateObject("adodb.connection")
constring = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\dgch_2019.mdb"
Cnn.Open constring
Set cnnschema = Cnn.OpenSchema(20) '已连接数据库的结构
While Not cnnschema.EOF
    If cnnschema!TABLE_TYPE = "TABLE" And Not cnnschema!table_name Like "*~TMP*" Then
        Sql = "select * into [odbc;driver={SQL Server};server=localhost;database=DGCH_2021;uid=sa;pwd=Sa123456].[" & _
            cnnschema!table_name & "] from [" & cnnschema!table_name & "]"
        Cnn.Execute Sql
    End If
    cnnschema.MoveNext
Wend
Cnn.CloseIYF　

转是没转法转的,只能用VPF写一段代码,把数据转入

While Not cnnschema.EOF
    If cnnschema!TABLE_TYPE = "TABLE" And Not cnnschema!table_name Like "*~TMP*" Then
        Sql = "select * into [odbc;driver={SQL Server};server=localhost;database=DGCH_2021;uid=sa;pwd=Sa123456].[" & _
            cnnschema!table_name & "] from [" & cnnschema!table_name & "]"
        Cnn.Execute Sql
    End If
    cnnschema.MoveNext
Wend
请教各位这个循环在VFP程序如何写？谢谢!

LOCAL  Cnn As Object, cnnschema As Object, constring, Sql
Cnn = CreateObject("adodb.connection")
cPath = "C:\XIDE"  && 原来的ThisWorkbook.Path ,这里假定是个常量.
constring = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" + cPath + "\dgch_2019.mdb"
Cnn.Open(constring)
cnnschema = Cnn.OpenSchema(20) && 已连接数据库的结构
DO While Not cnnschema.EOF()
    If CNNSCHEMA.Fields("TABLE_TYPE").Value = "TABLE" And Not LIKE( "*~TMP*" ,CNNSCHEMA.Fields("TABLE_NAME").Value) Then
        Sql = "select * into [odbc;driver={SQL Server};server=localhost;database=DGCH_2021;uid=sa;pwd=Sa123456].[" + ;
            CNNSCHEMA.Fields("TABLE_NAME").Value + "] from [" + CNNSCHEMA.Fields("TABLE_NAME").Value + "]"
        Cnn.Execute( Sql)  &&  这里只负责帮你拼出执行语句,不保证一定能执行成功.

    EndIf

    cnnschema.MoveNext()
ENDDO 
Cnn.Close()

学习啦，谢谢！

非常感谢版主厨师王德榜，谢谢！