Sorgu için arama sonuçları: adodb

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

...Dim ws As 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...

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

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

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