Sorgu için arama sonuçları: adodb

  1. H

    Kapalı çalışma kitabından veri çekme ve veri aktarma...

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

    Kapalı çalışma kitabından veri çekme ve veri aktarma...

    ...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...
  3. Korhan Ayhan

    Ado İle Kapalı Dosyadan Tarih Aralığına Göre Toplam Alma

    ...= 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...
  4. Korhan Ayhan

    ADO kullanarak Excel sayfalarındaki tabloları birleştirme

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

    Ado İle Kapalı Dosyadan Tarih Aralığına Göre Toplam Alma

    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...
  6. Korhan Ayhan

    Ado İle Kapalı Dosyadan Tarih Aralığına Göre Toplam Alma

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

    ChatGPT kullanımları

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

    Dinamik Açılır Liste

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

    Hücre İçindeki Bazı Kelimeleri "Kalın" Yapma

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

    ...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 '___________________________________________________________...
  11. tamer42

    SQL Sorguda adet sayısına göre kayıt getirme ..

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

    ...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 '___________________________________________________________...
  13. tamer42

    SQL Sorguda adet sayısına göre kayıt getirme ..

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

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

    SQL Sorguda adet sayısına göre kayıt getirme ..

    ...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="...
  18. tamer42

    SQL Sorguda adet sayısına göre kayıt getirme ..

    ...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="...
  19. B

    Left Join Hakkında

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

    textbox dan listboxda bulma

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