asp ile excelden bilgi alma

ykocaturk · 17 Temmuz 2007

merhabalar,
asp ile web platformunda excelden veri okuyup raporlama nasıl yapılabilir, yani exceli veritabanı olarak kullanabilirmiyim.
tşk

turk-x · 18 Temmuz 2007

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>

turk-x · 18 Temmuz 2007

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)
%>

turk-x · 18 Temmuz 2007

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\dokuman\excel")
Set act = folder.CreateTextFile(""&FileName& "" &".xls", true)
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com

ffice: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

rint>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x

rint>"
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
%>

ykocaturk · 22 Temmuz 2007

süpeeer
teşekkürler... turk-x

mfk2003 · 21 Şubat 2008

Ö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

istanbulcahan · 22 Haziran 2008

turk-x' Alıntı:
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.

aba047 · 6 Eylül 2011

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-formundan-excele-veri-kaydetme-t19002/sayfa12.html