Sorgu için arama sonuçları: adodb

  1. 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...
  2. 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... .
  3. 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...
  4. 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 &...
  5. 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" &...
  6. 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...
  7. 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" &...
  8. 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 &...
  9. 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 &...
  10. 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...
  11. veyselemre

    Baska bir listedeki verileri tekrarsız olarak yeni bir listeye alma

    ....Range("F4").Resize(UBound(veri)).Value = veri End With End Sub Sub test() Dim rs As Object Set rs = CreateObject("ADODB.Recordset") With Sheets("SK AGENCIES") .Range("F4:F" & .Cells(Rows.Count, 6).End(xlUp).Row).ClearContents rs.Open "SELECT DISTINCT F1...
  12. Y

    kim ne satmış

    Haluk hocam bu kısımda hata alıyorum Set adoCon = CreateObject("ADODB.Connection") Sebebi hakkında bilgilendirir misiniz? Teşekkür ederim.
  13. H

    Excel bilgilerini Access ile uyarlama

    ...dikkat edilmezse sorun çıkarabiliyor Private Sub CommandButton1_Click() Dim SQL As String Dim ADO_CN As Object Set ADO_CN = CreateObject("Adodb.Connection") SQL = "SELECT * FROM [CUSTOMERS2] " ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" &...
  14. H

    Excel bilgilerini Access ile uyarlama

    ...işinize yarayabilir Private Sub CommandButton1_Click() Dim SQL As String Dim ADO_CN As Object Dim ADO_RS As Object Set ADO_CN = CreateObject("Adodb.Connection") Set ADO_RS = CreateObject("adodb.recordset") SQL = "SELECT * FROM [TabloAdi] " ADO_CN.ConnectionString =...
  15. I

    İki koşula göre verileri AA sayfasına çekme

    Hocam merhaba sıralamaya bi ("B12") sutün daha ekleme durumunuz olur mu, Range("A11:J" & Rows.Count).Sort Range("H12"), xlAscending, Range("G12"), , xlAscending, , , xlYes
  16. Murat OSMA

    SQL SELECT TOP Kullanımı hk.

    İlgili kodları bu şekilde kullanım deneyiniz. xDeg1 = CLng(DateSerial(y, m, 1)) xDeg2 = CLng(DateSerial(y, m + 1, 0)) Set RS2 = CreateObject("ADODB.RecordSet") sorgu = "SELECT TOP 15 Brand FROM [Data$A5:D" & LR & "]" sorgu = sorgu & " WHERE [Insert Start Date] BETWEEN " & xDeg1 & " AND " &...
  17. H

    Google Sheets

    ...As String, strFile As String, myTable As String Dim j As Byte Range("A2:C" & Rows.Count) = "" Set adoCon = CreateObject("ADODB.Connection") Set adoRst = CreateObject("ADODB.Recordset") strURL =...
  18. H

    Aynı stok kodlu olup farklı fiyattan satılan ürünlerin toplanması ve ortalamasının alınması

    ...As Object, RS As Object Dim myFile As String, strSQL As String myFile = ThisWorkbook.FullName Set adoCN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data...
  19. I

    İki koşula göre verileri AA sayfasına çekme

    çok Sağolun hocam teşekkür ederim.
  20. Korhan Ayhan

    İki koşula göre verileri AA sayfasına ç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") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
Üst