Nota: la estructura de la base de datos dbf debe ser coherente con la tabla sql
<%
Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
tenue Conn_sql,StrCnn,i,str_dbf
dim dbf_table_name,sql_table_name
'nombre de la base de datos dbf
dbf_table_name="20005070"
'nombre de la tabla sql
sql_table_name="zjls"
str_dbf=""
'Crear objeto dbfConnection
Establecer conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Controlador={Controlador Microsoft Visual FoxPro};"
SourceType_dbf = "SourceType=DBF;"
'datadbf es el directorio donde se encuentra la base de datos dbf
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf")
' Llame al método Open para abrir la base de datos
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
Establecer rd_dbf= Server.CreateObject("ADODB.Recordset")
'Abra el archivo DBF, el segundo parámetro es el objeto Conexión
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
'Crear objeto sqlConnection
Establecer conn_sql = Server.CreateObject("ADODB.Connection")
'El catálogo inicial es el nombre de la base de datos SQL, la fuente de datos es el nombre local
StrCnn = "Proveedor=sqloledb; ID de usuario=sa; Contraseña=; Catálogo inicial=jz30data; Fuente de datos=chaihua"
Conn_sql.OpenStrCnn
Establecer CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Abra el archivo DBF, el segundo parámetro es el objeto Conexión
' www.downcodes.com
rd_dbf.movefirst
Hacer mientras no rd_dbf.Eof
'Construye la cadena de campo leída de la base de datos 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
'Insertar en tabla sql
CreateDbfRecordset_sql.Open "insertar valores "&sql_table_name&"("&str_dbf&")", conn_sql,2,2
rd_dbf.MoverSiguiente
Bucle
conn_sql.cerrar
conn_dbf.cerrar
respuesta.write ("¡Envío exitoso!")
%>
Autor: Chai Hua QQ:57302017