หมายเหตุ: โครงสร้างฐานข้อมูล dbf จะต้องสอดคล้องกับตาราง sql
-
หรี่ conndbf_dbf, Driver_dbf, SourceType_dbf, DBPath_dbf
สลัว Conn_sql,StrCnn,i,str_dbf
สลัว dbf_table_name, sql_table_name
'ชื่อฐานข้อมูล dbf
dbf_table_name="20005070"
'ชื่อตาราง sql'
sql_table_name = "zjls"
str_dbf = ""
'สร้างวัตถุ dbfConnection
ตั้งค่า conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "ไดรเวอร์ = {ไดรเวอร์ Microsoft Visual FoxPro};"
SourceType_dbf = "SourceType=DBF;"
'datadbf คือไดเร็กทอรีที่มีฐานข้อมูล dbf อยู่
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
' เรียกเมธอด Open เพื่อเปิดฐานข้อมูล
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
ตั้ง rd_dbf= Server.CreateObject ("ADODB.Recordset")
'เปิดไฟล์ DBF พารามิเตอร์ที่สองคือวัตถุการเชื่อมต่อ
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
'สร้างวัตถุ sqlConnection
ตั้งค่า conn_sql = Server.CreateObject("ADODB.Connection")
'แคตตาล็อกเริ่มต้นคือชื่อฐานข้อมูล sql แหล่งข้อมูลคือชื่อท้องถิ่น
StrCnn = "Provider=sqloledb; ID ผู้ใช้=sa; รหัสผ่าน=; แค็ตตาล็อกเริ่มต้น=jz30data; แหล่งข้อมูล=chaihua"
Conn_sql.OpenStrCnn
ตั้งค่า CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'เปิดไฟล์ DBF พารามิเตอร์ที่สองคือวัตถุการเชื่อมต่อ
' www.downcodes.com
rd_dbf.movefirst
ทำในขณะที่ไม่ใช่ rd_dbf.Eof
'สร้างสตริงฟิลด์ที่อ่านจากฐานข้อมูล DBF
str_dbf=""
สำหรับ i=1 ถึง 38
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
ต่อไป
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'แทรกลงในตาราง sql'
CreateDbfRecordset_sql.Open "insert "&sql_table_name&" ค่า("&str_dbf&")", conn_sql,2,2
rd_dbf.MoveNext
วนซ้ำ
conn_sql.close
conn_dbf.ปิด
response.write("ส่งสำเร็จ!")
%>
ผู้แต่ง: ไชยฮัว QQ:57302017