ASP中实现从dbf数据库导出数据到sql表-ASP教程,ASP技巧

说明: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(“提交成功!”)
%>