Catatan: Struktur database dbf harus konsisten dengan tabel sql
<%
Redupkan conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
redupkan Conn_sql,StrCnn,i,str_dbf
redupkan dbf_table_name,sql_table_name
'nama basis data dbf
dbf_table_name="20005070"
'nama tabel sql
sql_table_name="zjls"
str_dbf=""
'Buat objek dbfConnection
Setel conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Pengemudi={Pengandar Microsoft Visual FoxPro};"
SourceType_dbf = "SourceType=DBF;"
'datadbf adalah direktori tempat database dbf berada
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
' Memanggil metode Open untuk membuka database
conn_dbf.Buka Driver_dbf & SourceType_dbf & DBPath_dbf
Setel rd_dbf= Server.CreateObject("ADODB.Recordset")
'Buka file DBF, parameter kedua adalah objek Connection
rd_dbf.Buka "pilih * dari "&dbf_table_name, conn_dbf, 2, 2
'Buat objek sqlConnection
Setel conn_sql = Server.CreateObject("ADODB.Connection")
'Katalog Awal adalah nama database sql, Sumber Data adalah nama lokal
StrCnn = "Penyedia=sqlledb; ID Pengguna=sa; Kata Sandi=; Katalog Awal=jz30data; Sumber Data=chaihua"
Sambungan_sql.OpenStrCnn
Setel CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Buka file DBF, parameter kedua adalah objek Connection
' www.downcodes.com
rd_dbf.movefirst
Lakukan Saat Tidak rd_dbf.Eof
'Bangun string bidang yang dibaca dari database DBF
str_dbf=""
untuk i=1 sampai 38
str_dbf=str_dbf&",'"&rd_dbf.bidang(i)&"'"
Berikutnya
str_dbf="'"&rd_dbf.bidang(0)&"'"&str_dbf
'Masukkan ke dalam tabel sql
CreateDbfRecordset_sql.Buka "masukkan nilai "&sql_table_name&" ("&str_dbf&")", conn_sql,2,2
rd_dbf.MoveNext
Ulangi
conn_sql.close
conn_dbf.close
respon.write("Pengajuan berhasil!")
%>
Penulis: Chai Hua QQ:57302017