استخدم ASP لتصدير البيانات من SQL Server إلى ملفات Access أو Excel
الكاتب：Eve Cole
وقت التحديث：2009-06-25 17:44:33
منذ بعض الوقت، قمت بنشر مثل هذه المشكلة عبر الإنترنت، والآن تم حلها وسوف أشارك الكود الآن.
نأمل أن يساعد هذا عشاق IntranetMIS
الطريقة في الواقع بسيطة جدًا: تحتاج إلى دمج اتصال وصول في اتصال SQL Server، ثم كتابته واحدًا تلو الآخر.
<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat
قاعدة = بطانة "
sql = "اختر * من scjh"
تعيين rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Connection")
المعلمة = "برنامج التشغيل = {برنامج تشغيل Microsoft Access (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("حذف من scjh")%>
<%افعل بينما لا rs.eof%>
<%dim ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh
ktdh=rs("ktdh")
scph=rs("scph")
scts=rs("scts")
jhqtsj=rs("jhqtsj")
yhxdsj=rs("yhxdsj")
yxj=rs("yxj")
rwbh=rs("rwbh")
%>
<%sql1="أدخل في scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)
قيم
('"& كتده &"','" & scph & "'" & scts
& ",'"&jhqtsj&"','"&yhxdsj&"',&
yxj &"،" & rwbh &")"
conn1.execute (sql1)٪>
<%rs.movenext
حلقة
conn1. Close
conn.Close%>
<%response.redirect "/download/scjh.mdb"%>
