ملاحظة: يجب أن تكون بنية قاعدة بيانات 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
Set 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 = "الموفر=sqloledb؛ معرف المستخدم=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 = ""
لأني = 1 إلى 38
str_dbf=str_dbf&"،'"&rd_dbf.fields(i)&"'"
التالي
str_dbf = "'"&rd_dbf.fields(0)&"'"&str_dbf
"أدخل في جدول SQL
CreateDbfRecordset_sql.Open "إدراج قيم "&sql_table_name&"("&str_dbf&")"، conn_sql,2,2
rd_dbf.MoveNext
حلقة
conn_sql.
إغلاق
conn_dbf.إغلاق
Response.write("تم الإرسال بنجاح!")
%>
المؤلف: تشاي هوا QQ:57302017