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

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

...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 Source") =...

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

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.

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

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

...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" & _...

...'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 Dim i As...

...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""" Range("N2:P65536").ClearContents...

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

...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 Xml;HDR=YES;"""...

...işleminiz iptal edilmiştir!", vbCritical Exit Sub End If ' ADO Bağlantısını oluştur Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"...

Merhaba Arkadaşlar, Sub VeriGuncelle() Dim dosya As String Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset yol = ThisWorkbook.Path & "\Kişiler\" & Range("B1") & ".xlsx" dosya = VBA.FileSystem.Dir(yol) If dosya = vbNullString Then...

...Kişi Dosyası Yok", _ Buttons:=vbCritical, _ Title:="KİŞİ YOK" Range("D4:J23").ClearContents Exit Sub End If Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

...& "'" yon = "'" & Range("F6").Value & "'" trh = "#" & Format(Range("F5").Value, "dd\/mm\/yyyy") & "#" Set Con = CreateObject("AdoDB.Connection") Set Rs = CreateObject("AdoDB.RecordSet") Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & kynk Sorgu = "Select [MasterValue] From...

...Dim dosya As String yol = ThisWorkbook.Path & "\Kişiler\" & Worksheets("AnaSayfa").Range("B1") & ".xlsx" Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

...Kişi Dosyası Yok", _ Buttons:=vbCritical, _ Title:="KİŞİ YOK" Range("D4:J23").ClearContents Else Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=no""" sorgu...

...12.0; DATABASE=@@yol2@@].[KURUM İLETİSİM BİLGİLERİ$] as b on a.[KURUM_KODU] = b.[KURUM_KODU] Sub Test() Dim cn As New ADODB.Connection, yol As String, yol2 As String, rs As ADODB.Recordset Sayfa2.Cells.ClearContents yol = ThisWorkbook.FullName yol2 =...