Sorgu için arama sonuçları: adodb.Connection

...kaydını yapacaksınız. İşte sorununuzu çözmek için düzenlenmiş kod örneği: Dim sSql As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=sqloledb;Data Source=sunucu;Initial Catalog=kasa;User Id=Kullanıcı;Password=Sifresi"...

...sorun yok ama where ile koşul verince where komut hatası alıyorum. Dim sSql As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Dim cmdObj As ADODB.Command Dim qf As Object Dim mySubtotal As Double Set cn = New ADODB.Connection cn.Open "Provider=sqloledb;Data Source=sunucu...

Hocam çok teşekkürler dönüşünüz için. ilk makroda şu kod cn.Execute strSQL hata verdi. Sonra dosya yolunda kullanıcı profilini sinan yaptım. bu sefer .Open kodu hata verdi. bende, başka dosyamda bir ADO SQL ile çalışan sorunsuz makrolarım var. Acaba bu dosyada VBA ayarlarında yapmam gereken...

...As Range Dim Sort_Column As String Dim X As Integer Set WS = Sheets("Sayfa1") Set My_Connection = CreateObject("AdoDb.Connection") Set My_Recordset = CreateObject("AdoDb.Recordset") Set My_Source_Range = WS.Range("D3:I11") Set My_Sort_Range =...

Hocam teşekkürler, 1. yöntemde: RS.MoveLast satırında Tugkan Hocam teşekkürler, 2. yöntem gayet güzel çalışıyor. 1. yöndemde; RS.MoveLast satırında aşağıdaki hatayı verdi, Run-time error ‘-2147217884 (80040e249’: Satır Kümesi geriye doğru getirmeyi desteklemiyor tekrar teşekkürler, iyi...

...Con As Object Dim RS As Object Dim yol As String Dim sorgu As String Dim r As Long Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data...

...alabiliriz yardımlarınız için şimdiden teşekkürler, iyi Çalışmalar. Sub sorguu() Dim Con As Object Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol &...

...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...

...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 properties=""Excel...

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...

...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 12.0;hdr=yes"""...

...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 12.0;hdr=No"""...

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 =...

...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 =...

...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 12.0;hdr=No"""...

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ı.

...= "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=" & ThisWorkbook.FullName &...

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...