Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > ASP & VBscript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-07-2007, 22:32   #1
ykocaturk
 
Giriş: 04/06/2007
Şehir: ist
Mesaj: 9
Excel Vers. ve Dili:
excel 2003
Varsayılan asp ile excelden bilgi alma

merhabalar,
asp ile web platformunda excelden veri okuyup raporlama nasıl yapılabilir, yani exceli veritabanı olarak kullanabilirmiyim.
tşk
ykocaturk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-07-2007, 10:41   #2
turk-x
 
turk-x kullanıcısının avatarı
 
Giriş: 12/09/2006
Şehir: DENİZLİ
Mesaj: 205
Excel Vers. ve Dili:
Excel 2010 Pro Plus Türkçe
Varsayılan

Slm
aşağıdaki kodları kullanarak exceli veritabanı olarak kullanabilirsin.Kodlar çok karışık Gibi gözüksede access bağlantısıyla aynı sayılır.


<%
Response.ContentType = "application/vnd.ms-excel"
%>

<% set objconn=server.createobject("adodb.connection")
connpath="DBQ=" & server.mappath("my_access_database.mdb")
objconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & connpath
set objrs=objconn.execute("select * from products")
%>
<TABLE BORDER=1>
<TR>
<%

' Loop through each Field, printing out the Field Names


For i = 0 to objrs.fields.count - 1
%>
<TD><% = objrs(i).name %></TD>
<% next %>
</TR>
<%

' Loop through rows, displaying each field

while not objrs.eof
%>
<TR>
<% For i = 0 to objrs.fields.count - 1
%>
<TD VALIGN=TOP><% = objrs(i) %></TD>
<% Next %>

</TR>
<%
objrs.MoveNext

wend

objrs.Close
objconn.close
%>

<tr><TD>=SUM(B2:B6)</TD></tr>
__________________
Bilmemek Değillll!
Öğrenmemek Ayıp...!
turk-x Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-07-2007, 10:42   #3
turk-x
 
turk-x kullanıcısının avatarı
 
Giriş: 12/09/2006
Şehir: DENİZLİ
Mesaj: 205
Excel Vers. ve Dili:
Excel 2010 Pro Plus Türkçe
Varsayılan

Slm Aşağıdaki kodlama daha sade daha anlaşılır
<%
'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 rsEx = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
rsEx.Open strSQL, Baglanti

'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write rsEx.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>
__________________
Bilmemek Değillll!
Öğrenmemek Ayıp...!
turk-x Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-07-2007, 10:43   #4
turk-x
 
turk-x kullanıcısının avatarı
 
Giriş: 12/09/2006
Şehir: DENİZLİ
Mesaj: 205
Excel Vers. ve Dili:
Excel 2010 Pro Plus Türkçe
Varsayılan

Slm
Aşağıdaki kodlada veritabanındaki verileri excele kaydedebilirsin
<%@ 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:\Inetpub\wwwroot\tekintranet\doku man\excel")
Set act = folder.CreateTextFile(""&FileName& "" &".xls", true)
act.WriteLine "<html xmlns=""urn:schemas-microsoft-comffice: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
%>
__________________
Bilmemek Değillll!
Öğrenmemek Ayıp...!
turk-x Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2007, 23:07   #5
ykocaturk
 
Giriş: 04/06/2007
Şehir: ist
Mesaj: 9
Excel Vers. ve Dili:
excel 2003
Varsayılan

süpeeer
teşekkürler... turk-x
ykocaturk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-02-2008, 20:27   #6
mfk2003
 
Giriş: 16/02/2007
Mesaj: 17
Excel Vers. ve Dili:
2003 vb
Smile Örnek uygulama

Arkadaşlar Merhaba,

ASP ile hazırladığım sayfada textbox1de bulunan tarih kısıtına göre ; server da belirli bir yerde bulunan excel dosyasında sayfa1 / B1 hücresinde bulunan değeri almak istiyorum. Yardımlarınız için şimdiden teşekkür ederim;

Excel sayfamda ;
A1 B1
Tarih Tutar
mfk2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2008, 20:34   #7
istanbulcahan
Altın Üye
 
istanbulcahan kullanıcısının avatarı
 
Giriş: 11/01/2008
Şehir: istanbul
Mesaj: 1,204
Excel Vers. ve Dili:
Evde Office 2010 32 bit Excel Türkçe- İşte 2016 Türkçe 64 bit
Varsayılan

Alıntı:
turk-x tarafından gönderildi Mesajı Görüntüle
Slm Aşağıdaki kodlama daha sade daha anlaşılır
<%
'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 rsEx = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
rsEx.Open strSQL, Baglanti

'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write rsEx.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>
Merhaba. elinize sağlık.
Buradaki kodlama mssql mi yoksa mysql içinmi bigli verirmisiniz.
istanbulcahan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-09-2011, 19:53   #8
aba047
 
Giriş: 01/12/2009
Şehir: türkiye
Mesaj: 4
Excel Vers. ve Dili:
türkçe
Varsayılan

geç miş.jpg resim olarak ekleye bildim hocam bu exel dosyasını içeriğini plakarı sorgulatarak "o" plakaya hangi tarihte ve km hangi parça takılmış bunu web sitesinde görünmesini istiyorum yardımcı olur iseniz sevinirim bilgi@gokarotomotiv.com

http://www.excel.web.tr/f75/html-for...2/sayfa12.html

Bu mesaj en son " 07-09-2011 " tarihinde saat 13:33 itibariyle aba047 tarafından düzenlenmiştir....
aba047 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:59


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden