Sorgu için arama sonuçları: adodb

...B satırını güncellesin. Ekleme çalışıyor sorun yok ancak değiştirme için kodu nasıl revize etmeliyim.? Dosyalarımı ekledim Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Dim ConnString As String Dim DosyaYolu As String Dim satir As Long Dim SAYFA As Worksheet...

...& _ "(CONNECT_DATA=(SERVICE_NAME=YORUKDB)));User Id=USERID;Password=SİFRE;" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open strConn Set rs = Nothing Set conn = Nothing

...bir türlü başarılı olamadım. Veritabanına bağlanma konusunda sorun yaşadım. kütüphanede yüklü nerede hata yapıyor olabilirim. Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim connStr As String Dim strSQL As String Dim ws As Worksheet Dim i As Integer connStr =...

...String Dim lastRow As Long Dim dict As Object Dim key As Variant ' Set up database connection Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\428011\Desktop\Yeni klasör\DB.accdb;"...

...iyi akşamlar. 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...

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