Database'den excel'e bilgi aktarma

Rick · 04-09-2006, 05:14 PM

Database'den excel'e bilgi aktarma

Açıklama :
Database'den excel'e bilgi aktarma

Kod:

<%@ Language=VBScript %> 
<% 
'sql: kısmına çift tırnak içinde direk sql stringi yaz 
'cnnl: database bağlantısı 
Function exporttoexcel(FileName,sql,cnnl) 
dim iCols 
dim i 
set rs=server.CreateObject("ADODB.Recordset") 
set rs=cnnl.Execute (sql) 
iCols = rs.Fields.Count**** 
session("FileName")=cstr(FileName)**
set fso = createobject("scripting.filesystemobject") 
Set folder = fso.GetFolder("c:Inetpubwwwroottekintranetdokumanexcel") 
Set act = folder.CreateTextFile(""&FileName& "" &".xls", true) 
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">" 
act.WriteLine "<head>" 
act.WriteLine "<!--[if gte mso 9]><xml>" 
act.WriteLine "<x:ExcelWorkbook>" 
act.WriteLine "<x:ExcelWorksheets>" 
act.WriteLine "<x:ExcelWorksheet>" 
act.WriteLine "<x:Name>"& "Sheet1" &"</x:Name>" 
act.WriteLine "<x:WorksheetOptions>" 
act.WriteLine "<x:Print>" 
act.WriteLine "<x:ValidPrinterInfo/>" 
act.WriteLine "</x:Print>" 
act.WriteLine "</x:WorksheetOptions>" 
act.WriteLine "</x:ExcelWorksheet>" 
act.WriteLine "</x:ExcelWorksheets>" 
act.WriteLine "</x:ExcelWorkbook>" 
act.WriteLine "</xml>" 
act.WriteLine "<![endif]--> " 
act.WriteLine "</head>" 
act.WriteLine "<body>" 
act.WriteLine "<table>" 
act.WriteLine "<tr>" 
****For i = 0 To iCols - 1 
********act.WriteLine "<th>" 
********act.WriteLine "<font face=Arial>"&cstr(rs.Fields.Item(i).Name&"</font>")**
********act.WriteLine "</th>" 
****next 
****act.WriteLine "</tr>" 
****rs.MoveFirst**
****i=0 
****do until rs.EOF**
****act.WriteLine "<tr>" 
********For i = 0 To iCols - 1 
********act.WriteLine "<td>" 
********if rs.Fields.Item(i)<>"" then 
********act.WriteLine "<font face=Arial>"&cstr(rs.Fields.Item(i))&"</font>" 
********end if**
********act.WriteLine "</td>" 
********next 
****act.WriteLine "</tr>" 
****rs.MoveNext**
****loop**** 
act.WriteLine "</table>" 
act.WriteLine "</body>" 
act.WriteLine "</html>" 
' close the document**
act.close 
rs.Close**
end function 
%> ****

mertcan112 · 04-10-2006, 11:11 PM

teşekkürler bir bakalım

blue_ice · 05-11-2006, 06:52 AM

teşekkürler eline saglık ama nasıl yapılacağını bir söylersen memnun olurum

ensevgiliye · 05-19-2006, 11:15 AM

emegine saglık

spawn_342 · 05-19-2006, 12:03 PM

hımmmmmmmmm

gozel yaw

elıne saqlık

Database'den excel'e bilgi aktarma konusuna benzer konular:
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ESF Database Convert Enterprise v5.4.5	Shady08	Web Master Programları	4	08-15-2008 02:37 PM
Vergi İadesi - Excel	Rick	Program Download	2	08-08-2008 09:32 PM
serverden aktarma diye bisey varmı	yuhuland	Knight Online	10	12-30-2007 03:49 PM
EXCEL PÜF NOKTALARI	7294936	İşletim Sistemleri	0	08-30-2006 11:06 AM
Mobile Database Viewer(Access,xls,Oracle)for S60 1.5	Rick	Nokia	1	08-12-2006 11:12 AM

05-11-2006, 06:52 AM
blue_ice	teşekkürler eline saglık ama nasıl yapılacağını bir söylersen memnun olurum

05-19-2006, 12:03 PM
spawn_342	hımmmmmmmmm gozel yaw elıne saqlık

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder

Database'den excel'e bilgi aktarma

04-10-2006, 11:11 PM
mertcan112	teşekkürler bir bakalım

Database'den excel'e bilgi aktarma

Database'den excel'e bilgi aktarma

Database'den excel'e bilgi aktarma

Database'den excel'e bilgi aktarma konusuna benzer konular: