Sorgu için arama sonuçları: adodb

  1. O

    Userform textboxt sayı verisinde yapılan değişikliğin access veritabanına giderken tür uyuşmazlığı hatası vermesi

    ...sayı verisi yerinde kalıyor. Sabahtan beri bunla uğraşıyorum yardımlarınıza muhtacım. Private Sub bt_kaydet_Click() Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol & "" sorgu =...
  2. veyselemre

    İKİ FARKLI Ç.KİTABINDAKİ VERİYİ KOŞULA GÖRE EŞLEŞTİRME HK

    ...To 2), sat, i, ii, dic As Object, adoCon As Object, ky$, w Set dic = CreateObject("Scripting.Dictionary") Set adoCon = CreateObject("AdoDB.Connection") With Sheets("Dosyalar") dosya(1) = .Range("A2").Value & "\" & .Range("B2").Value dosya(2) = .Range("A3").Value &...
  3. veyselemre

    Veri doğrulama ile seç hepsini getir (vba kod ile)

    ...WHERE [MÜŞTERİ ADI SOYADI]='" & ComboBox1.Text & "'" If adoCon Is Nothing Then Set adoCon = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") End If If adoCon.State = 0 Then Call connect Set rs =...
  4. H

    tefas.gov.tr' den veri çekme hk.

    Merhaba hocam. Öncelikle yukarıdaki dosya indirme bağlantısını bizimle paylaştığınız için teşekkür ederiz. xlsm uzantılı excel dosyasını indirdiğimde kod gayet güzel çalışmakta; ancak benim ihtiyacım olan kod vba kodu değil de google e-tablolarda aynı işlevde kullanmak üzere apps script kodu...
  5. S

    sql ile birden fazla kelime arama

    ...içersinde kelimler geçiyorsa bulacak. bu şekilde düzenleyebilirsrnizço kseivinirim. Aplication.Calculation = xlManual Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rsA As New ADODB.Recordset Dim rsB As New ADODB.Recordset Dim rsC As New...
  6. veyselemre

    ADO kullanarak boş satır silme ve sütun başlıklarını değiştirme

    Sayfa1 e listeleme yapacaktır. Sub test() Dim rs As Object, strSQL$, i With CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=Yes';" & _ "Data Source=" &...
  7. 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...
  8. 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 &...
  9. 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="...
  10. 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 &...
  11. 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...
  12. 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)}...
  13. 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...
  14. 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...
  15. 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...
  16. 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...
  17. A

    Excelde Tekrarlayan Veriler şartlara göre silme

    ustam tüm sütünları attım buna göre uyarlanır mı acaba
  18. 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...
  19. 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...
  20. 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...
Üst