Sorgu için arama sonuçları: adodb

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

Sayfa1 e listeleme yapacaktır. Sub test() Dim rs As Object, strSQL$, i With CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=Yes';" & _ "Data Source=" &...

...xmlHTTP.Open "GET", URL, False xmlHTTP.send If xmlHTTP.Status = 200 Then Set Resim = CreateObject("ADODB.Stream") Resim.Open Resim.Type = 1 Resim.Write xmlHTTP.responseBody...

...txt5510.Cells(l - 2, "x") = gss.Cells(l, "v") txt5510.Cells(l - 2, "y") = l - 6 Next Set cn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName &...

...Last_Date As Date, Secilen_Date As Date If TextBox1 = "" Or TextBox2 = "" Then Exit Sub Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox1 Last_Date = TextBox2 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source="...

...Dim conn As Object, rs As Object, yol As String Sheets("veri").Range("A2:C" & Rows.Count).ClearContents Set conn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") yol = ThisWorkbook.Path conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & yol &...

...A sütunu da 20 satır boyunca ilgili dosyanın adıyla dolsun. Bu konuda yardımcı olabilecek var mıdır? Sub Getir() Set con = VBA.CreateObject("adodb.Connection") Set cat = CreateObject("ADOX.Catalog") 'Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin...

...Sub Test() ' Haluk - 22/03/2024 Sheets("Sayfa2").Range("B2:C" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.RecordSet") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}...

..." & _ " ) " & _ " ) GROUP BY Bölge, Marka, UK, UA ORDER BY Bölge, Marka, UK, UA" With CreateObject("ADODB.Connection") .Open "Driver={MicrosoFT Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

..." ) " & _ " Group By UK, UA Having (Sum(ADET12) + Sum(ADET6) + Sum(ADET3))>0 " Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...End Sub Sub herUrundenSonGelenGetir_ADO() Dim strSQL$ Sheets("ADO").Range("K2:M" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...