Asp ile Excelden veri çekmek-Excel'e Veri Yazdırmak...

Kodla Büyü

s_kajmeran

Hiperaktif Üye
Hiperaktif
Mesajlar
3,863
excel dosyamın ismini "veriler.xls" olsun... İçerik şöyle...
AD-SOYAD-TEL-ADRES


şimdi bundan veri çekecek asp dosyamızı oluşturalım... VeriCek.asp

<%vericek = "DBQ=" & Server.MapPath("veriler.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"

Set bag = Server.CreateObject("ADODB.Connection")
Set bag1 = Server.CreateObject("ADODB.Recordset")
bag.open vericek
sql="select * from [Sayfa1$]"
bag1.Open sql, bag, 1,3 %>

<table border="1" width="70%" id="table1" bordercolor="#000000" cellpadding="0" style="border-collapse: collapse">
<tr>
<td><b>AD</b></td>
<td><b>SOYAD</b></td>
<td><b>TEL</b></td>
<td><b>ADRES</b></td>
</tr>

<%do while not bag1.eof%>
<tr>
<td><%=bag1("AD")%>&nbsp;</td>
<td><%=bag1("SOYAD")%>&nbsp;</td>
<td><%=bag1("TEL")%>&nbsp;</td>
<td><%=bag1("ADRES")%>&nbsp;</td>
</tr>

<%bag1.movenext
loop
bag1.close
Set bag1 = nothing
bag.close
Set bag = nothing %>
</table>


//bana lazımdı belki lazım olan biri olur... Kolay gelsin...
 
Re: Asp ile Excelden veri çekmek...

Veri tabanındaki bilgiyi sayfaya yazdırıp excel olarak indirme...
Veri tabanı adı (veritabni.xls); tablo adı (veriler) alanları ise şöyle:
ID-AD-SOYAD-TEL-ADRES

Sayfayı çalıştırdığınızda veri tabanındaki kayıtlar sayfaya yazdırılır, ardından o veriler excel sayfasına aktarılıp (veriler.xls ismiyle) indirilir... Bir öncekinin tam tersini yapar...

<%set bag = server.CreateObject("Adodb.Connection")
bag.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & server.MapPath("veritabani.mdb")

set rs = server.CreateObject("Adodb.Recordset")
rs.open "Select * from veriler where id",bag,1,3%>

<table width="600" border="0" cellspacing="2" cellpadding="2">
<tr>
<td><center><b>ID</b></center></td>
<td><center><b>AD SOYAD</b></center></td>
<td><center><b>TEL</b></center></td>
<td><center><b>ADRES</b></center></td>
</tr>

<% do until rs.eof 'verilerimizi burdan aşağı sıralıcaz. %>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("adsoyad")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("adres")%></td>
</tr>

<% rs.movenext
loop %>

</table>

<%rs.close : set rs = nothing
bag.close : set bag = nothing

Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = veriler.xls"%>
 
2 örnek onla ilgili hocam. Veri tabanından yazdırıyor, siz form verilerini kullanacaksiniz
 
Geri
Üst