ADO SQL VERI ALMA - SORU CEVAP - VERİLERİ LİSTBOX'A YÜKLEMEKE

VBA VE EXCEL İLE İLGİLİ KURUMSAL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.

Option Explicit

Public Sub VeriAlmaADO()

Dim dosyaAdi As Variant
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim arr As New clsArray2D
Dim arrListBox As Variant

dosyaAdi = Application.GetOpenFilename(, , , , False)
If dosyaAdi = False Then Exit Sub
If dosyaAdi = ThisWorkbook.FullName Then Exit Sub

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data " & _
"Source=" & dosyaAdi & ";Extended Properties='Excel 12.0 Xml;HDR=YES';"

cn.Open

Set rs = New ADODB.Recordset

With rs
.ActiveConnection = cn
.Source = "SELECT * FROM [SalesOrders$] WHERE [Region]='Central'"
.Open
End With

'Sedat Beyin Sorusunun Cevabini
'--------------------------------------------
arr.TekrarEdenleriKaldir False, 3
arr.Sirala 3, True
arrListBox = arr.TekBoyutluyaCevir(3)
UserForm1.ListBox1.List = arrListBox
UserForm1.Show
'--------------------------------------------

rs.Close: cn.Close

End Sub

[sedataksakal]

Tek kelimeyle harika.

Sizin Array kütüphaneniz gerçekten efsane bir çalışma.
Çok kolay dediğiniz hareketler arkadan çalışan süper bir motor ile güzel işler çıkartıyor.
Sade anlatımınız, kısa, güçlü ve hızlı çalışan kodlar ile VBA çok zevkli bir hale geliyor...
Emeğiniz için Teşekkür ederim.
Sayenizde SQL Sorgulam yöntemlerinin zenginliği ile listeleme, süzme, gruplandırma ve bir kaç farklı tablodan veri alma ve pivot tarzı toplam raporlar alabileceğiz diye düşünüyorum. :)
Herhalde bir class oluşturup ADO tanımlama/bağlantı oluşturma/bağlantıyı kapamayı oraya atsak sadece sorgulamayı modüle yazsak olur değil mi?

[mahmutnazik]

Elinize sağlık hocam yine çok yararlı bir video olmuş

Hocam geçmiş olsun acil şifalar dilerim. Yazdığınız array class'ı farklı yöntem ve uygulamalarla çalıştırınca daha verimli olduğunu gördüm. Belki bundan sonraki aşamada, SQL dosyası üzerinde kullanıcının belirlediği sayıda ve öncelik sıralamasıyla veriyi filtreleyip array'a almak etkili olabilir.

[yunusugurlu]

Elinize sağlık hocam access bağlanma veri sorgulama ile ilgili vide yapabilirmisiniz

[Tural]

Geçmiş olsun hocam acil şifalar. Her zaman kimi çok Harika bir çalışma olmuş. Hocam accessden veri çekerken tablonun istediğimiz sütununun genişliğinin ne kadar olduğunu Vba-la ala ve genişliği değiştire bilimiyiz?

[FatihGulcanEkim-bdqs]

Hocam hayırlı akşamlar, allah razı olsun emeklerinizden dolayı. Bu kodları yazıyoruz fakat yazdığımız kodları excel içinde nasıl çalıştırıyoruz ? Butonmu atıyoruz macrolar gibi ? Kendime göre bişeyler yazdım ama bir buton atayıp çalıştıramadım.. 😂😊 Bununla ilgilide kısa bir video yapsanız çok memnun oluruz.

[adnankarabacak]

Degerli Bilgiler icin Tesekkürler Mehmet Hocam, Siz bir Videonuzda Kapali bir Dosyadan Veri alabilirsiniz, Ama Veri yazamazsiniz demistiniz yanlis Hatirlamiyorsam.
Bunu Call con.open(connectionString) metoduyla Dosya acilmadan veya gizli acip Dosyaya Veri mi ekliyor.? Gecmis olsun .kendini iyi Bak Mehmet Hocam.

[exjtllp]

Teşekkürler hocam. Şimdi burada çok az tekrarlanan var. 100'den fazla tekrarlanan olur ise listbox'ta tek tek aşağı doğru inerek arama yerine textbox'ta arama yaparak listbox'ta listelemeye örnek verebilir misiniz?

[picointürk]

Word den bilgi çekebilirmiyiz veya Excelde kaydedilenleri word e otomatik nasıl çektirebiliriz hocam

[MK-fopu]

öncelikle geçmiş olsun bu yöntem ile sadece c sütunundaki verileri çekmek istesek nasıl bir değişiklik yapmamız gerekir

[samireliyev]

Selam Mehmet hoca nasilsiniz?Hocam 65.000'in üzeri satirli verilerde connection methodu ilə bağlanmak çok geç suruyor.lütfen çözümünü söyler misiniz?

[hakanbahar]

Ado ile excel den veri tabanındaki veride değişim yada ekleme yapılabiliyor mu