Sorgu için arama sonuçları: adodb

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

    SQL SELECT TOP Kullanımı hk.

    Thanks for your support, I will try it and share my results.
  12. 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 =...
  13. 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...
  14. I

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

    çok Sağolun hocam teşekkür ederim.
  15. 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=" & _...
  16. I

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

    Hocam elinize sağlık güzel olmuş sadece ben ufacık yanlış anlatmışım. "I" ve "J" sütununda olumsuz yazan hiç bir satırın aktarmasını istemiyorum. yani "I" ve "J" sütunundan her hangi birine olumsuz yazıyorsa o satırı aktarmasın
  17. 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=" & _...
  18. S

    Yeni KDV Oranları

    .İlginiz için çok tşk ederim. Logo kullanan arkadaşlara yardımcı olması için ben paylaşım yapayım. Başka bir gruptan arkadaş yardımcı oldu bana. SELECT * INTO LG_006_ITEMS_07072023 FROM LG_006_ITEMS UPDATE LG_006_ITEMS SET VAT=10,RETURNPRVAT=10,RETURNVAT=10,SELLVAT=10,SELLPRVAT=10 WHERE VAT=8...
  19. H

    Yeni KDV Oranları

    ...yapılabilir; Sub Test() ' Haluk - 10/07/2023 Dim adoCN As Object, TargetFile As String, strSQL As String Set adoCN = CreateObject("ADODB.Connection") TargetFile = ThisWorkbook.FullName adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") =...
  20. U

    Vba da sql problemi hakkında

    ...& Sheets("Sayfa2").Range("A" & j).Value & " ' order by tbStokFiyati.dteFiyatTespitTarihi " Else Exit Sub End If Set Cn = New ADODB.Connection Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";" rs.Open SQLStr...
    • UegeN
    • Posta #3
    • Forum: SQL
Üst