حل مشكلة تصدير ASP لنتائج الاستعلام إلى رقم المعرف في Excel
الكاتب：Eve Cole
وقت التحديث：2009-06-23 17:01:06
في الآونة الأخيرة، عند استخدام asp لتصدير نتائج الاستعلام من قاعدة بيانات Access إلى ملف Excel، حدثت مشكلة لأن أحد الحقول هو رقم المعرف في ملف Excel الذي تم تصديره، أصبحت الأرقام الثلاثة الأخيرة من جميع أرقام المعرفات 0! كم هو محبط! بعد التحقق عبر الإنترنت، اكتشفت أن تنسيق الأرقام الافتراضي لبرنامج Excel هو "عادي"، ويمكنه فقط عرض الإدخال المكون من 11 رقمًا بشكل طبيعي. إذا تجاوز الرقم 11 رقمًا، فسيتم عرضه بالتدوين العلمي.
لحل هذه المشكلة، يمكنني فقط وضع علامة على بيانات الاستعلام كبيانات نصية. ما يلي هو جزء من الكود:
<%
"التصدير إلى التفوق."
مجموعة rs = server.createobject("adodb.recordset")
sqlstr="select * from tabname Where"&searhsql 'بيان الاستعلام
rs.open sqlstr,oconn,1,3
%>
<%set fs = server.createobject("script_ing.filesystemobject")
'حفظ الملفات
اسم الملف = "info.xls"
درجة الحرارة = اسم الملف
filename=request.servervariables("appl_physical_path")&"\"+filename
'حذف ملفات Excel الموجودة
"إذا كان fs.file موجودًا (اسم الملف) إذن."
'fs.deletefile (اسم الملف)
'النهاية إذا
'-إنشاء ملف إكسل
تعيين ملفي = fs.createtextfile(اسم الملف، صحيح)
الخط الخافت، الاستجابة
سترلاين =""
لكل x في حقول rs
strline= strline & x.name & chr(9)
التالي
'اكتب أسماء أعمدة الجدول للتفوق أولاً
myfile.writeline strline
في حين لا rs.eof
سترلاين =""
لكل x في حقول rs
'هنا يتم وضع علامة على البيانات كنوع نص
strline= strline & "="""&x.value &""""& chr(9)
التالي
'اكتب بيانات الجدول للتفوق
myfile.writeline strline
rs.movenext
com.wind
link="<a href=\" & temp & " title=حفظ البيانات في جدول eecel><font color=red><b>تصدير ملف Excel</b></font></a> "
استجابة.اكتب الرابط
تعيين ملفي = لا شيء
تعيين خ = لا شيء
rs. Close
%>
مثال لتنزيل كود المصدر: http://code.knowsky.com/down/12254.html
