Sorgu için arama sonuçları: adodb

...sonsatir As Variant sonsatir = Sheets("Sayfa1").Range("A100000").End(xlUp).Row yol = ThisWorkbook.Path & "\dosya2.xlsm" Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...

...olanı seçtim. Sorunun kaynağı ne olabilir acaba, yanlış uyarlama mı yaptım anlayamadım. Sub VeriGuncelle() Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset yol = ThisWorkbook.Path & "\dosya2.xlsm" baglanti.Open...

...= ThisWorkbook.Path & "\Kapalı.xlsm" tarih1 = ws.Range("B1").Value tarih2 = ws.Range("C1").Value Set conn = CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & kapaliDosya & ";" & _ "Extended...

...X As Integer Application.ScreenUpdating = False File_Path = ThisWorkbook.FullName Set My_Connection = CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & File_Path & _ ";Extended...

Hocam cevap için teşekkür ederim. Adodb konusunda gerçekten hiç anlamadım. İstediğim ise Kapalı dosya bir cari dosyası. F sütunu vadeleri gösteren sütun. Benim istediğim ise Açık B1 hücresinde yazan tarih ve öncesinde ne kadar dolan tutar var onu bulmak. Aynı işlemi C1 için de yapacağım...

Aleyküm Selam, Arşiv konuları faydalı olabilir.. https://www.excel.web.tr/search/1492742/?q=adodb&o=date

...imageUrl, False .send End With If xhr.Status = 200 Then Dim stream As Object Set stream = CreateObject("ADODB.Stream") With stream .Type = 1 'Binary .Open .Write xhr.responseBody .SaveToFile...

...CBIL.BoundColumn = 2: CBILCE.BoundColumn = 2: CBSEMT.BoundColumn = 2: CBMAHALLE.BoundColumn = 2 Set adoCon = CreateObject("ADODB.Connection") strSQL = "SELECT IL_ADI, PLAKA FROM [İL$] WHERE NOT PLAKA IS NULL" If adoCon.State = 0 Then adoCon.Open...

Adodb kullanarak birkaç veriyi çekip tek hücrede birleştiriyorum fakat bu birleştirme sonrasında hücre içerisindeki bazı kelimeleri kalın yapmak istiyorum yazdığım kodun örneğini paylaştım burada hata var mı? Teşekkürler For Each hucre In analiste.Range("C1:C" & sonsatirc) If Not...

...Sub SorguAdet_hy_6_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...

1- 2 puan o kadar önemli değil Hocam, sabrınız ve yardımalrınız için çok teşekkürler Sağ olun, var olun....

...9 Sub SorguAdet_hy_6() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...

Çok teşekkür ederim Halil Hocam iyiki varsınız! şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum. Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak Selamlar, Saygılar.

...Sub SorguAdet_hy_5_2() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

Müsait olunca ilk fırsaata deneyeceğim Hocam Çok teşekkür ederim, emeğinize sağlık!

...)Sub SorguAdet_hy_5() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

...Sub SorguAdet_hy3_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...bu kurala uygun sorgu nasıl düzenlebilir? Sub sorguu() Dim Con As Object Dim Sorgu As String Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...Dim searchKeyword As String Dim rs As Object Dim baglan As Object ' Bağlantıyı açmak için Set baglan = CreateObject("ADODB.connection") baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Datalar.accdb" ' Text kutusundaki...

MERHABA BEN office365 kullanıyorum sanırım bu kodlar benim excel e uymuyor hocam uyarladım çalışmıyor zaten teşekkürler. bunun office365 e uyumlu olanı olsaydı denerdim.