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

 1   
 2Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf   
 3dim Conn_sql ,StrCnn,i,str_dbf   
 4dim dbf_table_name,sql_table_name   
 5'dbf数据库名称   
 6dbf_table_name="20005070"   
 7'sql表名称   
 8sql_table_name="zjls" 
 9
10str_dbf=""   
11' 建立dbfConnection 对象   
12Set conn_dbf = Server.CreateObject("ADODB.Connection")   
13Driver_dbf = "Driver={Microsoft Visual FoxPro Driver};"   
14SourceType_dbf = "SourceType=DBF;"   
15'datadbf为dbf数据库所在目录   
16DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" ) 
17
18' 调用Open 方法打开数据库   
19conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf 
20
21Set rd_dbf= Server.CreateObject("ADODB.Recordset")   
22' 打开DBF文件，参数二为Connection对象   
23rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2 
24
25'建立sqlConnection 对象   
26Set conn_sql = Server.CreateObject("ADODB.Connection")   
27'Initial Catalog为sql数据库名,Data Source为本机名   
28StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=jz30data; Data Source=chaihua"   
29Conn_sql.Open StrCnn   
30Set CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")   
31' 打开DBF文件，参数二为Connection对象   
32' www.knowsky.com 
33
34rd_dbf.movefirst   
35Do While Not rd_dbf.Eof   
36'构造从DBF数据库读出的字段字符串   
37str_dbf=""   
38for i=1 to 38   
39str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"   
40next   
41str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf   
42'插入sql表   
43CreateDbfRecordset_sql.Open "insert "&sql_table_name&" values("&str_dbf&")", conn_sql,2,2   
44rd_dbf.MoveNext   
45Loop 
46
47conn_sql.close   
48conn_dbf.close   
49response.write("提交成功!")