ADO SQL VERI ALMA - EXCEL DOSYASINI AÇMADAN VERİ ALMA - KOD AÇIKLAMADA

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
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]='East'"
.Open
End With
With Sheet1
.UsedRange.Offset(1, 0).ClearContents
.Range("A2").CopyFromRecordset rs
.UsedRange.EntireColumn.AutoFit
End With
rs.Close: cn.Close
End Sub

Teşekkürler hocam, tam da bir SQL yığını ile karşılaşmıştım. Bu seri işe yarayacak. 👏🏻 👍🏻 💯

[@UzmanExcel]

Çok teşekkür ederim Muharrem Bey. Çok naziksiniz

[@mahmutnazik]

Hocam çok yararlı bir işlem olmuş elinize sağlık, bilen için çok basit bir kod olsa da bilmeyen için elmas niteliğinde. Devamını dört gözle bekliyorum

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz

[@ilyassaritas8537]

Yine her zaman ki gibi mükemmelsiniz hocam

[@UzmanExcel]

Çok teşekkür ederim İlyas Bey. Çok naziksiniz

[@adnankarabacak5878]

Mehmet Hocam , cifttirnak sorunu ben söyle bir cözüm buldum : With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .Properties("Data Source") = dosyaAdi .Properties("Extended Properties") = "Excel 12.0" .Open End With Ufkumuzu actiginiz icin Sag olun var olun. Harika gidiyor.

[@UzmanExcel]

Bu da güzel bir çözüm gerçekten. Elinize sağlık

[@sedataksakal414]

Çok geçmiş olsun. En yakın zamanda iyileşirsiniz inşallah. Yine harika bir ders serisi olacak şimdiden teşekkürler... ADO çok geniş bir alan. Başka bir şeye ihtiyaç duymadan verilerle hemen her şeyi yapmak mümkün. Ayrıca "Access" yönü var. Sizden bu dersleri takip etmek ayrı güzel olacak. Filtre ile gelen Recordset i Sayfaya yüklemek zaman kaybına neden oluyor. Sayfaya yazdırmadan Array a veya Listbox a yüklemek mümkün mü?

[@UzmanExcel]

Çok teşekkür ederim Sedat Bey. Kaptık şifayı. İnşallah kisa zamanda toparlarim. Ado ve sql kullanımı gerçekten veri yönetimi için çok önemli. Sayfaya kopyalamak yerine arr=rs.getrows derseniz direkt arraye alip listboxa yükleyebilirsiniz. Sonrasında benim clsArray2D classi ile de direkt yönetebilirsiniz array i

[@sedataksakal414]

@@UzmanExcel Sizin "clsArray2D" bir efsane zaten. arr=rs.getrows yapınca satır ve sütunlar birbirine karıştı :) Transpose ile yapmaya çalıştım ama olmadı. Biraz uğraşayım bakalım..

[@UzmanExcel]

Pazartesini bekleyin Sedat Bey. Size bir sürprizim olacak

[@senol_kahraman]

Merhaba Mehmet bey, elinize sağlık çok güzel bir uygulama, bir sorum olacaktı, veriyi filtreli olarak fakat başlıklarla birlikte alabilir miyiz?

[@UzmanExcel]

Serinin sonraki videolarini izleyebilirsiniz

[@mustafakurt3546]

ÇOK FAYDALI BİR VİDEO lakin mesele veri almak değil veri yollamak bence :D bu konuda da video bekleriz çok sağolun

[@UzmanExcel]

O da gelecek. Olacak bu seride

[@adnankarabacak5878]

Hocam , SQL bana cok basit geldi. Kendi platformda calismasi sevkli. VBA SqL icin bir döküman bir Forum , bilgi edinecek yer .varmi ?..Syntaxlar hemen hemen ayni gibi geldi bana. Tesekkürler Mehmet Hocam.

[@UzmanExcel]

Adnan Bey aslinda Vba sql yok. Direkt sql dilini burda kullanacağız. Sql kolay bir dil ama ustalığa ulaşması zor. Ado ile bu dili Excel içinde iyice kullanacağız

[@muhammedbakrkurt9428]

Tekrar merhabalar hocam, Sorum şu ki biz Select * [From] yapısı ile excel sayfasının ismini bilmek durumu söz konusu oluyor. Bazı zamanlar veri aldığımız safyalara otomotik bir şekilde isim atanıyor ve bizim hepsini bilmemize imkan yok. From ifadesinden sonra Sheet1 gibi bir ifade yazılabilir mi? Daha dogrus nasıl yazılır?

[@UzmanExcel]

Bir sonraki videoda cevabiniz :)

[@user-ex3jt8ll4p]

Hocam çok teşekkür ederim Allah razı olsun. İstirhamım olacak. Bir kayıt üzerinde işlem yaparken diğer kullanıcılara kayıt şu anda meşgul uyarısı veriliyor mu? yok gerek yok mu böyle bir duruma? ADO SQL komutlarında kullanılan dosya açma kilitleme ile ilgili açıklamasını da yapar mısınız? Tam olarak ADO SQL işlemlerinde düzenleme silme komple kayıtları silme listeleme mesela listbox da 10 lu 20 li şekilde sıralama yaptırabilir miyiz? < > > bu şekilde arama yaparak da listeme yapabileceğimiz küçük basit örnek yapabilir misiniz? bunla ilgili örnekler yok gibi. çok teşekkür ederim

[@UzmanExcel]

Çok teşekkür ederim. Yavaş yavaş bütün konuların videosu gelecek inşallah

[@muhammedbakrkurt9428]

Hocam, iyi günler, Umarım iyisinizdir. Sizlere bir sorum olacaktı bu konuya yakın. Veri analizi işi ile uğraşıyorum. Excel ve VBA destekli işler yapıyorum. 300K - 500K gibi satırlarda 80 sütunluk verileri hızlı analiz yöntemi olarak pivot tablolar ne kadar verimlidir? İlk Sorum bu şekilde, İkinci sorum ise VBA üzerinden arrayler üzerinden işem yapıyorumç Lakin her seferinden o denli veriyi tekrardan array olarak atamak bilgisayarı ciddi kasıyor. Bir kez veriyi array objesine tamaladıktan sonra exceli kapatınca kadar yeniden tanımlama yapmadan nasıl bir yol izlenebilir?

[@UzmanExcel]

Public olarak baska bir modulde tanitirsaniz dosya kapanana kadar calisir array

[@muhammedbakrkurt9428]

@@UzmanExcel Hocam sorun şu ki, tekrar tekrar kodları çağırmak gerektiğinde kodlar yine array tanımlamaya gidip tekrar tanımlama yaptırıyor.

[@UzmanExcel]

Public olarak tanimlarsaniz sonrasinda dim olarak tanimlamayi kaldirmaniz lazim. Bi kere set etmeniz de yeterli olur

[@sezginbulut44]

Eline sağlık

[@UzmanExcel]

Teşekkür ederim Sezgin. Sagolasin

[@erdemyildirim1770]

merhaba hocam, Sheet1.Range("A1").CopyFromRecordset rs burada başlıkları almıyordu bunu bulamadım başka vidoda, ben başlıklarıyla birlikte almak istiyorum. nasıl yaparız.

[@UzmanExcel]

Diger videolarda o da var :)

[@erdemyildirim1770]

@@UzmanExcel thanks hocam bakacağım :)

[@mahmutnazik]

Hocam peki içerir mantığı ile arama yapacak olursak "'*EAST*'" şeklinde denedim ama bir sonuca ulaşamadım, farklı bir yöntemi mi var

[@UzmanExcel]

Sql ile yapıyoruz artik sql de like operatoru ile yapılıyor bu işlemler. Ado demek sql demek aslında. Vba çok bisey yapmiyor

[@mahmutnazik]

@@UzmanExcel Çok teşekkür ederim, yönlendirmeniz sayesinde bunu da öğrendim.

[@muhammedbakrkurt9428]

Mehmet Hocam, CSV dosyalarını açmıyor. Ne yapmalıyız?

[@UzmanExcel]

Connection string degistirmek lazim diye düşünüyorum

[@muhammedbakrkurt9428]

@@UzmanExcel 2 gün uğraştım. Sonunda Hindistanlı kardeşler sağ olsun. Oldu..

[@UzmanExcel]

Hintli abiler candir. Sagolsunlar