Nota: A estrutura do banco de dados dbf deve ser consistente com a tabela sql
<%
Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
dim Conn_sql,StrCnn,i,str_dbf
dim nome_tabela_dbf,nome_tabela_sql
'nome do banco de dados dbf
dbf_table_name="20005070"
'nome da tabela SQL
sql_table_name="zjls"
str_dbf=""
'Cria objeto dbfConnection
Definir conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Driver={Driver Microsoft Visual FoxPro};"
SourceType_dbf = "SourceType=DBF;"
'datadbf é o diretório onde o banco de dados dbf está localizado
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
' Chama o método Open para abrir o banco de dados
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
Definir rd_dbf= Server.CreateObject("ADODB.Recordset")
'Abra o arquivo DBF, o segundo parâmetro é o objeto Connection
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
'Criar objeto sqlConnection
Definir conn_sql = Server.CreateObject("ADODB.Connection")
'Catálogo inicial é o nome do banco de dados sql, Fonte de dados é o nome local
StrCnn = "Provedor=sqloledb; ID do usuário=sa; Senha=; Catálogo inicial=jz30data; Fonte de dados=chaihua"
Conn_sql.OpenStrCnn
Definir CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Abra o arquivo DBF, o segundo parâmetro é o objeto Connection
' www.downcodes.com
rd_dbf.movefirst
Faça enquanto não rd_dbf.Eof
'Constrói a string do campo lida do banco de dados DBF
str_dbf=""
para i = 1 a 38
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
próximo
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'Inserir na tabela SQL
CreateDbfRecordset_sql.Open "insira valores de "&sql_table_name&"("&str_dbf&")", conn_sql,2,2
rd_dbf.MoveNext
Loop
conn_sql.close
conn_dbf.fechar
response.write("Envio bem-sucedido!")
%>
Autor: Chai Hua QQ:57302017