Sorgu için arama sonuçları: adodb

  1. L

    SQL SELECT TOP Kullanımı hk.

    Thanks for your support, I will try it and share my results.
  2. 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 =...
  3. 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...
  4. I

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

    çok Sağolun hocam teşekkür ederim.
  5. 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=" & _...
  6. 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
  7. 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=" & _...
  8. 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...
  9. 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") =...
  10. 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
  11. D

    ADO Nesnesi Saat Farkı ile İşlem

    ...If SaatFarki = False Then MsgBox "İşlem iptal": Exit Sub Sheets("Sonuc").UsedRange.ClearContents Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0...
  12. Korhan Ayhan

    ADO Nesnesi Saat Farkı ile İşlem

    ...Set S2 = Sheets("Sonuc") Set Vehicle_Exit = VBA.CreateObject("Scripting.Dictionary") Set My_Connection = CreateObject("AdoDB.Connection") On Error Resume Next S1.ShowAllData S2.ShowAllData S2.Range("A:E").Clear S2.Range("A1:E1") = Array("PLAKA", "TARİH", "ÇIKIŞ...
  13. Y

    ADO Nesnesi Saat Farkı ile İşlem

    ...As Integer, girisSaat As Integer, saatFarki As Integer 'bağlantı dizesi ifadesinin string türünden tanımı Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") On Error Resume Next con.Close rs.Close saatFarki =...
  14. tamer42

    SQL Ado ile Alanlardaki boş hücrelerin sayısı

    ...bakabiliyoruz, yalnız bu şekildde çok uzun bir kod yazmak gerekeceğinden daha pratik bir yöntem arayışındayım Set Con = VBA.CreateObject("adodb.Connection") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes""" ''sorgu = "Select...
  15. Korhan Ayhan

    4 sütunda 0 içeren satırı silme

    ...Sub Delete_Zero_Rows() Dim My_Connection As Object, My_Recordset As Object, My_Query As String Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" &...
  16. W

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

    Korhan bey teşekkürler, bu kodlar bende çalışıyor ve sonuç alıyorum.
  17. Korhan Ayhan

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

    ...First_Date As Date, Last_Date As Date If TextBox2 = "" Or TextBox3 = "" Then Exit Sub Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox2 Last_Date = TextBox3 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
  18. Korhan Ayhan

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

    ...Dim My_Connection As Object, My_Query As String Dim First_Date As Date, Last_Date As Date Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox2 Last_Date = TextBox3 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
  19. D

    SQL kod hızlandırma

    ...As String Application.ScreenUpdating = False Set SH = Sheets("Rapor") SH.Cells.Clear myFile = ThisWorkbook.FullName Set rs = CreateObject("ADODB.Recordset") Con = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & myFile & _ ";Extended Properties=""Excel 12.0;Hdr=YES""" Kalite =...
Daha eski sonuçları görüntüle
Üst