Sorgu için arama sonuçları: adodb

  1. Korhan Ayhan

    Listbox a network ten veri çekmek..

    ...My_File As Variant, My_Recordset As Object File_Path = "\\Network_Path\Desktop\Book1.xlsx" Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data...
  2. H

    Karmaşık verileri düzenle hale getirme

    ...sağlayan revize kod aşağıdadır; Option Explicit ' Sub Test() ' Haluk - 29/09/2023 ' sa4truss@gmail.com ' Dim objADO As ADODB.Connection Dim strFile As String, strSQL As String Dim objRS As ADODB.Recordset Dim arrBelgeNo As Variant Dim i As Integer, j As Integer...
  3. H

    Türkçe karakter sorunu

    ...= Application.GetOpenFilename("Text Files, *.txt", , "Dosya seçin...") If MyFile = False Then Exit Sub Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "UTF-8" adoStream.Type = adTypeText adoStream.Open adoStream.LoadFromFile (MyFile) strFile =...
  4. tamer42

    Makro İle Google E-Tablolardan Veri Almak

    ...teşekkürler, iyi akşamlar. Sub sorguu() Dim myPath As String myPath = "G:\Drive\Egitim\Dosyalar" Set con = VBA.CreateObject("adodb.Connection") yol = myPath & "\Satış.xlsx" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes"""...
  5. D

    excel vba- Döngü çok uzun sürüyor.

    ...Dim adoCN As Object Dim strSQL, myFile As String Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") myFile = ThisWorkbook.FullName adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFile & _ ";Extended...
  6. H

    Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme

    ..." & _ "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=Yes;']" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConnection Set RS = objConnection.Execute(strQuery) For j = 0 To RS.Fields.Count - 1...
  7. Korhan Ayhan

    Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme

    ...= False Application.Calculation = xlCalculationManual Process_Time = Timer Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & My_File...
  8. Korhan Ayhan

    Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme

    ...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Sheets("Sorgu").Range("A3:G" & Rows.Count).ClearContents...
  9. tamer42

    run tıme error "-2147467259 (80004005) geçersiz boş kullanımı hatası

    ...>= " & Replace(saat1, ",", ".") & _ " And Cdbl(CDate([Saat])) <= " & Replace(saat2, ",", ".") Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con Veri = RS.getRows ub = UBound(Veri, 2) RS.Close Set RS = Nothing...
  10. tamer42

    Sql Sorguda Tarih tür uyuşmazlığı hk.

    ...As Object sorgu = "Select * From [Data$] Where Cdbl(CDate([Tarih])) = " & tarih & "And Cdbl(CDate([saat])) > " & saat Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con a = RS.RecordCount sorguTarih = a End Function...
  11. H

    Sql Sorguda Tarih tür uyuşmazlığı hk.

    ...a = sorguTarih(tarih) MsgBox a End Sub ' Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...
  12. H

    Veritabanına txt dosya kaydetmek

    Mantık olarak; JPEG, BAT, DOCX.... herhangi bir dosyayı ADODB ile "binary" çevirip, MDB dosyasındaki bir tablodaki alana yazılabilir. Deneyip, görmek lazım... .
  13. tamer42

    Sql Sorguda Tarih tür uyuşmazlığı hk.

    ...tarih = CDate(Sayfa1.Range("A2")) a = sorguTarih(tarih) MsgBox a End Sub Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...
  14. işsiz123

    Soru kapalı xls dosyasından veri çekerken uyumluluk hatası

    ...menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum. Şimdiden Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...
  15. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...
  16. Korhan Ayhan

    Çözüldü Şartlı Benzersiz Liste oluşturma.

    ...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("AdoDB.Recordset") Set S1 = Sheets("Sayfa1") My_Connection.Open...
  17. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...
  18. işsiz123

    Çözüldü sayfa adı bulma

    ...= .InitialFileName Başka Abonelikten Çık Eğer Sonlandırıyorsanız ile bitmek Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Sağlayıcı=Microsoft.ACE.OLEDB.12.0;Veri Kaynağı=" & ExcelDosyaYolu & ExcelDosyaAdi &...
  19. işsiz123

    Çözüldü sayfa adı bulma

    ...excelin birinci sayfasındaki veriyi alması. Şuanda aktif kullandığım sayfa ismi hesaphareketleri$A6:F Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...
  20. işsiz123

    Soru Kapalı dosyadan veri alma hatası

    ...ExcelDosyaYolu = .InitialFileName Else Exit Sub End If End With Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi & ";Extended...
Üst