AccessTr.neT
web'ten tablo aktarmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: web'ten tablo aktarmak (/konu-web-ten-tablo-aktarmak.html)

web'ten tablo aktarmak - ondercesmeci - 12/11/2010

merhaba arkadaşlar.
[Resim: 245gf3c.jpg]
resimdeki siteden ekilen ürünlerin isimleri ve üretim miktarlarını almaya çalışıyorum. aşağıdaki if döngüsü ile otomatik durdurmayı denedim ama komut veri bittiğinde durmuyor sürekli yeni kayda gidiyor. ilginize teşekkürler..[/vb]

Function Aktar()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1

Dim k As Integer

k=me.say

If IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText > 1 Then
Me.cksurunadi = IE.Document.All.tags("table").Item(4).Rows(k).Cells(0).innerText
Me.ckskuru = IE.Document.All.tags("table").Item(4).Rows(k).Cells(1).innerText
Me.ckssulu = IE.Document.All.tags("table").Item(4).Rows(k).Cells(2).innerText
Me.ckstoplam = IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText
Me.ckssuluhesap = Me.cksurunadi.Column(1) * Me.ckssulu
Me.ckskuruhesap = Me.cksurunadi.Column(2) * Me.ckskuru
me.say=me.say+1
Call Komut20_Click
Call tekrar
End If

End Function

Private Sub tekrar()
Call Aktar
End Sub

Private Sub Komut20_Click()
On Error GoTo Err_Komut20_Click


DoCmd.GoToRecord , , acNext

Exit_Komut20_Click:
Exit Sub

Err_Komut20_Click:
MsgBox Err.Description
Resume Exit_Komut20_Click

End Sub

Cvp: web'ten tablo aktarmak - ozanakkaya - 12/11/2010

web sitesinin sayfa kaynak kodlarını gönderebilir misin?

Cvp: web'ten tablo aktarmak - ondercesmeci - 12/11/2010

[html]

<head><title>

</title><link href="../../../App_Themes/CKS/styles.css" type="text/css" rel="stylesheet" /></head>
<script language="javascript" src="../../JavaScript/Genel.js" type="text/javascript" />

<script language="javascript" type="text/javascript">
function PopWindow()
{
if(window.event.clientY < 0 && window.event.clientY < -80)
{
alert('You are about to close the window');

if (document.getElementById('ctl00_OrtaAlan_btnWindowClosing') != null)
{
alert("Kapatma Butonu Var");
__doPostBack('ctl00$OrtaAlan$btnWindowClosing', '');
}
}
}
</script>

<body id="ctl00_CKSMasterPopUpBody" onbeforeunload="PopWindow();" *****margin: [0],[0],[0],[0]">
<form name="aspnetForm" method="post" action="AraziUrunlerDagilimi.aspx" id="aspnetForm">
<div>
<input type="hidden" name="__VIEWSTATE" id="
__VIEWSTATE" value="" />
</div>

<table cellpadding="3" cellspacing="0" width="100%" height="100%" border="0">
<tr *****height: 25px">
<td class="menu_left">
&nbsp;
</td>
<td align="center" class="menu">
<span *****color:White;"> </span>
</td>
<td class="menu_right">
&nbsp;
</td>
</tr>
<tr>
<td align="right" colspan="3">
<a id="ctl00_hlKapat" title="Pencereyi Kapat" class="hyperLink" href="javascript:window.close();">Kapat</a>&nbsp;
</td>
</tr>
<tr>
<td align="center" valign="top" colspan="3">
<table cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td colspan="3">

<table border="0" *****width:100%;">
<tr *****height:5px;">
<td></td>
</tr><tr>
<td><span id="ctl00_U_L_Baslik" *****font-weight:bold;"> </span></td>
</tr><tr *****height:5px;">
<td></td>
</tr>
</table>

</td>
</tr>
<tr *****display: none">
<td colspan="3">


</td>
</tr>
<tr>
<td colspan="3">

<table id="ctl00_O_Table1" border="0" *****width:100%;">
<tr>
<td><table id="ctl00_O_T_Urunler" cellspacing="1" cellpadding="1" border="0" *****border-width:1px;border-style:solid;">
<tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">1. Üretim Dağılımı</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Ürün</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Kuru</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Sulu</td><td align="center" colspan="2" *****border-width:1px;border-style:solid;">Toplam</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">&nbsp;</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">Ekilen Alan (da)</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Yonca</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">34,987</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">42,530</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">77,517</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Buğday (Ekmeklik)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">8,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">31,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Nadas</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">23,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Korunga</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">14,400</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,400</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">18,800</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Çayır Otu</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">5,560</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">5,560</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Mısır (Silaj)</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">11,000</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">11,000</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Arpa</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">1,799</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">1,799</td>
</tr><tr>
<td align="left" colspan="1" *****border-width:1px;border-style:solid;">Fiğ</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,100</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">0</td><td align="left" colspan="2" *****border-width:1px;border-style:solid;">4,100</td>
</tr><tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">&nbsp;</td>
</tr><tr>
<td align="left" colspan="7" *****border-width:1px;border-style:solid;">&nbsp;</td>
</tr>
</table></td>
</tr><tr *****height:5px;">
<td></td>
</tr><tr id="ctl00_O_TR_ToplamUretim">
<td colspan="2"><span id="ctl00_O_L_ToplamUretim" *****font-size:11px;">Toplam Ekilen Alan: 1. Üretim Toplamı: <b>172,776 da</b>, 2. Üretim Toplamı: <b>0 da</b>, Ara Ziraat Toplamı: <b>0 da</b></span></td>
</tr><tr *****height:5px;">
<td></td>
</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
<tr *****height: 26px; display: none; vertical-align: bottom">
<td align="right" colspan="3" *****vertical-align: bottom">
<table cellpadding="0" cellspacing="0" width="100%" *****vertical-align: bottom">
<tr>
<td class="footer_left">
&nbsp;
</td>
<td class="footer">
</td>
<td class="footer_right">
&nbsp;
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
[/html]

Cvp: web'ten tablo aktarmak - ozanakkaya - 12/11/2010

Sn ondercesmeci,
gönderdiğiniz Html kodlarını deneme fırsatım olmadı ama vb kodlarındaki dikkatimi çeken durumu belirteyim, belki çözüm hakkında fikir verir.

Function Aktar() kodunda;
Call Komut20_Click
Call tekrar
şeklinde kod yazmışsın.

Private Sub tekrar() kodunda da
Call Aktar
yazıyor.
Komut20_Click ise yeni kayıt ekleme kodu.
Sanırım problem burada.


Cvp: web'ten tablo aktarmak - ondercesmeci - 22/11/2010

Sn. sledgeab öncelikle sizin ve tüm arkadaşların kurban bayramını kutluyorum. cevabınız için teşekkürler sayenizde problemi hallettim.