asp ile excelden bilgi alma [Archive]

ykocaturk

17-07-2007, 21:32

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

turk-x

18-07-2007, 09:41

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-07-2007, 09:42

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-07-2007, 09:43

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:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
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

21-07-2007, 22:07

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

mfk2003

21-02-2008, 19:27

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-06-2008, 19:34

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

06-09-2011, 18:53

115932 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