求助如何把VBA转为VFP - 编程论坛

#2

HUXINGKE2021-10-18 19:03

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

#3

yll1482021-10-19 06:38

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程序如何写？谢谢!

#4

厨师王德榜2021-10-19 09:19

程序代码：

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()

#5

schtg2021-10-19 18:40

学习啦，谢谢！

#6

yll1482021-10-23 03:52

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