Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
23/12/2010 15:37
Konu Sahibi
silka
Yorumlar
9
Okunma
2693
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

silka

Aktif Üye
Aktif Üye
ME.... GÖ....
 37
 136
 29
 01/11/2008
20
 İstanbul
 
 Ofis 2007
 07/05/2018,13:55
Çözüldü 
İlk önce herkese selamlar,

TR class="QueryTitleTable"
table class="DataGrid" cellspacing="0" cellpadding="4" rules="all" border="1" id="KisiGrid" style="background-color:White;border-
span id="KisiGrid_ctl02_Label5" NAME="Label1">YAKINLIĞI</span>
span id="KisiGrid_ctl02_Label3" NAME="Label1">T.C. NO</span>
span id="KisiGrid_ctl02_Label2" NAME="Label1">ADI</span>
span id="KisiGrid_ctl02_Label4" NAME="Label1">SOYADI</span>
span id="KisiGrid_ctl02_Label6" NAME="Label1">DOĞUM TARİHİ</span>
class="DataGridAlternatingItem" .........
………… üstte yazılanların aynısı devam ediyor sadece ctl02 yerine ctl03,04,05,06…. Kaç veri varsa o tabloda o şekilde devam ediyor. Kişiyi sorguladığımda kaç veri geleceğini bilemediğim için metin kutusu ile işlemi yapamıyorum. O yüzden yukarıda yazılan kaynak kodlarına göre kişiyi sorguladığımda tabloyu tek tek yerine toplu şekilde tabloyu alabilmem mümkün mü? veya tabloyu alamazsam bile ilk veriyi aldıktan sonra kendisi otomatik olarak yeni bir satır açıp ikinci veriyi yazabilirmi?

Me.ADI.Value = WebBrowser1.Document.All("KisiGrid_ctl02_Label5").innerText bu kodu yazarak tek tek alıyorum.

Statik ip ile açılan bir Site olduğu için burda yayınlayamıyorum.



Kullanici Avatari

silka

Aktif Üye
Aktif Üye
ME.... GÖ....
 37
 136
 29
 01/11/2008
20
 İstanbul
 
 Ofis 2007
 07/05/2018,13:55
Çözüldü 
konu ile ilgili daha kimse bakmadı galiba



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:19
Çözüldü 
sn silka,

Sayfa kaynağının tamamını gönderiniz. Veya sayfayı farklı kaydederek konuya ekleyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

silka

Aktif Üye
Aktif Üye
ME.... GÖ....
 37
 136
 29
 01/11/2008
20
 İstanbul
 
 Ofis 2007
 07/05/2018,13:55
Çözüldü 
sleadgab hocamın istediği kaynak kodlarını ekledim.


Ek Dosyalar
.htm   index.htm(Dosya Boyutu: 25,3 KB / İndirme Sayısı: 8)

.txt   KAYNAK KODLARI.txt(Dosya Boyutu: 25,3 KB / İndirme Sayısı: 16)

Kullanici Avatari

silka

Aktif Üye
Aktif Üye
ME.... GÖ....
 37
 136
 29
 01/11/2008
20
 İstanbul
 
 Ofis 2007
 07/05/2018,13:55
Çözüldü 
(23/12/2010 15:37)silka Adlı Kullanıcıdan Alıntı: İlk önce herkese selamlar,

TR class="QueryTitleTable"
table class="DataGrid" cellspacing="0" cellpadding="4" rules="all" border="1" id="KisiGrid" style="background-color:White;border-
span id="KisiGrid_ctl02_Label5" NAME="Label1">YAKINLIĞI</span>
span id="KisiGrid_ctl02_Label3" NAME="Label1">T.C. NO</span>
span id="KisiGrid_ctl02_Label2" NAME="Label1">ADI</span>
span id="KisiGrid_ctl02_Label4" NAME="Label1">SOYADI</span>
span id="KisiGrid_ctl02_Label6" NAME="Label1">DOĞUM TARİHİ</span>
class="DataGridAlternatingItem" .........
………… üstte yazılanların aynısı devam ediyor sadece ctl02 yerine ctl03,04,05,06…. Kaç veri varsa o tabloda o şekilde devam ediyor. Kişiyi sorguladığımda kaç veri geleceğini bilemediğim için metin kutusu ile işlemi yapamıyorum. O yüzden yukarıda yazılan kaynak kodlarına göre kişiyi sorguladığımda tabloyu tek tek yerine toplu şekilde tabloyu alabilmem mümkün mü? veya tabloyu alamazsam bile ilk veriyi aldıktan sonra kendisi otomatik olarak yeni bir satır açıp ikinci veriyi yazabilirmi?

Me.ADI.Value = WebBrowser1.Document.All("KisiGrid_ctl02_Label5").innerText bu kodu yazarak tek tek alıyorum.

Statik ip ile açılan bir Site olduğu için burda yayınlayamıyorum.

kaynak kodlarının tamamını ekledim.



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:19
Çözüldü 
Eklediğiniz kaynak kodları https://www.accesstr.net/sitegenel/webdeneme.htm adresine kaydedip form üzerine bu sayfayı çağırdım.

Siz koddaki

Visual Basic Code
WebBrowser1.Navigate "https://www.accesstr.net/sitegenel/webdeneme.htm"

satırını kendi sayfanıza göre düzenleyiniz.

form açıldığında butona tıkladığınızda webbrowserdaki verileri tabloya aktarır. Kullanılan kod aşağıdadır.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub Komut7_Click()

    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim HTML_TableRows As Object
    Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer
        
        Set IE = Me.WebBrowser1
        Set HTML_Body = IE.Document.All
        Set HTML_Tables = HTML_Body.tags("Table")
        Set MyTable = HTML_Tables(11)
        Set HTML_TableRows = MyTable.GetElementsByTagName("tr")
        For Each MyRow In HTML_TableRows
            X = X + 1
        Next
        
        SATIRSAYISI = (X - 1) / 1 ':)

        ReDim Sorgu(5, SATIRSAYISI - 1)
     
        X = 0
        For X = 0 To SATIRSAYISI - 1
        
          A = 1 + (1 * X)    '  :)
                                
            Sorgu(0, X) = MyTable.Rows(A).Cells(1).innerText
            Sorgu(1, X) = MyTable.Rows(A).Cells(2).innerText
            Sorgu(2, X) = MyTable.Rows(A).Cells(3).innerText
            Sorgu(3, X) = MyTable.Rows(A).Cells(4).innerText
            Sorgu(4, X) = MyTable.Rows(A).Cells(5).innerText
            Sorgu(5, X) = MyTable.Rows(A).Cells(6).innerText
        
         Next X

    Dim rc As DAO.Recordset
    Set rc = CurrentDb.OpenRecordset("Tablo1")
    
    X = 0
    
    For X = 0 To SATIRSAYISI - 1
    
        rc.AddNew
        
           rc![bsn] = Sorgu(0, X)
           rc![yakinligi] = Sorgu(1, X)
           rc![tcno] = Sorgu(2, X)
           rc![adi] = Sorgu(3, X)
           rc![soyadi] = Sorgu(4, X)
           rc![dogumtarihi] = Sorgu(5, X)

        rc.Update
    Next X
    
    Set rc = Nothing
    Me![Tablo1 alt formu].Requery
    
        GoTo SafeExit:
ErrHandler:
SafeExit:
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set HTML_TableRows = Nothing
    Set HTML_TableDivisions = Nothing
    Set IE = Nothing

End Sub


Ek Dosyalar
.rar   mernis_deneme_sled.rar(Dosya Boyutu: 22,35 KB / İndirme Sayısı: 24)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Liste Kutusundaki Tutarların Toplamını Almak Allback 1 71 04/09/2018, 15:47
Son Yorum: Allback
Çözüldü Bağlı Tablo Bilgileri Gösterme Ve Yenileme Hata ielmacilar 3 158 28/08/2018, 23:52
Son Yorum: mehmetdemiral
Çözüldü Nesne-Form "özellik Sayfası" Problemi notrino 5 112 16/08/2018, 12:46
Son Yorum: notrino
Çözüldü Şartlı Rapor Almak m_demir 27 603 03/08/2018, 18:59
Son Yorum: m_demir
Çözüldü Kod İle İnternet Sayfası Açtırma te-kin 2 101 28/07/2018, 12:40
Son Yorum: te-kin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.