HTML Formundan Excel'e Veri Kaydetme

mnz · 28 Temmuz 2006

ne diyosun usta....
bana ne fikirler verdi bi bilsen :mrgreen:
ağdaki kullanıcıların htm formdan veri girebilmelerini sağlıyacağım. Aynı anda veri girilemiyecek sanıyorum.
küçük lable larla hücrelerdeki verileri htm e alıp tüm verilerin özetlerini görebileceğim.

mnz · 28 Temmuz 2006

haluk bey yine htm kodunu rica edebilirmiyim. açılmadı yine. işyerimde böyle bi sorun var :?

Haluk · 28 Temmuz 2006

Teşekkürler beyler;

Sayın mnz, bu kez Excel dosyasının "Data" isimli syafasında A1-B1-C1-D1-E1 hücrelerine başlık olarak "Kimlik No - Ad - Soyad - Meslek - Doğum Tarihi" metinlerini giriyorsunuz.

HTML kodları da şöyle;

Kod:

<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:\TestFolder\TestDataBase.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>


<center>
	[img]http://www.mrexcel.com/board2/images/avatars/19304373673f1cf089ebf84.jpg[/img]
	<h3>Burası Excel Vadisi ...</h3>
</center>




[b]<u>Veri Girişi</u>:[/b]





<script language="VBscript">
	Sub SendData()
		Set xlApp = CreateObject("Excel.Application")
		xlApp.Visible = False
		Set xlBook = xlApp.Workbooks.open("C:\TestFolder\TestDatabase.xls")
		Set Sh=xlBook.sheets("Data")
		NoA = Sh.cells(65536,1).end(3).row + 1
		Sh.cells(NoA, 1) = document.veriler.No.value
		Sh.cells(NoA, 2) = document.veriler.ad.value
		Sh.cells(NoA, 3) = document.veriler.soyad.value
		Sh.cells(NoA, 4) = document.veriler.meslek.value
		Sh.cells(NoA, 5) = document.veriler.dogum_tarih.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="30%"><div align="right">[b]Kimlik No :[/b]</div></td>
			<td width="70%"><input type="text" name="No" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Ad :[/b]</div></td>
			<td><input type="text" name="ad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Soyad :[/b]</div></td>
			<td><input type="text" name="soyad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Meslek :[/b]</div></td>
			<td><input type="text" name="meslek" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Doğum Tarihi :[/b]</div></td>
			<td><input type="text" name="dogum_tarih" size="30"></td>
		</tr>
		<tr>
			<td></td>
			<td><input type="submit" name="submit" value=" Kaydet " onClick="SendData()"></td>
		</tr>
		
	</table>
</form>



[b]<u>Veri Tabanı</u>:[/b]






	<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;"">[b]" & adoFld.Name & "[/b]</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>

Dosya ektedir ...

mnz · 28 Temmuz 2006

haluk bey
excel den veri almıyor. data$ nesnesi bulunamadı ve ya yolun doğru olduğundan emin olun.
Sayfa ismi Data ve veri yolu doğru. kayıt yapılabiliyor.

mnz · 28 Temmuz 2006

ahh!!! acele ediyoruz :kafa:
veri yoluna slaş / koymayı unutmuşuz.

argon · 28 Temmuz 2006

Haluk Hocam Mükemmelsin yaa..
ellerine ve zekâna sağlık
ben bunu biraz geliştireyim...

Recep İpek · 29 Temmuz 2006

Sayın Haluk Hocam.

Excel'e aktarma koduna,

sh.cells(NoA, 1) = NoA-1

satırı ekleyerek kayıtlara sıra numarası verdim.

Fakat NoA formatı number olduğu için html ekranında göstermiyor.
(Sanırım sadece text formatında olanları gösteriyor.)

Ayrıca ben kayıtların bu sıra numarasına göre nasıl görebilirim?

argon · 29 Temmuz 2006

Hocam İşin için den çıkamadım Kafayı yemek üzereyim..
yardım ederseniz sevinirim.
şimdi mevzu şu:
diyelimki 10 tane müşterim var ahmet, mehmet vs. gibi
bunların herbirine elma-armut vs. satıyorum.
açılır kutucuktan müşteri isimini seçicem yanında boş kucuğa miktarını yazacağım
diğer bir kutucuğada fiyatını yazdıktan sonra en son üçüncü kutucuğa kendi otomatik hesabını yazıp hangi müşteriyi seçtiysem omüşterinin hesabına yazacağım.
yani cari hesap programı yapmak istiyorum ama çok basit bişi olmalı..
walla bana bununla ilgili yardım ederseniz çok memnun olucam

Recep İpek · 31 Temmuz 2006

Sayın Haluk Hocam,

Bu değişikliği bende yaptım ama alan formatı text olduğu için ;

1
10
11
..
2
20
21
22
..
3
30
..
...

şeklinde görünüyor.

Number olarak düzeltebilirsek sanırım olacak.Fakat bu seferde ekranda görünmüyor. :dÃ¼sÃ¼n:

Haluk · 31 Temmuz 2006

Sayın ripek, en son göndediğim Excel ve HTML dosyalarını tekrar indirdim ve denedim.

Sıralamada bir problem yok.

Sıra no'ların olduğu sütunu "sayı" olarak biçimlendirmiştim.

Recep İpek · 11 Ağustos 2006

Haluk Hocam,

Recordset ile oluşturduğumuz kayıtları altta listbox şeklinde değilde veri girişi yaptığımız alanlarda nasıl gösterebiliriz.Bir türlü beceremedim.

Form üzerinde;

Kayıt Ekle
Kayıt Bul
Kayıt Sil
Kayıt Düzelt
İlk Kayıt
Önceki Kayıt
Sonraki Kayıt
Son Kayıt

adımlarını yapmaya çalışıyorum.

:agla:

Haluk · 11 Ağustos 2006

Bence HTML sayfası ile gereksiz yere uğraşıyorsunuz.

Forumda veri tabanı yönetmek ile ilgili çeşitli mesajlar var (Excel - Excel veya Excel - Access) ve sizin için gayet uygundur.

modalı · 12 Ağustos 2006

Sayınripek,

Bilmem işinize yarıyacak mı ama bir deneyin. Accessi çalıştırıp bir veri tabanı oluşturun. Basit bir tablo oluşturun. Bu tabloya bağlı olarak bir html sayfası oluşturun. Ondan sonra bu sayfayı tasarım görünümünde açıp, windows komut dosyası düzenleyicisiyle kodlarını açıp inceleyin. Buradan bir ipucu elde edebilirsiniz sanırım.

iyi çalışmalar

tevfikdemir · 27 Ağustos 2006

Syn Haluk hocamız. Büyük Usta ,

Sizin içiniz rahat olsun.insanlar yaptıklarınızı görünce dumura uğruyorlar ve bu yüzden hiç bir şey yazamadan yaptıklarınızı denemeye farklı şeyler yapmaya çalışıyorlar vede olayın heyecanından size cevap yazamıyor diye düşünüyorum.Bende bişey yazamayacaktım nerdeyse fakat enson güncellediğinizi söylediğiniz dosyanızı indiremiyorum.Dosya silinmiş olabilir diyor.

"O yüzden yazayım dedim

)

Saygılar

Haluk · 27 Ağustos 2006

Tevfik bey, iyi geceler / iyi sabahlar;

Rica ederim, bu kadar iltifatı hak etmiyorum.

Eklediğim son dosya yeni foruma taşınma sırasında herhalde kaybolmuş ... Ama içindeki kodlar yukarıdaki mesajda yer alan kodlar.

Sadece, HTML dosyası şeklindeydi.

Kodları bir Notepad dosyasına yazıp, kaydedip kapattıktan sonra *.txt uzantısı yerine *.htm yaparsanız dosyayı elde edrsiniz. Mesajlarda belirtilen Excel dosyasını da zaten hazırlayabilirsiniz ... onda kod falan da yok.

Sağlıcakla kalın ...

Haluk · 3 Eylül 2006

Söz konusu dosya ektedir ...

truli · 15 Aralık 2006

Sayın Haluk Bey ;

Gerçekten çok yararlı ve güzel bir çalışma yapmışsınız Çok Teşekkürlerimi Sunuyorum Size.Yanlız Benim Burda Bir Sorum Olacak ; Şimdi Her Şey Çok Güzel Çalışıyor. Ben Birşey Düşündüm Acaba Bu Veri Tabanı Olarak Atadığımız Dosyayı Yerel Ağda Başka Bir Bilgisayara Koysak Veri Tabanı Yolunuda Ona Göre Belirlesek Çalışırmı ? Ben Bir Deneme Yaptım Ancak Çalışmadı Başka Bir Yol Olablir mi ?

Haluk · 15 Aralık 2006

Merhaba,

Veri tabanı olan Excel dosyasını yerel ağda paylaşıma açılmış bir klasöre yerleştirip, HTML dosyasındaki VBscript kodunda da dosya yolunu buna göre değiştiriseniz olur tabii.

Aşağıdaki değişiklikleri denedim ve oldu;

HTML:

.ConnectionString = "Data Source=\\iisispe\Ortak\TestDataBase.xls; Extended Properties=Excel 8.0;"

Ve;

HTML:

Set xlBook = xlApp.Workbooks.open("\\iisispe\Ortak\TestDataBase.xls")

Burada;

iisispe >> Yerel ağdaki PC'nin adı

Ortak >> Yerel ağdaki iisispe adlı bilgisayarda paylaşıma açılmış klasörün adı

truli · 15 Aralık 2006

Çok teşekkür ederim

Birde Bi sorum daha olcak bu yazdıgınız kodları değiştirebilirim degilmi ?
Mesela daha fazla form elemanları eklıcem baba adı ana adı vb.
bunu yaparken excel dosyasında herhangi bir değişiklik yapcakmıyım veya nasık yapcam ? Tekrardan çok teşekkür ederim

gardrop · 27 Aralık 2006

Hocam süpersin ne diyeyim, ellerine sağlık...

Peki bunu internet üzerinden yapabilir miyiz?
Teşekkürler...

HTML Formundan Excel'e Veri Kaydetme

mnz

mnz

Haluk

𐱅𐰇𐰼𐰚

mnz

mnz

argon

Recep İpek

argon

Recep İpek

Haluk

𐱅𐰇𐰼𐰚

Recep İpek

Haluk

𐱅𐰇𐰼𐰚

modalı

tevfikdemir

Haluk

𐱅𐰇𐰼𐰚

Haluk

𐱅𐰇𐰼𐰚

truli

Haluk

𐱅𐰇𐰼𐰚

truli

gardrop