Sorgu için arama sonuçları: adodb

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

...için 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...

...VeriGuncelle() 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...

...MsgBox Prompt:="Seçilen 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...

...join [EXCEL 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...

....EnableEvents = False .Calculation = xlCalculationManual End With Dim sql As String, rg As Range Dim yol As String Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol = "D:\1- BELGELERİM\\6- VERİ TABLOLARI\\KURUM_BİLGİLERİ.xlsb" con.Open...

Merhaba; Bu şekil deneyiniz. Private Sub TextBox2_Change() Set con = CreateObject("Adodb.connection") Set rs = CreateObject("Adodb.recordset") Yol = "C:\Dosya adresi\KAPALI.xlsm" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & Yol & ";extended properties=""excel 12.0;hdr=yes"""...

...sayı verisi yerinde kalıyor. Sabahtan beri bunla uğraşıyorum yardımlarınıza muhtacım. Private Sub bt_kaydet_Click() Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol & "" sorgu =...

...To 2), sat, i, ii, dic As Object, adoCon As Object, ky$, w Set dic = CreateObject("Scripting.Dictionary") Set adoCon = CreateObject("AdoDB.Connection") With Sheets("Dosyalar") dosya(1) = .Range("A2").Value & "\" & .Range("B2").Value dosya(2) = .Range("A3").Value &...

...WHERE [MÜŞTERİ ADI SOYADI]='" & ComboBox1.Text & "'" If adoCon Is Nothing Then Set adoCon = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") End If If adoCon.State = 0 Then Call connect Set rs =...

Merhaba hocam. Öncelikle yukarıdaki dosya indirme bağlantısını bizimle paylaştığınız için teşekkür ederiz. xlsm uzantılı excel dosyasını indirdiğimde kod gayet güzel çalışmakta; ancak benim ihtiyacım olan kod vba kodu değil de google e-tablolarda aynı işlevde kullanmak üzere apps script kodu...

...içersinde kelimler geçiyorsa bulacak. bu şekilde düzenleyebilirsrnizço kseivinirim. Aplication.Calculation = xlManual Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rsA As New ADODB.Recordset Dim rsB As New ADODB.Recordset Dim rsC As New...