ASP中實(shí)現(xiàn)從dbf數(shù)據(jù)庫導(dǎo)出數(shù)據(jù)到sql表_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP實(shí)現(xiàn)在提交表單到數(shù)據(jù)庫的同時(shí)發(fā)郵件通知
以下為引用的內(nèi)容： <% dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From ="xxx@h

說明:dbf數(shù)據(jù)庫結(jié)構(gòu)要與sql表一致

以下為引用的內(nèi)容：

<%
Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
dim Conn_sql ,StrCnn,i,str_dbf
dim dbf_table_name,sql_table_name
'dbf數(shù)據(jù)庫名稱
dbf_table_name="20005070"
'sql表名稱
sql_table_name="zjls"

str_dbf=""
' 建立dbfConnection 對(duì)象
Set conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Driver={Microsoft Visual FoxPro Driver};"
SourceType_dbf = "SourceType=DBF;"
'datadbf為dbf數(shù)據(jù)庫所在目錄
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )

' 調(diào)用Open 方法打開數(shù)據(jù)庫
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf

Set rd_dbf= Server.CreateObject("ADODB.Recordset")
' 打開DBF文件，參數(shù)二為Connection對(duì)象
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2

'建立sqlConnection 對(duì)象
Set conn_sql = Server.CreateObject("ADODB.Connection")
'Initial Catalog為sql數(shù)據(jù)庫名,Data Source為本機(jī)名
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文件，參數(shù)二為Connection對(duì)象
' www.hl5o.cn

rd_dbf.movefirst
Do While Not rd_dbf.Eof
'構(gòu)造從DBF數(shù)據(jù)庫讀出的字段字符串
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("提交成功!")
%>