e-okuldan toplam devamsızlık nasıl alınır (visual basic kodu ile)

Kodla Büyü
xoseng

xoseng

Site Gezgini
Mesajlar
65
Kod: 
<DIV align="right">
   <span id="lblDevamsizlikTanim"></span></DIV>
   </TD>
  </TR>
 </TABLE>
    </TD>
</TR>
  <TR>
<TD height="10"></TD>
       </TR>
<TR>
<TD height="10">
 <TABLE id="Table3" cellSpacing="0" cellPadding="0" width="100%" border="0">
       <TR>
<TD vAlign="top" align="left">
         <table id="tblOzurluDevamsizlikToplam">
    <tr>
        <td><TABLE class="frmDis" id="Table3" cellSpacing="0" cellPadding="0" width="250" border="0">  <TR class="frmListBaslik" >     <TD height="20"></TD>     <TD colspan = "3">Özürlü Devamsızlıklar</TD>    
 <TD ></TD>  </TR> <TR bgcolor = "#f5f5f5" >  <TD height="20"></TD>  <TD> İzinli </TD>  <TD> </TD>  <TD> 3 </TD>  <TD> </TD>  </TR> <TR >  <TD height="20"></TD>  <TD> Raporlu </TD>  <TD> </TD>  <TD> 5 </TD>  <TD> </TD>  </TR>  <TR bgcolor = "#eeeeee">  <TD height="20"></TD> 
 <TD> Özürlü Devamsızlık Toplamı </TD>  <TD> </TD>  <TD> 8 gün </TD>  <TD> </TD>  </TR>  <TR>     <TD width="4%" height="1"></TD>     <TD width="75%" height="1"></TD>     <TD width="2%" height="1"></TD>     <TD width="25%" height="1"></TD>     <TD width="4%" height="1"></TD>  </TR>  </table> </td>
    </tr>
</table></TD>
            <TD vAlign="top" align="center" width="33%">
      <table id="tblOzursuzDevamsizlikToplam">
    <tr>
        <td><TABLE class="frmDis" id="Table3" cellSpacing="0" cellPadding="0" width="250" border="0">  <TR class="frmListBaslik">     <TD height="20"></TD>     <TD colspan = "3">Özürsüz Devamsızlıklar</TD>     <TD ></TD>  </TR> <TR bgcolor = "#f5f5f5" >  <TD height="20"></TD>  <TD> Öğleden Sonra Yarım Gün </TD>  <TD> </TD>  <TD> 2 </TD>  <TD> </TD>  </TR> <TR >  <TD height="20"></TD>  <TD> Sabahtan Yarım Gün </TD>  <TD> </TD>  <TD> 1,50 </TD>  <TD> </TD>  </TR> <TR bgcolor = "#f5f5f5" >  <TD height="20"></TD>  <TD> Tam Gün </TD>  <TD> </TD>  <TD> 50 </TD>  <TD> </TD>  </TR> <TR >  <TD height="20"></TD>  <TD> Geç (0 geç gelme) </TD>  <TD> </TD>  <TD> 0 </TD>  <TD> </TD>  </TR>  <TR bgcolor = "#eeeeee">  <TD height="20"></TD>  <TD> Özürsüz Devamsızlık Toplamı </TD>  <TD> </TD>  <TD> 53,5 gün </TD>  <TD> </TD>  </TR>  <TR>     <TD width="4%" height="1"></TD>     <TD width="75%" height="1"></TD>     <TD width="2%" height="1"></TD>     <TD width="25%" height="1"></TD>     <TD width="4%" height="1"></TD>  </TR>  </table> </td>
    </tr>
</table></TD>
                                                        <TD vAlign="top" align="right" width="33%">
                                                            <table id="tblGecDevamsizlikToplam">
    <tr>
        <td><TABLE class="frmDis" id="Table3" cellSpacing="0" cellPadding="0" width="250" border="0">  <TR class="frmListBaslik">     <TD height="20"></TD>     <TD colspan = "3">Devamsızlıktan Sayılmayan Süreler</TD>     <TD ></TD>  </TR>  <TR bgcolor = "#eeeeee">  <TD height="20"></TD>  <TD> Süre Toplamı </TD>  <TD> </TD>  <TD> 0 gün </TD>  <TD> </TD>  </TR>  <TR>     <TD width="4%" height="1"></TD>     <TD width="75%" height="1"></TD>     <TD width="2%" height="1"></TD>     <TD width="25%" height="1"></TD>     <TD width="4%" height="1"></TD>  </TR>  </table> </td>
    </tr>
</table></TD>
                                                    </TR>
                                                </TABLE>
                                            </TD>
                                        </TR>
                                        <TR>
                                            <TD height="10"></TD>
                                        </TR>
                                        <TR>
                                            <TD height="10"> <span id="lblAciklamaGec" class="frmIc" style="font-weight:bold;">1. Ortaöğretim Kurumları Yönetmeliği; Madde 35-(1) (Değişik:RG-16/9/2017-30182) Geç gelme birinci ders saati için belirlenen süre ile sınırlıdır. Ancak her beş defa geç kalma yarım gün devamsızlıktan sayılır. Bu sürenin dışındaki geç gelmeler devamsızlıktan sayılır.<br>2. Öğrenciler için girilen geç devamsızlık bilgisi yukarıdaki yönetmeliğin ilgili maddesi gereği sistem tarafından otomatik olarak hesaplanmaktadır. Öğrenciler için ayrıca özürsüz yarım gün devamsızlık bilgisi girilmemelidir.</span></TD>
                                        </TR>
                                        <TR>
                                            <TD height="10"></TD>
                                        </TR>
                                    </TABLE>
                                </TD>
                            </TR>
                            <TR>
                                <TD vAlign="top" width="10" height="20"></TD>
                                <TD width="95%" height="20"></TD>
                                <TD width="10" height="20"></TD>
                            </TR>
                            <TR>
                                <TD vAlign="top" width="10" height="10"></TD>
                                <TD width="95%" height="10">
                                </TD>
                                <TD width="10" height="10"></TD>
                            </TR>
                            <TR>
                                <TD vAlign="top" width="10" height="20"></TD>
                                <TD width="95%" height="20"></TD>
                                <TD width="10" height="20"></TD>
                            </TR>
                        </TABLE>
                    </TD>
                </TR>
                <TR>
                    <TD vAlign="top" width="130" height="3"></TD>
                    <TD vAlign="top" align="center" width="100%" height="3"></TD>
                </TR>
                <TR>
                    <TD vAlign="top" width="130" height="100%"></TD>
                    <TD vAlign="top" align="center" width="100%">
                       
<div id="OOMPageFooter1_pnlEski">
sayfa kodu içerisindeki id="tblOzurluDevamsizlikToplam" ve id="tblOzursuzDevamsizlikToplam" larını visual basic kodu ile nasıl alabilirim (access veyya excel için). lütfen yardımcı olabilir misiniz.
 
WebBrowser1.Document.GetElementById("tblOzurluDevamsizlikToplam").GetAttribute("value")

deneyebilirsin
 
Kod: 
Me.ozurluD = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").getAttribute("value")
Me.ozursuzD = WebBrowser.Document.getElementById("tblOzursuzDevamsizlikToplam").getAttribute("value")
kodlarını denedim veri almıyor, veri tablo öğesi içinde olduğu için olabilir mi
 
Kod: 
ozurluD = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").getElementsByTagName("tr")(0).getElementsByTagName("td")(0)(0).getElementById("Table3").getElementsByTagName("tr")(3).getElementsByTagName("td")(3).innerText

Dener misiniz hocam
 
manyakkedi' Alıntı:
Kod: 
ozurluD = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").getElementsByTagName("tr")(0).getElementsByTagName("td")(0)(0).getElementById("Table3").getElementsByTagName("tr")(3).getElementsByTagName("td")(3).innerText

Dener misiniz hocam
Genişletmek için tıkla ...

Hocam, Şu hata kodu geliyor .
Run-Time Error '424';
Object required
 
Kod: 
ozurluD = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").getElementsByTagName("tr")(0).getElementsByTagName("td") (0).getElementById("Table3").getElementsByTagName("tr")(3).getElementsByTagName("td")(3).innerText

Arada sıfırın birini fazladan sallamışım.
 
manyakkedi' Alıntı:
Kod: 
ozurluD = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").getElementsByTagName("tr")(0).getElementsByTagName("td") (0).getElementById("Table3").getElementsByTagName("tr")(3).getElementsByTagName("td")(3).innerText

Arada sıfırın birini fazladan sallamışım.
Genişletmek için tıkla ...
Hocam, bunun için şu hata mesajı geliyor;
Run-Time '438':
Object dosen't support this property or method
 
Çalışmada deneme yapmak için bir dosya ekliyorum. (ek dosya: Office 2016 64 bit Access) Yardımlarınızı bekliyorum.
 

Ekli dosyalar

  • WebBrowser_Devamsizlik_Almak.v.1.rar
    614.2 KB · Görüntüleme: 18
Son düzenleme:
xoseng' Alıntı:
Çalışmada deneme yapmak için bir dosya ekliyorum. (ek dosya: Office 2016 64 bit Access) Yardımlarınızı bekliyorum.
Genişletmek için tıkla ...
Hocam eokula giriş yaptıktan sonra devamsızlığı almaya çalışıyorsunuz değil mi? (Ki ben e-okul ana sayfasından giriş yapamadım. Kullanıcı adı şifre yazılacak kısım açılmıyor)
 
manyakkedi' Alıntı:
Hocam eokula giriş yaptıktan sonra devamsızlığı almaya çalışıyorsunuz değil mi? (Ki ben e-okul ana sayfasından giriş yapamadım. Kullanıcı adı şifre yazılacak kısım açılmıyor)
Genişletmek için tıkla ...
evet hocam, hazırladığım bir access tablo ve ona bağlı form var. Form içerisinde WebBrowser ile anlık güncel öğrenci bilgileri ile çalışmak için. Örneğin bugünkü bir durumdan bahsedeyim, Yetim öğrenci bilgileri lazım oldu ve devamsızlık durumları lazım oldu. access te verileri karşılaştırmak ve istenilen öğrencilere ulaşmak daha hızlı ve kolay. e-okulda yüzlerce öğrenci için bunu yapmak mümkün değil.
 
manyakkedi' Alıntı:
Hocam eokula giriş yaptıktan sonra devamsızlığı almaya çalışıyorsunuz değil mi? (Ki ben e-okul ana sayfasından giriş yapamadım. Kullanıcı adı şifre yazılacak kısım açılmıyor)
Genişletmek için tıkla ...
bunun için sanırım regedit dosyası lazım olabilir. ekliyorum. Önceki mesajda bunu eklemek aklıma gelmemişti. Kusura bakmayın
 

Ekli dosyalar

  • reg_eokul_access.rar
    319 bayt · Görüntüleme: 10
Kod: 
VB
If OzurluID = "tblOzurluDevamsizlikToplam" Then
        Set satırlar = WebBrowser.Document.getElementById(OzurluID).getElementsByTagName("tr")
            Dim yazıyıbul As String
        For Each satır In satırlar
            yazıyıbul = satır.getElementsByTagName("td")(1).innertext
        If Trim(yazıyıbul) = "Özürlü Devamsızlık Toplamı" Then
            Me.ozurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
        End If
        Next satır
    End If
    
    If OzursuzID = "tblOzursuzDevamsizlikToplam" Then
        Set satırlar = WebBrowser.Document.getElementById(OzursuzID).getElementsByTagName("tr")
            Dim yazıbul As String
        For Each satır In satırlar
            yazıbul = satır.getElementsByTagName("td")(1).innertext
        If Trim(yazıbul) = "Özürsüz Devamsızlık Toplamı" Then
            Me.ozursuzD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
        End If
        Next satır
    End If
kodlarını denedim. Hata vermedi ama bilgiyi de almıyor. Yardımcı olabilir misiniz.
 

Ekli dosyalar

  • Accesste Web Tarayıcısından Devamsızlık Toplamı Almak.v.1.rar
    618 KB · Görüntüleme: 7
bildiğim kadarıyla excel' de kod yazmadan veri menüsünden içe aktarabilirsiniz. Doğrusu tam olarak amacınızı anlamadım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst