Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-07-2006, 10:59   #21
mnz
 
Giriş: 05/09/2005
Mesaj: 283
Excel Vers. ve Dili:
Excel 2002 (Tr)
Varsayılan

ne diyosun usta....
bana ne fikirler verdi bi bilsen
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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-07-2006, 11:01   #22
mnz
 
Giriş: 05/09/2005
Mesaj: 283
Excel Vers. ve Dili:
Excel 2002 (Tr)
Varsayılan

haluk bey yine htm kodunu rica edebilirmiyim. açılmadı yine. işyerimde böyle bi sorun var :?
mnz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-07-2006, 11:07   #23
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,080
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<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>
	
	<h3>Burası Excel Vadisi ...</h3>
</center>




<u>Veri Girişi</u>:





<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">Kimlik No :</div></td>
			<td width="70%"><input type="text" name="No" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">Ad :</div></td>
			<td><input type="text" name="ad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">Soyad :</div></td>
			<td><input type="text" name="soyad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">Meslek :</div></td>
			<td><input type="text" name="meslek" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">Doğum Tarihi :</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>



<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>
Dosya ektedir ...
Eklenmiş Dosyalar
Dosya Türü: zip Test.zip (3.8 KB, 241 Görüntülenme)
__________________
Kod anlatılmaz,yazılır !

Bu mesaj en son " 03-09-2006 " tarihinde saat 18:46 itibariyle Haluk tarafından düzenlenmiştir....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-07-2006, 12:14   #24
mnz
 
Giriş: 05/09/2005
Mesaj: 283
Excel Vers. ve Dili:
Excel 2002 (Tr)
Varsayılan

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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-07-2006, 12:20   #25
mnz
 
Giriş: 05/09/2005
Mesaj: 283
Excel Vers. ve Dili:
Excel 2002 (Tr)
Varsayılan

ahh!!! acele ediyoruz
veri yoluna slaş / koymayı unutmuşuz.
mnz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-07-2006, 16:41   #26
argon
 
Giriş: 26/07/2006
Mesaj: 3
Varsayılan

Haluk Hocam Mükemmelsin yaa..
ellerine ve zekâna sağlık
ben bunu biraz geliştireyim...
argon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-07-2006, 14:46   #27
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan

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?
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-07-2006, 18:09   #28
argon
 
Giriş: 26/07/2006
Mesaj: 3
Varsayılan

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
argon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-07-2006, 07:55   #29
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan

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:
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-07-2006, 08:59   #30
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,080
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

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.
__________________
Kod anlatılmaz,yazılır !
Haluk Ç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 23:17


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