Sorgu için arama sonuçları: adodb

  1. RBozkurt

    LİNKLERDEKİ FOTOĞRAFLARI TOPLU BİR ŞEKİLDE İNDİRME

    ...xmlHTTP.Open "GET", URL, False xmlHTTP.send If xmlHTTP.Status = 200 Then Set Resim = CreateObject("ADODB.Stream") Resim.Open Resim.Type = 1 Resim.Write xmlHTTP.responseBody...
  2. Zeki Gürsoy

    text oluşturma

    ...txt5510.Cells(l - 2, "x") = gss.Cells(l, "v") txt5510.Cells(l - 2, "y") = l - 6 Next Set cn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName &...
  3. W

    ADO / Çoklu Filtreleme / Sorgu

    ...Last_Date As Date, Secilen_Date As Date If TextBox1 = "" Or TextBox2 = "" Then Exit Sub Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox1 Last_Date = TextBox2 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source="...
  4. A

    Kapalı dosyadan buton ile veri alma.

    ...Dim conn As Object, rs As Object, yol As String Sheets("veri").Range("A2:C" & Rows.Count).ClearContents Set conn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") yol = ThisWorkbook.Path conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & yol &...
  5. B

    Klasördeki dosyalardan veri alırken dosya adını da getirmek

    ...A sütunu da 20 satır boyunca ilgili dosyanın adıyla dolsun. Bu konuda yardımcı olabilecek var mıdır? Sub Getir() Set con = VBA.CreateObject("adodb.Connection") Set cat = CreateObject("ADOX.Catalog") 'Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin...
  6. H

    Malzeme Açıklamalarının tek bir hücrede toplanması

    ...Sub Test() ' Haluk - 22/03/2024 Sheets("Sayfa2").Range("B2:C" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.RecordSet") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}...
  7. veyselemre

    Dönemlik pivot alma

    ..." & _ " ) " & _ " ) GROUP BY Bölge, Marka, UK, UA ORDER BY Bölge, Marka, UK, UA" With CreateObject("ADODB.Connection") .Open "Driver={MicrosoFT Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  8. H

    Dönemlik pivot alma

    ..." ) " & _ " Group By UK, UA Having (Sum(ADET12) + Sum(ADET6) + Sum(ADET3))>0 " Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  9. veyselemre

    Excelde Tekrarlayan Veriler şartlara göre silme

    ...End Sub Sub herUrundenSonGelenGetir_ADO() Dim strSQL$ Sheets("ADO").Range("K2:M" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  10. veyselemre

    Adosql ile veri çekme hücredeki bilgiye göre

    ...çalıştı. Tek alt sorgu ile sonuç geliyor. Sub getData3() Sheets("Report").Range("A2:F" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  11. A

    Excelde Tekrarlayan Veriler şartlara göre silme

    ustam tüm sütünları attım buna göre uyarlanır mı acaba
  12. H

    Excelde Tekrarlayan Veriler şartlara göre silme

    ...As String, strSQL As String, strArgs As String Sheets("Sheet1").Range("K2:M" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  13. H

    Diğer Sayfaya kopyalama ve toplamları alma

    ...strSQL As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  14. H

    Diğer Sayfaya kopyalama ve toplamları alma

    ...strSQL As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  15. H

    Adosql ile veri çekme hücredeki bilgiye göre

    ...As String, strSQL As String, strArgs As String Sheets("Report").Range("A2:F" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  16. FERAZ

    SQL DISTINCT Kullanımı

    ...baslıklar Baslik1,Baslik2.... gibi olduğunu varsayarsak alttaki kod çalışıyor. Dim metin As String Set con = CreateObject("Adodb.connection") Set rs = CreateObject("Adodb.recordset") con.Open "provider=microsoft.ace.oledb.12.0;data source= " & ThisWorkbook.FullName...
  17. H

    Soru Accesden Düşeyara (Excelden Vba ile)

    ...Dim adoCN As Object, SourceFile As String, strSQL As String Range("E2:E" & Rows.Count) = "" Set adoCN = CreateObject("ADODB.Connection") SourceFile = ThisWorkbook.Path & "\SiparislerDBO.accdb" adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"...
  18. tamer42

    SQL Sorguda aradaki değerlerin toplamı

    ...RS As Object Dim SH As Worksheet Set SH = Sheets("DB") SH.Cells.ClearContents FileName = ThisWorkbook.FullName Set Con = CreateObject("ADODB.CONNECTION") With Con .Open "Provider=Microsoft.Ace.Oledb.12.0;" & _ "Extended Properties='Excel 12.0;" & _...
  19. F

    Çözüldü ado bağlantılı sorgu ve where

    ...Veri çektiğim yer: Veri Yapıştırılan yer: KOD: Private Sub CommandButton1_Click() Range("I2:AN999999").ClearContents Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset yol = "F:\.......................................\9.Sipariş Genel Durum.xlsb" baglanti.Open...
  20. halit3

    Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

    1 nolu mesajınızdaki kod çalışıyorsa sorgu = "select * from [Sipariş$]" yukarıdaki bölümü silin aşağıdaki bölümü ekleyiniz. sorgu = "select * from [Sipariş$F:BD]"
Üst