• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Verileri Direk ListViewe Nasıl Alırım.

U

unalh

Katılım
15 Ocak 2009
Mesajlar
257
Excel Vers. ve Dili
Türkçe 2010
S.a. Arkadaşlar,

Ekli dosyada Netsis'ten excel'e veri alabiliyorum benim yapmak istediğim verileri excel sayfasına almadan direk listviewe almak.

Yardımlarınız için şimdiden teşekkür ederim.

Hayırlı işler.
 

Ekli dosyalar

Ekteki dosyayı deneyiniz.:cool:
Kod: 
Sub veri_getir()
Dim SqlText As String
Dim conn, rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
ListView1.ListItems.Clear
 With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=.......;USER ID=........;PASSWORD=.......;AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = "..........."
    End With
    SqlText = "SELECT *"
    SqlText = SqlText + " FROM TBLCASABIT where CARI_ISIM like '" & TextBox1.Text & "%';"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    rs.MoveFirst
    Do While Not rs.EOF
        i = i + 1
        ListView1.ListItems.Add , , rs("CARI_KOD").Value
        ListView1.ListItems(i).SubItems(1) = rs("CARI_ISIM").Value
        rs.MoveNext
    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub
 

Ekli dosyalar

Ayniş dosyada yeni bir sayfa oluşturun.
Aşağıdaki kodları boş bir standart modüle kopyalayın.Ve çalıştırın.
Görelim bakalım kolon isimlerini.Hangi kolon kod no su hangi kolon(Yani kaçıncı kolon) cinsi ?
Sonra yazın buradan kolon adları.A aütununa listtelencek kolon adları.
Kod: 
Sub kolon_isimleri()
Dim SqlText As String
Dim conn, rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
ListView1.ListItems.Clear
 With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=.......;USER ID=........;PASSWORD=.......;AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = "..........."
    End With
    SqlText = "SELECT *"
    SqlText = SqlText + " FROM TBLCASABIT"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1).Value = rs1.Fields(i).Name
    Next
End With
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
End Sub
 
O satırı aşğaıdaki ile değişitirn.:cool:
Kod: 
Cells(1, i + 1).Value = rs.Fields(i).Name

Hocam bu satırda hata veriyor

Cells(1, i + 1).Value = rs1.Fields(i).Name
 
CARI_KOD
CARI_ISIM

Bu iki başlık benim için yeterli olacak.
 
unalh' Alıntı:
Cari kodlar geliyor fakat Cari isimler gelmiyor
Genişletmek için tıkla ...
Resim çekermiisniz.
Cari isim yerine cari isimlerin başka tabloda id noları gelebilir.
İsimler başka bir tabloda tutuluyor olabilir.
Orayla ilişki kurmak veya inner join ile bağlanmak lazım yazdığınız sql sorgusu için txt satırnda.:cool:
 
Gözden bir şey kaçırmışık.
Şimdi olacak.
2 numaralı mesajda dosyyaı güncelledim.:cool:
 
Evren hocam günaydın.
Elinize sağlık sorunsuz çalışıyor çok teşekkür ederim.

Hocam birde arama kriteri eklemek istiyorum bunada bir bakabilimisiniz.
 

Ekli dosyalar

unalh' Alıntı:
Evren hocam günaydın.
Elinize sağlık sorunsuz çalışıyor çok teşekkür ederim.

Hocam birde arama kriteri eklemek istiyorum bunada bir bakabilimisiniz.
Genişletmek için tıkla ...
Dosyanız 2 numaralı mesajda güncellenmiştir.
Başlar şeklinde listeler.:cool:
 
unalh' Alıntı:
Hocam dosya aynı güncellenmemiş
Genişletmek için tıkla ...
Güncelledim kontrol ettim.
Bakın veri getir prosedürüne aşağıdaki kod gibimi
eğer öyleyse güncelnmişitir.Değilse başka dosyay bakıyorsunuz.:cool:
O zman aşağıdaki kodu eskiisniğn yerine koyun
Kod: 
SqlText = SqlText + " FROM TBLCASABIT where CARI_ISIM like '" & TextBox1.Text & "%';"
 
Evren hocam ilginize çok teşekkür ederim.

İşlem tamamdır.

Hayırlı haftalar.
 
Hocam şöyle bir durum var arama yaparken i-ş-ü gibi harfleri aramıyor
 
Hocam şöyle bir durum var arama yaparken i-ş-ü gibi harfleri aramıyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst