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

...s1 = Sheets("Sayfa1") if s1.Range("K1") <> "" Then s1.Range("K1").CurrentRegion.ClearContents Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName...

Bu şekilde mi bir çözüm istiyordunuz sName = ActiveSheet.Name My_Query = "Select Distinct * From [" & sName & "$D3:D39] Where Not IsNull(F1)"

...Dim My_Connection As Object, My_Recordset As Object, My_Query As String Set My_Connection = VBA.CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No"""...

...= 20 Sheets("Stokdurumu").Range("C1:D1").ColumnWidth = 10 Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open strArgs strSQL =...

...strTemp As String, strSQL As String Sheets("Olmayanlar").Range("A2:C" & Rows.Count) = "" Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...Worksheet, sh1 As Worksheet Dim wsCtrl As Boolean Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") wsCtrl = False For Each ws In ThisWorkbook.Worksheets If ws.Name = "Rapor" Then wsCtrl = True: Exit For...

...adet As Double Dim ilgiliFirma As String Dim sheetName As String ' Bağlantı oluştur Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0;"...

Merhaba, Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") kaynak = ThisWorkbook.Path & "\MT DATA SISTEM.xlsb" conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & kaynak & ";extended properties=""excel 12.0;hdr=yes""" sorgu...

...SQL sorgusuyla nasıl alabilir? desteğiniz için şimdiden teşekkürler, iyi akşamalar. rw=1 ss=2 Set Conn = CreateObject("ADODB.Connection") Conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ fileName & ";extended properties=""Excel...

...as Tutar2 FROM " & _ "[Sheet4$F1:H] WHERE NOT ISNULL(ID)" & _ ") GROUP BY yID " With CreateObject("ADODB.Connection") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName...

...1) myList(iRow, 3) = myData2(iRow, 2) Next Sheet4.Range("F2").Resize(UBound(myData2, 1), 3) = myList Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName strSQL =...

...Dim RS As Object Dim yol As String Dim sorgu As String Sayfa2.Cells.ClearContents Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

...Sub sorguu() Dim Con As Object Dim RS As Object Dim yol As String Sayfa2.Cells.ClearContents 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=yes""" sorgu...

Hocam üstteki hocamın verdiği formüller çalıştı sizin verdikleriniz galiba makro bu konuya çok yabancıyım üsttekileri kullanayım sizede çook teşekkür ederim. minnetarız sizlere

...'Tools / References / Microsoft ActiveX Data Objects x.0 Library (En yüksek değer seçili olmalı) Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset query = "SELECT [AFIS] FROM [Sayfa1$]" DosyaAdı =...

...Password=" & databaseSifresi & ";" & _ "Persist Security Info=False;" ' Bağlantıyı aç Set cnn = CreateObject("ADODB.Connection") cnn.Open connStr ' SQL sorgusunu oluştur sql = "INSERT INTO KanalListesi (KayitTarihi, KanalAdi, Kategori, EkleyenAPICode)...

...Password=" & databaseSifresi & ";" & _ "Persist Security Info=False;" ' Bağlantıyı aç Set cnn = CreateObject("ADODB.Connection") cnn.Open connStr ' KanalListesi tablosuna veri ekle Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = cnn...

...Sub sbADO() Dim sFile As String Dim DBPath As String, sconnect As String Dim sSQLQry As String Dim ReturnArray Dim Conn As New ADODB.Connection Dim mrs As New ADODB.Recordset DBPath = ThisWorkbook.path sFile = "a2024-01-10.csv" sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &...

...file myPath = WB.Path yol = myPath & "\Data.xlsx" ' Create and open the connection Set Con = CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ yol & ";Extended Properties=""Excel 12.0;HDR=No""" '...

Sayın VeyselEmre, Kusura bakmayın az önce fark ettim. Veritabanının yolunu tanıtmadan kodu yazdığınız şekilde çalışma dosyası ve veritabanı aynı klasörde olursa kod çalışıyor sorun yok ama çalışma dosyası ve veritabanı aynı klasörde olmayacak. Çalışma dosyaları farklı klasörlerde olacak...