Sorgu için arama sonuçları: adodb

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

Konunun cevapsız kalmaması adına; Sub ResimYukle() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim SqlText As String Dim kalemsat As Long ' Veritabanı bağlantısını oluştur Set conn = New ADODB.Connection conn.Open "Your_Connection_String_Here"...

Dosyalar farklı bir klasör de bulunmaktadır. Proje ise bunun dışında. Projeyi çalıştırdığımda klasöre değil projenin bulunduğu alandaki dosyaları okumaktadır.

...x As Integer Dim con As Object, rs As Object Dim yol As String, dsy As String Set s1 = ThisWorkbook.Sheets("Data") Set con = CreateObject("AdoDB.Connection") Set rs = CreateObject("AdoDB.RecordSet") s1.Range("A2:Z9500").ClearContents yol = "D:\veri\" dsy = Dir(yol & "*.xls") Do While dsy...

Çok ama çok teşekkür ederim. Saygılarımla

...Sorgu As String Dim trh As Date Dim x As Integer Dim con As Object, rs As Object Set s1 = ThisWorkbook.Sheets("Data") Set con = CreateObject("AdoDB.Connection") Set rs = CreateObject("AdoDB.RecordSet") con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\1.xls"...

...Dim RST As Object Dim deger As Variant Dim SQL As String Dim i As Integer Dim j As Integer ''On Error Resume Next Set RST = VBA.CreateObject("ADODB.Recordset") SQL = "SELECT * From [" & table & "$" & param & "]" RST.Open SQL, con, 1, 3 For i = LBound(arr) To...

...Sub ADOB_ORNEK() 'Referanslardan Microsoft ActiveX Data Objects 6.0 (en büyük değer) Library seçili olmalı Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset Dim arr As Variant Dim coll As New Collection...

...sayfalarını belirle Set AdatSayfasi = ThisWorkbook.Sheets("Adat") Set FaizSayfasi = ThisWorkbook.Sheets("Faiz") Set con = CreateObject("AdoDB.Connection") con.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=Yes""" '...

..."Lütfen Bekleyiniz.....Verileriniz Hesaplanıyor...", vbCritical Sheets("İCMAL").Select Dim con As Object, rs As Object Set con = CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=YES"""...

ilginiz için teşekkür ederim, sizin kod sonuçları ile benimkiler farklı çıkıyor https://s2.dosya.tc/server30/auw3ri/FRMM.png.html

..."K").End(xlUp).Row Sheets("MARKET").Range("K2:M" & WorksheetFunction.Max(lRow, 2)).ClearContents Set adoCN = CreateObject("ADODB.Connection") adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0...