Sorgu için arama sonuçları: adodb

...Tanım2, Tutar 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=" &...

...1).End(3).Row).Value myArr2 = .Range("D2:E" & .Cells(Rows.Count, 4).End(3).Row).Value End With With CreateObject("ADODB.Recordset") .Fields.Append "Tanım-1", 8, 100 .Fields.Append "Tutar-1", 5 .Fields.Append "Tanım-2", 8, 100 .Fields.Append...

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

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

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

...Next k End If Next j Next i End Sub Sub adoSort(ByRef myArray, alan, desc) Dim i& With CreateObject("ADODB.Recordset") .Fields.Append "No", 5 .Fields.Append "AdSoyad", 129, 100 .Fields.Append "Tarih", 7 .Open For i =...

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

...Sub ADOB_ORNEK() '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$]"...

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

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

...to the Excel 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...

Sayın VeyselEmre, Başta emeğiniz ve dönüşünüz için çok teşekkürler. Yazdığınız kodu çalışma dosyasına ekleyip veritabanının veriyolunu tanıttım. Ancak ekteki görselde görülen hatayı vermektedir. Nedeni ne olabilir acaba? Çok teşekkürler. Saygılarımla

...If Dir(fName) = Empty Then MsgBox fName & " bulunamadı!" GoTo cikis End If Set con = CreateObject("ADODB.Connection") con.Provider = "Microsoft.ACE.OLEDB.12.0" con.Properties("Data Source") = fName con.Properties("Extended Properties") = "Excel 12.0...

...Integer Dim sql$, i%, c ' ADO sabitlerini tanımla Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open...

...subatayi As Long ' ADO sabitlerini tanımla Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open...

Haluk Hocam merhaba, buradaki kodları aşağıdaki bilgiler ışığında nasıl uyarlayabiliriz? Çalışma dosyasının bulunduğu klasör içinde TEXT adında bir klasör var, klasörde 1'den fazla txt dosyası mevcut ThisWorkbook.Path & "\TEXT\TestFile1.txt ThisWorkbook.Path & "\TEXT\TestFile2.txt ...

...("TestFile.txt") kac adet sutun yani, kac adet alan var....onu bulalim ve "ColumnCount" degiskenine atayalim! Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

Çok teşekkürler Haluk Hocam