Sorgu için arama sonuçları: adodb

Çok Teşekkür ederim Halit Hocam iyi ki varsınız!

...Set 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=" &...

...Sayfa_adı = "Sheet1" Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") Set Kayit = CreateObject("ADODB.recordset") baglan = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dosya & ";Extended Properties=""Excel 12.0;HDR=yes;IMEX=1;""" Kayit.Open "Select * from [" &...

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

...Sub Unique_2_List() 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...

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

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