Sorgu için arama sonuçları: adodb

aşağıdaki kodu dener misiniz? Türkçe karakter desteği için CreateObject("ADODB.Stream") ile .Charset = "UTF-8" kullanılmıştır Sub CSV_Stream_hy() Dim folderPath As String Dim csvFile As String Dim ws As Worksheet Dim lastRow As Long Dim fileName As String Dim...

...As String, Sorgu As String WB1 = ActiveWorkbook.FullName WB2 = ActiveWorkbook.Path & "\KAPALI.xlsx" Set Baglanti = CreateObject("AdoDb.Connection") Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ WB1 & "; Extended Properties=""Excel...

...Dim rs As Object Dim md1 As String Dim Sorgu As String Dim dataArray As Variant Dim i As Long Set Con = VBA.CreateObject("adodb.Connection") md1 = "C:\Belgelerim\Kitap.xlsb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & md1 & ";extended...

Private Sub CommandButton1_Click() Set Con = VBA.CreateObject("adodb.Connection") md1 = "C:\Belgelerim\Kitap.xlsb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & md1 & ";extended properties=""Excel 12.0;hdr=yes""" Sorgu = "select * from [Sayfa1$A1:K]" Set rs...

...aşağıdaki kolar ile alamıyorum. Yardımcı olacaklara şimdiden teşekkürler. Private Sub CommandButton1_Click() Set Con = VBA.CreateObject("adodb.Connection") md1 = "C:\Belgelerim\Kitap.xlsb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & md1 & ";extended properties=""Excel...

...Çalışmalar Sub Test() Dim Con As Object sorgu = "Select F1, 'Split([F3], '_')(0) & " ' From [Panel$J2:AF] " Set Con = VBA.CreateObject("Adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

Verdiğiniz cevap biraz kafa karıştırıcı) Sorun çözüldü mü çözülmedi mi? Referans tanımlı mi değil mi anlamadım.

Aynen hocam ADODB konusuna pazar günü forumda çok değerli Erdem Akdemir hocamın youtube derslerine başladım. Çalıştığım firmada ağda veri almayı makro kaydet ile halletmiştim ama yavaş çalışıyordu. Bu video çok güzel anlatım ve örneklerle oluşturulmuş.

Eğer referanssız kullanmak isterseniz Dim xCN As Object Dim xRS As Object Set xCN = CreateObject("Adodb.Connection") Set xRS = CreateObject("adodb.Recordset") yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_DEDAPACK.xlsm" xCN.ConnectionString =...

...user-defined type no defined şeklinde aşağıdaki gibi Dim ekleme yaptım aynı hatayı veriyor Sub bağlan() Sayfa5.Cells.Clear Dim con As ADODB.Connection Dim rs As ADODB.Recordset Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol =...

Merhaba, Bulunduğu bilgisayarda çalışan aşağıdaki kod ile Ağdan veri almak istedeğimde "Set con = New ADODB.Connection" satırı hata veriyor. Nasıl düzeltebiliriz. Teşekkür ederim. Sub bağlan() Sayfa5.Cells.Clear Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol =...

...fonksiyonu kullanımını nasıl düzenleyebiliriz? yardımlarınız için şimdiden teşekkür ederim. iyi çalışmalar. Set Con = VBA.CreateObject("Adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

Bu konu eski biraz ama bu kod ile veri çektiğimde ikinci sayfayı 4 kez ard arda kopyalamış oluyor neden yaptığını anlıyamadım yardımcı olabilirmisiniz. şimdiden tşk.ler

Hocam eline sağlık kod çalıştı.

...xAlanDz(0) = "A:T" xAlanDz(1) = "BN:BS" xAlanDz(2) = "AQ:BL" Dim xSQL As String Dim xCN As Object Dim xRS As Object Set xCN = CreateObject("Adodb.Connection") Set xRS = CreateObject("adodb.recordset") xCN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" &...

Musa Hocam desteğiniz için teşekkürler, yukarıdaki kodlar tek bir alan [Alan1] içinde filtreleme yapmakta; buradaki kritere ilavaten 2. bir alanı [Alan2] daha koşul olarak eklemek istersek; kod üzerinde nasıl bir düzenleme yapılabilir? Alan1 deki koşula ilavaten aynı şekilde; Alan2 içerisinde...

...= False Zaman = Timer myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK" Set adoCN = VBA.CreateObject("ADODB.Connection") Set RS = VBA.CreateObject("ADODB.Recordset") adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data...

Merhaba, With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ ThisWorkbook.FullName .Execute " UPDATE [Sheet1$] " & _ " SET [Baslik1] = LEFT([Baslik1]...

...Application.ScreenUpdating = True Dim s5 As Worksheet Set s5 = Sheets("Hisseler") ListBox1.Clear Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes""" sorgu = "select...

...dz(4) = syf.Range("N1") Dim dzA As Variant Dim SQL As String Dim xCn As Object Dim xRs As Object Set xCn = CreateObject("Adodb.Connection") Set xRs = CreateObject("adodb.recordset") yol = ThisWorkbook.Path & "\" Set evn = CreateObject("scripting.filesystemobject") Set klasor =...