DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba hocamGünlerdir bekliyorum belki bir yorum gelir diye ama yok... "Kel, kör, kendi işini kendin gör" misali sayın Haluk'un kodlarını biraz değiştirerek Excel belgesindeki dataları HTML formuna şartlı sorgu ile getirmeye çalıştım...Bir de nette çalışsa tam süper olacak... İnanıyorum ki aynı tür bi sorguyu nette çalıştırmanında bir yolu vardır... Ama ben şimdilik bulamadım....
C:\DATA\ klasörüne atınız... denendi... kullanılmaya devam ediliyor...
;Data Source=ftp:\\canakkalempmem.k12.tr\fpdb\PERSONEL.mdb;Jet OLEDB: Database Password=1234;"...
Sayın yanar17, siteniz eğer meb nin serverinde ise sanırım asp desteği yok ve oradaki mdb dosyasına ulaşamazsınız. Eğer asp destekli bir serverda ise ve html formunuz da aynı sitenin içinde ise o zaman:Malesef olmadı
Sanırım bağlantı kodlarında hata yapıyoruz.
Access mdb dosyasıyla da aynı işi yaptım olmadı.
kodlar şöyle yazdım acaba yanlışlık burdamı?
FrontPage ile açılan sorgu formu asp uzantılı olarak siteye yerleştirdim.mdb dosyasınıda yine "fpdb" klasörü içine yerleştirdim.
çalışan formun ismi: PERSONEL.asp
mdb dosyası ismi: PERSONEL.mdb
bilgsayar masaüstünde gayet güzel çalışıyor. Web de çalışmıyor. Acaba nerde hatayapıyorum. Ayrıca IE active-x i etkinleştirmeyi her defasında soruyor.
Görüşlerinize ihtiyacım var. Yardımınızı beklerim.
Herkese Çanakkale den sevgiler Saygılar.
<%
[B]Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("\db\db.mdb")[/B]
id=Request.QueryString("id")
sql="SELECT tblMesaj.*, tblUyeler.*, tblMesaj.MesajTarihi FROM tblUyeler INNER JOIN tblMesaj ON tblUyeler.UyeID = tblMesaj.MesajUser WHERE tblMesaj.BaslikID=" & CInt(id) & " ORDER BY tblMesaj.MesajTarihi DESC"
rs.Open sql, conn,3,1
%>
Sayın modalı ilginize teşekkür ederim.Sayın yanar17, siteniz eğer meb nin serverinde ise sanırım asp desteği yok ve oradaki mdb dosyasına ulaşamazsınız. Eğer asp destekli bir serverda ise ve html formunuz da aynı ......................... İyi çalışmalar
<html lang=Tr>
<title>Test Form</title>
<head>
<meta http-equiv=Content-Type content="text/html; charset=Windows-1254">
<style>
body {font:10pt tahoma;}
table {font:10pt tahoma;}
</style>
<script language="VBscript">
Dim adoCn
Dim adoRs
Dim adoFld
Dim strQuery
Dim strResults
Const adClipString = 2
Const strColDelim = "</td><td>"
Const strRowDelim = "</td></tr><tr><td>"
Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
With adoCn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Users\latif\Desktop\Yeni Klasör\excel_web\Data.xls; Extended Properties=Excel 8.0;"
.Open
End With
strQuery = "SELECT * FROM [Data$] ORDER BY Ad"
With adoRs
Set .ActiveConnection = adoCn
.Open strQuery
End With
</script>
</head>
<body>
<u>Veri Girişi</u>:
<script language="VBscript">
Sub SendData()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.open("C:\Users\latif\Desktop\Yeni Klasör\excel_web\Data.xls")
Set Sh=xlBook.sheets("Sayfa1")
NoA = Sh.cells(a65536).end(3).row + 1
Sh.cells(NoA, 1) = NoA - 1
Sh.cells(NoA, 2) = document.veriler.urunno.value
Sh.cells(NoA, 3) = document.veriler.kalipno.value
Sh.cells(NoA, 4) = document.veriler.siparis.value
Sh.cells(NoA, 5) = document.veriler.altyapimci.value
Sh.cells(NoA, 6) = document.veriler.irsaliyeno.value
Sh.cells(NoA, 7) = document.veriler.tarih.value
Sh.cells(NoA, 8) = document.koliicadedi.value
Sh.cells(NoA, 9) = document.paletkoliadedi.value
Sh.cells(NoA, 10) = document.tampaletadedi.value
Sh.cells(NoA, 11) = document.yarimpaletkoliadedi.value
Sh.cells(NoA, 12) = document.adres.value
xlBook.save
xlBook.close
xlApp.quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
</script>
<form name="veriler" enctype="text/plain">
<table border="0" cellspacing="0" cellpadding="4" width="90%">
<tr>
<td width="15%"><div align="right">Ürün No :</div></td>
<td width="35%"><input type="text" name="urunno" size="30"></td>
<td width="15%"><div align="right">Tarih :</div></td>
<td width="35%"><input type="text" name="tarih" size="30"></td>
</tr>
<tr>
<td width="15%"><div align="right">Kalıp No :</div></td>
<td width="35%"><input type="text" name="kalipno" size="30"></td>
<td width="15%"><div align="right">Koli İç Adedi :</div></td>
<td width="35%"><input type="text" name="koliicadedi" size="30"></td>
</tr>
<tr>
<td width="15%"><div align="right">Sipariş No :</div></td>
<td width="35%"><input type="text" name="siparisno" size="30"></td>
<td width="15%"><div align="right">Palet Koli Adedi :</div></td>
<td width="35%"><input type="text" name="paletkoliadedi" size="30"></td>
<tr>
<td width="15%"><div align="right">Alt Yapımcı Firma :</div></td>
<td width="35%"><input type="text" name="altyapimci" size="30"></td>
<td width="15%"><div align="right">Tam Palet Adedi :</div></td>
<td width="35%"><input type="text" name="tampaletadedi" size="30"></td>
</tr>
<tr>
<td width="15%"><div align="right">İrsaliye No :</div></td>
<td width="35%"><input type="text" name="irsaliyeno" size="30"></td>
<td width="15%"><div align="right">Yarım Palet Koli Adedi :</div></td>
<td width="35%"><input type="text" name="yarimpaletkoliadedi" size="30"></td>
</tr>
<tr>
<td></td>
<td></td>
<td width="15%"><div align="right">Adres :</div></td>
<td width="35%"><input type="text" name="adres" size="30"></td>
</tr>
</table><br>
<table cellpadding="3" cellspacing="0">
<tr>
<td><input type="submit" name="submit" value=" Kaydet " onClick="SendData()"></td>
<td><input type="submit" name="submit" value=" Sorgula " onClick=""></td>
<td><input type="submit" name="submit" value=" Temizle " onClick=""></td>
</tr>
</table><br>
<u>Veri Tabanı</u>:
<table cellpadding="3" cellspacing="0"
style="border:1px solid silver;">
<tr>
<td rowspan="<%= adoRs.RecordCount + 2 %>">
</td>
</tr>
<tr>
<script language="VBscript">
For Each adoFld in adoRs.Fields
document.Write "<td style=""border-bottom:1px solid silver;"">" & adoFld.Name & "</td>"
Next
</script>
</tr>
<tr>
<td>
<script language="VBscript">
strResults = adoRs.GetString(adClipString,adoRs.RecordCount, strColDelim, strRowDelim)
strResults = Left(strResults, InStrRev(strResults,"<tr><td>") - 1)
document.Write strResults
Set adoCn = nothing
Set adoRs = nothing
</script>
</tr>
</table>
</body>
</html>
Değerli Yanar17 !Merhaba hocam
Aylardan beri sizin çalıştığınız konuda arayış içindeydim.
Bizim okul sitesine de böyle bir uygulamaya ihtiyaç var.
DATA dosyanız masa üstünde güzel çalışıyor.daha web den denemedim. İnşallah güzel çalışırda rüyalarım gerçek olur.
Değerli Iseker !Arkadaşlar Haluk Bey'in kodlarından faydalanarak böyle bir sayfa yaptım amam sanırım bir yerlerde bir yanlışlık var.. Yardımcı olursanız sevinirim..
veri tabanı olarak kullandığım Excel kitabı ve html sayfası ektedir.