说明:dbf数据库结构要与sql表一致
<%
dim conndbf_dbf,driver_dbf,sourcetype_dbf,dbpath_dbf
dim conn_sql ,strcnn,i,str_dbf
dim dbf_table_name,sql_table_name
'dbf数据库名称
dbf_table_name="20005070"
'sql表名称
sql_table_name="zjls"
str_dbf=""
' 建立dbfconnection 对象
set conn_dbf = server.createobject("adodb.connection")
driver_dbf = "driver={microsoft visual foxpro driver};"
sourcetype_dbf = "sourcetype=dbf;"
'datadbf为dbf数据库所在目录
dbpath_dbf = "sourcedb=" & server.mappath( "datadbf" )
' 调用open 方法打开数据库
conn_dbf.open driver_dbf & sourcetype_dbf & dbpath_dbf
set rd_dbf= server.createobject("adodb.recordset")
' 打开dbf文件,参数二为connection对象
rd_dbf.open "select * from "&dbf_table_name, conn_dbf, 2, 2
'建立sqlconnection 对象
set conn_sql = server.createobject("adodb.connection")
'initial catalog为sql数据库名,data source为本机名
strcnn = "provider=sqloledb; user id=sa; password=; initial catalog=jz30data; data source=chaihua"
conn_sql.open strcnn
set createdbfrecordset_sql= server.createobject("adodb.recordset")
' 打开dbf文件,参数二为connection对象
' www.knowsky.com
rd_dbf.movefirst
do while not rd_dbf.eof
'构造从dbf数据库读出的字段字符串
str_dbf=""
for i=1 to 38
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
next
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'插入sql表
createdbfrecordset_sql.open "insert "&sql_table_name&" values("&str_dbf&")", conn_sql,2,2
rd_dbf.movenext
loop
conn_sql.close
conn_dbf.close
response.write("提交成功!")
%>
作者:柴华 qq:57302017
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器