ASP中实现从dbf数据库导出数据到sql表

说明:dbf数据库结构要与sql表一致Cmu中国设计秀
<%Cmu中国设计秀
Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf Cmu中国设计秀
dim Conn_sql ,StrCnn,i,str_dbfCmu中国设计秀
dim dbf_table_name,sql_table_nameCmu中国设计秀
'dbf数据库名称Cmu中国设计秀
dbf_table_name="20005070" Cmu中国设计秀
'sql表名称Cmu中国设计秀
sql_table_name="zjls"Cmu中国设计秀

str_dbf=""Cmu中国设计秀
' 建立dbfConnection 对象Cmu中国设计秀
Set conn_dbf = Server.CreateObject("ADODB.Connection")Cmu中国设计秀
Driver_dbf = "Driver={Microsoft Visual FoxPRo Driver};"Cmu中国设计秀
SourceType_dbf = "SourceType=DBF;"Cmu中国设计秀
'datadbf为dbf数据库所在目录Cmu中国设计秀
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )Cmu中国设计秀

' 调用Open 方法打开数据库Cmu中国设计秀
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbfCmu中国设计秀

Set rd_dbf= Server.CreateObject("ADODB.Recordset")Cmu中国设计秀
' 打开DBF文件，参数二为Connection对象Cmu中国设计秀
rd_dbf.Open "select * from  "&dbf_table_name, conn_dbf, 2, 2Cmu中国设计秀

'建立sqlConnection 对象Cmu中国设计秀
Set conn_sql = Server.CreateObject("ADODB.Connection")Cmu中国设计秀
'Initial Catalog为sql数据库名,Data Source为本机名Cmu中国设计秀
StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=jz30data; Data Source=chaihua"Cmu中国设计秀
Conn_sql.Open StrCnn Cmu中国设计秀
Set CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")Cmu中国设计秀
' 打开DBF文件，参数二为Connection对象Cmu中国设计秀
' www.knowsky.comCmu中国设计秀

rd_dbf.movefirstCmu中国设计秀
Do While Not rd_dbf.Eof Cmu中国设计秀
'构造从DBF数据库读出的字段字符串Cmu中国设计秀
str_dbf=""Cmu中国设计秀
    for i=1 to 38Cmu中国设计秀
    str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"Cmu中国设计秀
    nextCmu中国设计秀
    str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbfCmu中国设计秀
'插入sql表Cmu中国设计秀
CreateDbfRecordset_sql.Open "insert "&sql_table_name&" values("&str_dbf&")", conn_sql,2,2Cmu中国设计秀
rd_dbf.MoveNextCmu中国设计秀
LoopCmu中国设计秀

conn_sql.closeCmu中国设计秀
conn_dbf.closeCmu中国设计秀
response.write("提交成功!")Cmu中国设计秀
%>Cmu中国设计秀