BURADAN ÖRNEGi iNCELEYEBiLiRSiNiZ
gelelim kodlarına...
Kod:
<%
' EXCEL dosyasýnýn ilk satýrý alan adlarýný gösterir... Bu örnekte alanlar AD, SOYAD, TEL...
abdulkadir = "DBQ=" & Server.MapPath("deneme.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"
Set abdul = Server.CreateObject("ADODB.Connection")
Set kocer = Server.CreateObject("ADODB.Recordset")
abdul.open abdulkadir
sql="select * from [Sayfa1$]"
kocer.Open sql, abdul, 1,3
%>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<p><strong>Exceli istersek bu şekilde veritabanı olarak da kullanabiliriz.Bu küçük örnekde sadece aşağıdaki verileri excel sayfamızdan aldırdık</strong>. <a href="https://accesstr.net" target="_blank">ACCESSTR.net </a><span class="style1">....</span> <a href="mailto:[email protected]" target="_blank">ERKAN UCAR</a> </p>
<table border="1" width="91%" id="table1" bordercolor="#000000" cellspacing="0" cellpadding="0" *****border-collapse: collapse">
<tr>
<td><b>AD</b></td>
<td><b>SOYAD</b></td>
<td><b>TEL</b></td>
<td><b>ADRES</b></td>
<td><b>WEB</b></td>
<td><b>MAIL</b></td>
</tr>
<%
do while not kocer.eof
%>
<tr>
<td><%=kocer("AD")%> </td>
<td><%=kocer("SOYAD")%> </td>
<td><%=kocer("TEL")%> </td>
<td><%=kocer("ADRES")%> </td>
<td><%=kocer("WEB")%> </td>
<td><%=kocer("MAIL")%> </td>
</tr>
<%
kocer.movenext
loop
kocer.close
Set kocer = nothing
abdul.close
Set abdul = nothing
%>
</table>
* A-----B------C----------D-------E--------F
1 AD SOYAD TEL ADRES WEB MAIL
2ERKAN UCAR 3917475 Bodrum www.turizmmezunlari.com [email protected]
temsili Excel sayfamızda bu şekilde unutmadan deneme.xls olarak yapmamız gerekiyor. eğer değiştirmek isterseniz kodumuzun 4. satırındaki deneme.xls isminide değiştirip kullanabilirsiniz.