Selesaikan masalah ASP mengekspor hasil query ke nomor ID di Excel
Penulis:Eve Cole
Waktu Pembaruan:2009-06-23 17:01:06
Baru-baru ini, ketika menggunakan asp untuk mengekspor hasil query database akses ke file excel, terjadi masalah karena salah satu field adalah nomor ID. Pada file excel yang diekspor, tiga digit terakhir dari semua nomor ID menjadi 0! Sungguh menyedihkan! Setelah saya cek online, saya menemukan bahwa format angka default Excel adalah "normal", yang biasanya hanya dapat menampilkan input 11 digit.
Untuk mengatasi masalah ini, saya hanya dapat menandai data kueri sebagai data teks. Berikut ini adalah bagian dari kodenya:
<%
'Ekspor ke excel
set rs = server.createobject("adodb.recordset")
sqlstr="pilih * dari nama tab di mana"&searhsql 'pernyataan kueri
rs.buka sqlstr,oconn,1,3
%>
<%set fs = server.createobject("script_ing.filesystemobject")
'Simpan file
nama file="info.xls"
temp=nama file
nama file=request.servervariables("appl_physical_path")&"\"+nama file
'Hapus file excel yang ada
'jika fs.file ada (nama file) maka
'fs.deletefile(nama file)
'berakhir jika
'-Buat file excel
setel file saya = fs.createtextfile(nama file,benar)
strline redup, responstr
strline=""
untuk setiap x di rs.fields
strline= strline & x.nama & chr(9)
Berikutnya
'Tulis dulu nama kolom tabelnya ke excel
myfile.writeline strline
sementara bukan rs.eof
strline=""
untuk setiap x di rs.fields
'Di sini data ditandai sebagai tipe teks
strline= strline & "="""&x.nilai &""""& chr(9)
Berikutnya
'Tulis data tabel ke excel
myfile.writeline strline
rs.movenext
pergi ke
link="<a href=\" & temp & " title=Simpan data ke tabel eecel><font color=red><b>Ekspor file excel</b></font></a> "
respon.tulis tautan
atur file saya = tidak ada
atur fs=tidak ada
rs.tutup
%>
Contoh unduhan kode sumber: http://code.knowsky.com/down/12254.html