Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/06/2019 20:46
Konu Sahibi
feraz
Yorumlar
6
Okunma
206
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Çözüldü 
Merhaba.

Excele kapalı accessden tablo adı getiiriyorum.
Fakat resimdede görüldüğü gibi gizli olanlarda geliyor.

[Resim: do.php?thmb=9096]

Gizli olanların gelmemesi için ne yapmak gerek?

Teşekkürler.



userx

userx

Üye
9174
 37
 0
 6
 24/08/2009
6
 -
 
 -
 Dün,13:34
Tabloların alt tarafındaki alana sağ tıklayın...


Ekran Görüntüleri
       
userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.

...........
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Konuyu yanlış yazmışım.
Tabloları ben görünür yaptım ayarlardan.

Excele gelecek tablo adı resimdeki gizli olanlar gelmeyecek.
Kodlar Excel içinde.



userx

userx

Üye
9174
 37
 0
 6
 24/08/2009
6
 -
 
 -
 Dün,13:34
Sub sayfaisimlerinial(ByRef DosyaUzunismi As String, ByRef Sayfaisimlerilistesi() As String)

    Dim objBaglanti As Object
    Dim adoverisi As Object
    Dim sayfaindis As Long
    Dim adobaglanti As String
    Dim sayfaisimleri As String
    
    Erase Sayfaisimlerilistesi()
    
    adobaglanti = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaUzunismi
    
    Set objBaglanti = CreateObject("ADODB.Connection")
    objBaglanti.Open adobaglanti
    Set adoverisi = objBaglanti.openschema(20)
    
    Do While Not adoverisi.EOF
        If LCase(Left(adoverisi.Fields("TABLE_NAME").Value, 4)) <> "msys" Then
            sayfaisimleri = adoverisi.Fields("TABLE_NAME").Value
            sayfaisimleri = Replace(adoverisi.Fields("TABLE_NAME").Value, "''", "'")
            ReDim Preserve Sayfaisimlerilistesi(0 To sayfaindis)
            Sayfaisimlerilistesi(sayfaindis) = sayfaisimleri
            sayfaindis = sayfaindis + 1
        End If
        adoverisi.movenext
    Loop
    
    adoverisi.Close
    Set adoverisi = Nothing
    objBaglanti.Close
    Set objBaglanti = Nothing


End Sub


userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.

...........
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Mobilden kodun inceledim.Pasif yaptığım if kodlarını aktif yapmışsınız.
Ben extra pasip yapmıştım baş yoldan çözüm için.



halily

halily

Uzman
65596
Ha....
 26
 1.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
Sorunuz "Excel Soruları ve Cevapları" bölümüne taşınmıştır



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mevcut Olan Veri Yapısının, Veritabanı Tablo Yapısına Çevrilmesi. direnist 7 911 14/07/2018, 20:56
Son Yorum: Mehmet Emin Alkan
Çözüldü Php Mysqli Aynı Anda İki Farklı Tablo Güncelleme serkandiker 4 423 25/06/2018, 11:25
Son Yorum: ozguryasin
Çözüldü 2 tablo arasındaki Farklar Durmuş Okur 3 1.532 12/09/2016, 11:01
Son Yorum: atoz112
Çözüldü Alfa-numerik alanlarda min ve max degerleri getirme Accessive 4 1.268 10/06/2016, 20:29
Son Yorum: Accessive
Çözüldü excelde tablo içinde yer eşleştirme orhanbalcı 5 1.843 05/06/2016, 15:59
Son Yorum: atoz112

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