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. 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"> </td> <td align="center" class="menu"> <span *****color:White;"> </span> </td> <td class="menu_right"> </td> </tr> <tr> <td align="right" colspan="3"> <a id="ctl00_hlKapat" title="Pencereyi Kapat" class="hyperLink" href="javascript:window.close();">Kapat</a> </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;"> </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;"> </td> </tr><tr> <td align="left" colspan="7" *****border-width:1px;border-style:solid;"> </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"> </td> <td class="footer"> </td> <td class="footer_right"> </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. |