Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-06-2008, 20:19   #1
htsumer
Altın Üye
 
htsumer kullanıcısının avatarı
 
Giriş: 07/09/2004
Şehir: Manisa
Mesaj: 650
Excel Vers. ve Dili:
Excel-2003
Varsayılan Nöbetçi Eczaneleri verecek ve siteden çekecek

Excel sayfasında
Adı-Tarih

A Eczanesi-25/06/2008

şeklinde girilecek

bu excelden web sayfası veri çekecek..

"25/06/2008 tarihinde hangi eczane nöbetçi ile onu verecek..

Bu scripti kimse hayrına vermiyor.
Belki burda veren olur..
__________________
İş:Excel-2010
htsumer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 21:38   #2
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

Sayın htsumer:

php ile excele bağlanma kodu:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
$conn=odbc_connect('excelSheet','',''); 
$query="SELECT * FROM sheet1"; 
$result=odbc_exec($conn,$query); 
while (odbc_fetch_row($result)) 
{ 
  $field1=odbc_result($result,1); 
} 
odbc_close($conn);
Ancak dah önce excel dosyanızı odbc ye tanıtmanız gerekiyor.

İyi çalışmalar
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 21:44   #3
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

Sayın htsumer,

ODBC ile bağlanın:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
oConn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=c:\somepath\mySpreadsheet.xls;" & _
"DefaultDir=c:\somepath
sonra sql kodunu çalıştırın:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
'After creating an ODBC connectoin the query is
SQL = "SELECT * FROM [Sayfa1$]" 
'To read the columns 
<% 
valore = rs(n) 
%>
'where n is the column number (es. A=0, B=1, etc...)
Bu da asp kodu.

İyi çalışmalar
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 21:48   #4
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

Sayın htsumer,

Bu da tam bir html sayfası içinde yapmanız gerekenler:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
<html>
<title>CodeAve.com(Display an Excel in ASP)</title>
<body bgcolor="#FFFFFF">
<!--#include file="adovbs.inc"-->

<%
' Import constants from adovbs.inc specifically 
'adOpenStatic and adLockPessimistic 

'Name of the excel file being displayed
exceldb="greenberg.xls"

' Create a server connection object
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"


' Create a server recordset object
Set rs = Server.CreateObject("ADODB.Recordset")

' Query to run against the exceldb
' hamerin_hank is the name of the 
' cell range as defined in excel
sql="select * from hammerin_hank;"

' Execute the sql
rs.Open sql, cn, _
adOpenStatic, adLockPessimistic
%>
<table border=1 align=center>
<caption>Hank Greenberg Career Statistics</caption><%
For counter = 0 To rs.fields.count - 1 %>
<th>
<% ' Write out the field names 
response.write rs.fields.item(counter).name %>
</th><%
' Move to the next field
next 

' Move to the first record
rs.movefirst

' Write out the record set
do while not rs.eof %>
<tr><% 
' Loop through all of the fileds
for counter = 0 to rs.fields.count - 1
%>
<td align=right>
<% ' Write out the field values 
response.write rs.fields.item(counter).value %>
</td><%
' Move to the next field
next 
%>
</tr><%
' Move to the next record
rs.movenext
loop
%>
</table>

<%
' Kill the recordset
rs.close
Set rs = nothing
' Kill the connection
cn.close
Set cn = nothing
%>

</body>
</html>
İyi çalışmalar
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 21:52   #5
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

Bu da ayrı bir örnek:



Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
strConnection = "DBQ=" & Server.MapPath("customer-list.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.open strConnection


sql="select * from sales_in_2005;"

rs.Open sql, cn, adOpenStatic, adLockPessimistic


do while not rs.eof
    response.write rs("customerName") & " : " & rs("soldPrice") & "<br/>"
rs.movenext
loop


rs.close
Set rs = nothing
cn.close
Set cn = nothing
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 21:52   #6
htsumer
Altın Üye
 
htsumer kullanıcısının avatarı
 
Giriş: 07/09/2004
Şehir: Manisa
Mesaj: 650
Excel Vers. ve Dili:
Excel-2003
Varsayılan

Sayın modalı teşekkür ederim.Linux hostum var.
Yukardakileri bir deneyeceğim ama yapacağımı sanmıyorum..

Sadece şunu istiyorum.excel nöb.eczaneleri yazıp test.php ile çekmek..
__________________
İş:Excel-2010
htsumer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 22:01   #7
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

Sayın htsumer,

Linuxtan excel açabilmek için api ye ihtiyacınız var. Aşağıdaki örnekleri inceleyin.
Eklenmiş Dosyalar
Dosya Türü: zip phpExcelReader.zip (21.0 KB, 25 Görüntülenme)
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-06-2008, 22:07   #8
htsumer
Altın Üye
 
htsumer kullanıcısının avatarı
 
Giriş: 07/09/2004
Şehir: Manisa
Mesaj: 650
Excel Vers. ve Dili:
Excel-2003
Varsayılan

Sayın modalı,
Valla o kadar iyi değilim.Hosta attım .php çalıştırdım ama yapamadım..O kadar iyi değilim..Teşekkür ederim..
__________________
İş:Excel-2010
htsumer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-10-2010, 09:50   #9
muratozkan
 
Giriş: 08/03/2009
Şehir: antalya
Mesaj: 2
Excel Vers. ve Dili:
2007 turkce
Varsayılan

sayın modalı yukarıda linux çalışmak için gerekli zipli dosya yok link calışmıyor bi kontrol edermisiniz
cok teşşurler
muratozkan
muratozkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-04-2013, 16:40   #10
LovelessGent
 
Giriş: 11/04/2013
Mesaj: 1
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan Excel

Konuya 5 son mesaja 3 yıl olmuş ancak şu dosyayı biri yenilese de kullansak iyi olur strateji oyunu
__________________
Antik Çağ - Online Strateji Oyunu
LovelessGent Ç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 21:27


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