Neler yeni

Yeni mesajlar Yeni konular En çok mesaj En çok tepki En çok görüntülenen

ASP ile excel'den veri okutmak

beengineer

🌱Yeni Üye🌱
Katılım
2 Ağu 2008
Mesajlar
11
Tepkime puanı
0
Merhaba arkadaşlar,netten excele bağlanma kodlarını denedim ancak biçok kez hata verdi,hatanın sebebinide çözemedim birçok farklı yol denememe rağmen.
Kod şu şekilde:

<%
'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik
Response.Expires = 0

'Baglanti nesnesi oluşturduk
Set DB = Server.CreateObject("ADODB.Connection")
DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik
Baglanti.Open DB 'Veritabanımızı açtık

Set r*** = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
r***.Open strSQL, Baglanti

'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write r***.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>


özellikle şu son kısmını anlayamadım,yani excelde A1 sütunundaki,B1 sütunudaki bilgileri, A1,B1 diye belirterek çağırmayacak mıyız ,yardımcı olursanız çok sevinirim...
 

güneş gün

🌟Usta Tasarımcı🌟
Katılım
12 Mar 2008
Mesajlar
327
Tepkime puanı
3
tam ve doğru olanu kimse yazmadı mı:surprised: ihtiyacımız olur aşkadaş lar bilenler ugrayıp yazsın
 

zozz

⭐Deneyimli Tasarımcı⭐
Katılım
20 Eki 2008
Mesajlar
131
Tepkime puanı
2
Merhaba arkadaşlar,netten excele bağlanma kodlarını denedim ancak biçok kez hata verdi,hatanın sebebinide çözemedim birçok farklı yol denememe rağmen.
Kod şu şekilde:

<%
'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik
Response.Expires = 0

'Baglanti nesnesi oluşturduk
Set DB = Server.CreateObject("ADODB.Connection")
DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik
Baglanti.Open DB 'Veritabanımızı açtık

Set r*** = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
r***.Open strSQL, Baglanti

'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write r***.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>


özellikle şu son kısmını anlayamadım,yani excelde A1 sütunundaki,B1 sütunudaki bilgileri, A1,B1 diye belirterek çağırmayacak mıyız ,yardımcı olursanız çok sevinirim...

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

Set zrs = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
zrs.open zozz


sql="select * from [Sayfa1$]"
rs.Open sql, zrs, 1,3%>

<table border="0" >
<tr>
<td><b>AD</b></td>
<td><b>TELEFON</b></td>
<td><b>ŞİRKET</b></td>


</tr>

<%
do while not rs.eof
%>


<tr>
<td><%=rs("ad")%><!--burası A1 kutucugu ve degeri "ad"--> </td>
<td><%=rs("tel")%><!--burası B1 kutucugu ve degeri "tel"--> </td>
<td><%=rs("sirket")%><!--burası C1 kutucugu ve degeri "sirket"--> </td>
</tr>

<%
rs.movenext
loop


rs.close
Set rs= nothing
zrs.close
Set zrs = nothing
%>

bu tamamını ekrana döküyor. sen for döngüsü kurarak istedigin kadar satırı getirebilirsin.
for i=1 to 10
<%=rs("ad")%>
next i

gibi
 

berelboy

🌱Yeni Üye🌱
Katılım
6 Mar 2008
Mesajlar
16
Tepkime puanı
0
tşk ederim arkadasım her zaman lazım olabilecek bi iş hele müsterin excell tablosu kullanıp bunları sitede olmasını istiyorum dedi ise :)
 

ajan_s

🌱Yeni Üye🌱
Katılım
1 Ara 2008
Mesajlar
3
Tepkime puanı
0
Web sitesi
www.ajan-s.com
Merhaba arkadaşlar,netten excele bağlanma kodlarını denedim ancak biçok kez hata verdi,hatanın sebebinide çözemedim birçok farklı yol denememe rağmen.
Kod şu şekilde:

<%
'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik
Response.Expires = 0

'Baglanti nesnesi oluşturduk
Set DB = Server.CreateObject("ADODB.Connection")
DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik
Baglanti.Open DB 'Veritabanımızı açtık

Set r*** = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
r***.Open strSQL, Baglanti

'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write r***.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>


özellikle şu son kısmını anlayamadım,yani excelde A1 sütunundaki,B1 sütunudaki bilgileri, A1,B1 diye belirterek çağırmayacak mıyız ,yardımcı olursanız çok sevinirim...

bunu yazarak denedim fakat bağlantı diye bir nesne eksik hatası veriyor ...
exel verisini ben mdb dosyama taşımak istiyorum ... asp yardımı ile yapmak mümkünmüş ama ben bacaraemedim bilen var mı ?
 

dewildog

🏅Acemi Tasarımcı🏅
Katılım
28 Nis 2008
Mesajlar
57
Tepkime puanı
1
buna benzer bir yardıma ihtiyacım var bir kaç yere aynı yardımı istedim ama umarım yardım edecek birileri vardır.
öncelikle teşekkürler.
ben excelle öğrenci bilgileri girmek istiyorum çünkü velileri 10 aylık taksitlerini takip etmek görmek istiyorlar
(veliler öğrenci tc no girerek hangi ayda ne ödemişler görsünler isteniyor.)
benim sitem flash yani sorgulama alanı nasıl yaparım onuda bilmiyom nasıl yardımcı olursunuz, şimdiden teşekür ederim
 
Üst