• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: adodb.Connection

  1. Korhan Ayhan

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

    ...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=" & _ ThisWorkbook.FullName...
  2. W

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

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

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

    ...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=" & _...
  4. Korhan Ayhan

    Listview İki Tarih Arası Benzersiz Değer Filtreleme

    ...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=" & _...
  5. tamer42

    SQL kod hızlandırma

    ...ie1 As Variant, ie2 As Variant Set SH = Sheets("1") LR = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") myFile = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _...
  6. M

    Çalışma Zamanı Hatası '-2147217887 (80040E21)

    ...Application.ScreenUpdating = False Application.DisplayAlerts = False Time1 = Now Set baglan = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") sayfAdi = Sayfa4.Range("B4") dosyaYolu = ThisWorkbook.Path & "\bodro-2023.xls" baglan.Open...
  7. tamer42

    Geçersiz Değişken hatası (Run time error - 2147467259)

    Hocam teşekkürler, değişen bir şey olmadı rs2.Open SQL, cn, adOpenKeyset, adLockOptimistic gördüğüm kadarıyla sadece bu satırı değiştirmişsiniz,
  8. skaan

    Geçersiz Değişken hatası (Run time error - 2147467259)

    Aşağıdaki kodları deneyin ltf.. Public cn As ADODB.Connection Public rs As ADODB.Recordset Public rs2 As ADODB.Recordset Sub Connect() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path &...
  9. tamer42

    Geçersiz Değişken hatası (Run time error - 2147467259)

    ...sonucunu 11 olarak veriyor desteğiniz için şimdiden teşekkürler, iyi Hafta Sonları Public cn As ADODB.Connection Public rs As ADODB.Recordset Public rs2 As ADODB.Recordset Sub Connect() Set cn = New ADODB.Connection With cn .Provider =...
  10. tamer42

    ADOB sql sorguda format problemi hk.

    ...iyi akşamlar. Sub UpdateTable2(MyFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Sheets("2").Range("A2:Z100000").ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source=" &...
  11. Y

    Soru Şifreli MDB Veri Tabanına Bağlanırken Hata"Yüklenebilir ISAM bulunamadı"

    ...Dim s1 As Worksheet Dim oran1 As Double, oran2 As Double, oran3 As Double, oran4 As Double, oran5 As Double Set evn = CreateObject("adodb.connection") dosya = ThisWorkbook.Path & "\ADAveri.mdb" evn.Open "provider=Microsoft.ACE.OLEDB.12.0;data source= & dosya;Jet OLEDB: Database Password...
  12. tamer42

    ADO UPDATE SQL Table/Record

    ...sFile End Sub Sub UpdateTable2(myFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel...
  13. tamer42

    ADO UPDATE SQL Table/Record

    Teşekkürler Hocam;
  14. tamer42

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    şimdi oldu Korhan Hocam, olayın püf noktası neydi? Başlıkların olmaması mı? teşekkürler,
  15. D

    ADO UPDATE SQL Table/Record

    Merhaba, Sub UpdateTable(myFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel...
  16. Korhan Ayhan

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    ...= SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("D2:D" & LastRow).ClearContents Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.RecordSet") myPath = ThisWorkbook.Path myFile = myPath & "\KaynakDosya.xlsx"...
  17. tamer42

    ADO UPDATE SQL Table/Record

    ...Dim RS As Object Dim uSQL As String, iSQL As String Dim raf As String, ac As String Dim Veri As Variant Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended...
  18. tamer42

    ADO UPDATE SQL Table/Record

    ...Then UpdateTable sFile End Sub Sub UpdateTable(myFile As String) Dim Con As Object Dim RS As Object Set Con = VBA.CreateObject("adodb.Connection") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" uSQL =...
  19. tamer42

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    ...Sayfa1 LastRow = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("D2:D" & LastRow).ClearContents Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.RecordSet") myPath = ThisWorkbook.Path myFile = myPath & "\KaynakDosya.xlsx" Con.Open...
  20. N

    Adodb sorgulama - tarih aralığı

    ...Ben sonuca ulaştım. Sub ADOB_ORNEK() 'Referanslardan Microsoft ActiveX Data Objcets .... seçilmelidir Dim connection As New ADODB.connection Dim DosyaAdi As String Dim query As String Dim rs As New ADODB.Recordset Dim i As Integer Sayfa2.Range("A1").ClearContents...
Üst