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

  1. tamer42

    SQL sorgusuyla Kod Kısaltma

    Çok teşekkür ederim Korhan Hocam iyi ki varsınız, sağ olun, var olun !
  2. Korhan Ayhan

    SQL sorgusuyla Kod Kısaltma

    ...As String Dim S1 As Worksheet Application.ScreenUpdating = False Set My_Connection = VBA.CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel...
  3. tamer42

    Sql sorgusunda alan değeri' ne göre alan adlarını alma

    Çok Teşekkür ederim Hocam iyi Çalışamalrar.
  4. M

    Sql sorgusunda alan değeri' ne göre alan adlarını alma

    ...Explicit Dim Con As Object Dim SH As Worksheet Dim SHT As Worksheet Sub baglan() Dim yol As String Set Con = CreateObject("ADODB.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...
  5. M

    Sql sorgusunda alan değeri' ne göre alan adlarını alma

    ...Explicit Dim Con As Object Dim SH As Worksheet Dim SHT As Worksheet Sub baglan() Dim yol As String Set Con = CreateObject("ADODB.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...
  6. tamer42

    Access DB' de tarih alanlarını boş olarak güncellemek

    ...Format(tarih, "yyyy") SQLDate = "#" & ay & "/" & Gun & "/" & yıl & "#" End Function Sub Connect() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source = " & ThisWorkbook.Path & "\DB\Db.accdb"...
  7. Korhan Ayhan

    Çoklu lookup

    ...Dim cn As Object, rs As Object Dim wsRapor As Worksheet, i As Long ' Sayfaları ayarla Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") On Error Resume Next Set wsRapor = ThisWorkbook.Sheets("Rapor") If wsRapor Is Nothing Then...
  8. R

    A sütunu "" içeriyorsa c sütununa karşılık gelen verisini listeleme

    Size de teşekkürler ilginiz için fakat bu kodları uygularken hata aldım. Belki bir yerde ben yanlış yaptım. @pitchoute adlı arkadaşımızın gönderdiği kodlar işimi fazlasıyla gördü.
  9. V

    A sütunu "" içeriyorsa c sütununa karşılık gelen verisini listeleme

    ...= Array("Satır No", "Anahtar Kelime", "Tutar") satir = 2 ' ADO bağlantısı Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") ' Bağlantı dizesi - sadece .xlsx için uygundur conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _...
  10. Y

    access ten listbox a veri çekme

    Hocam günaydın kusuruma bakmayın yeni bakabildim elinize sağlık çok teşekkür ederim.
  11. Y

    access ten listbox a veri çekme

    ...i As Integer Dim rowData(0 To 15) As String ' 0 tabanlı dizi çünkü .List kullanacağız ' Bağlantı oluştur Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Saha.accdb" ' SQL...
  12. M

    Excel Birden Fazla Çalışma Kitabından Veri Çekmek

    Halil bey çok teşekkür ederim ya böyle bir şeyin mümkün oldugunu bile düşünmemiştim. Nasıl oldu bende anlamadım valla. Para versek böyle olmaz. Hocam gerçekten çok sağolun.
  13. H

    Excel Birden Fazla Çalışma Kitabından Veri Çekmek

    ...________________________________________________hy Dim SQL As String Dim xCon As Object Dim xRs As Object Set xCon = CreateObject("Adodb.Connection") Set xRs = CreateObject("adodb.recordset") Dim FSO As Object '//FileSystemObject Dim f As Object '//File Object Set Syf =...
  14. H

    SQL sorgusunda kodu kısaltma

    ...Set RS = VBA.CreateObject("adodb.RecordSet") yol = ThisWorkbook.FullName Set Con = CreateObject("adodb.connection") With Con .provider = "Microsoft.ACE.OLEDB.12.0" .connectionstring = "Data Source=" & yol & ";Extended Properties=""Excel 12.0;""" .Open End With Sorgu = "Select...
  15. H

    Kapalı çalışma kitabından veri çekme ve veri aktarma...

    ...Variant sonsatir = Sheets("Sayfa1").Range("A100000").End(xlUp).Row yol = ThisWorkbook.Path & "\dosya2.xlsm" Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...
  16. H

    Kapalı çalışma kitabından veri çekme ve veri aktarma...

    ...seçtim. Sorunun kaynağı ne olabilir acaba, yanlış uyarlama mı yaptım anlayamadım. Sub VeriGuncelle() Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset yol = ThisWorkbook.Path & "\dosya2.xlsm" baglanti.Open "provider=microsoft.ace.oledb.12.0;data...
  17. Korhan Ayhan

    Ado İle Kapalı Dosyadan Tarih Aralığına Göre Toplam Alma

    ...& "\Kapalı.xlsm" tarih1 = ws.Range("B1").Value tarih2 = ws.Range("C1").Value Set conn = CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & kapaliDosya & ";" & _ "Extended Properties=""Excel...
  18. Korhan Ayhan

    ADO kullanarak Excel sayfalarındaki tabloları birleştirme

    ...Application.ScreenUpdating = False File_Path = ThisWorkbook.FullName Set My_Connection = CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & File_Path & _ ";Extended Properties=""Excel 12.0...
  19. veyselemre

    Dinamik Açılır Liste

    ...CBIL.BoundColumn = 2: CBILCE.BoundColumn = 2: CBSEMT.BoundColumn = 2: CBMAHALLE.BoundColumn = 2 Set adoCon = CreateObject("ADODB.Connection") strSQL = "SELECT IL_ADI, PLAKA FROM [İL$] WHERE NOT PLAKA IS NULL" If adoCon.State = 0 Then adoCon.Open...
  20. H

    SQL Sorguda adet sayısına göre kayıt getirme ..

    ...Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________ Con.Open...
Üst