• 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. H

    Soru Exceldeki verileri notepad dosyasına aktarma

    ..."Col4=F4 Date" Print #FileNum, "DateTimeFormat=yyyy/mm/dd hh:nn:ss" Close #FileNum Set adoCN = CreateObject("ADODB.Connection") If Val(Application.Version) < 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended...
  2. B

    excel vba firebird bağlantısı

    ...çalıştırmaya çalıştığım vba kodu: Sub VeriCek() Dim baglanti As Object Set baglanti = CreateObject("ADODB.Connection") ' Bağlantı dizesini güncelleyin baglanti.Open "Driver=Firebird/InterBase(r)...
    • bybart
    • Konu
    • Cevaplar: 3
    • Forum: SQL
  3. tamer42

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

    ...LR = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("F2:F" & LR).ClearContents Set Cn = CreateObject("ADODB.CONNECTION") With Cn .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ WB1...
  4. Korhan Ayhan

    koşula göre veri alma

    ...Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("AdoDB.Recordset") Sheets("rapor").Range("A2:E" & Rows.Count).ClearContents...
  5. C

    Tarihe göre başka sayfaya veri aktarmak

    Öncelikle iyi akşamlar diliyorum. Hocam henüz çok acemiyim makrolar konusunda. Acaba örnek çalışmaya uyarlamanız mümkün mü bu çalışmayı. Saygılar sunuyorum.
  6. N

    Tarihe göre başka sayfaya veri aktarmak

    ...son sürümünü seçiniz. Sub ADOB_ILE_AKTAR() 'Tolls/Referans/Microsoft Aktives Data Objecs x.x Library Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset...
  7. Korhan Ayhan

    Listbox a network ten veri çekmek..

    ...As Variant, My_Recordset As Object File_Path = "\\Network_Path\Desktop\Book1.xlsx" Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" &...
  8. H

    Karmaşık verileri düzenle hale getirme

    ...sağlayan revize kod aşağıdadır; Option Explicit ' Sub Test() ' Haluk - 29/09/2023 ' sa4truss@gmail.com ' Dim objADO As ADODB.Connection Dim strFile As String, strSQL As String Dim objRS As ADODB.Recordset Dim arrBelgeNo As Variant Dim i As Integer, j As Integer...
  9. tamer42

    Makro İle Google E-Tablolardan Veri Almak

    ...teşekkürler, iyi akşamlar. Sub sorguu() Dim myPath As String myPath = "G:\Drive\Egitim\Dosyalar" Set con = VBA.CreateObject("adodb.Connection") yol = myPath & "\Satış.xlsx" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes"""...
  10. D

    excel vba- Döngü çok uzun sürüyor.

    ...Dim adoCN As Object Dim strSQL, myFile As String Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") myFile = ThisWorkbook.FullName adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFile & _ ";Extended...
  11. H

    Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme

    ..."[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=Yes;']" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConnection Set RS = objConnection.Execute(strQuery) For j = 0 To RS.Fields.Count - 1 Cells(1, j...
  12. Korhan Ayhan

    Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme

    ...= False Application.Calculation = xlCalculationManual Process_Time = Timer Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & My_File...
  13. Korhan Ayhan

    Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme

    ...My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Sheets("Sorgu").Range("A3:G" & Rows.Count).ClearContents My_Connection.Open...
  14. 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...
  15. tamer42

    Sql Sorguda Tarih tür uyuşmazlığı hk.

    ...= 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 12.0;hdr=yes"""...
  16. işsiz123

    Soru kapalı xls dosyasından veri çekerken uyumluluk hatası

    ...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 & ";Extended...
  17. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ...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" & Rows.Count).ClearContents...
  18. Korhan Ayhan

    Çözüldü Şartlı Benzersiz Liste oluşturma.

    ...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...
  19. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ...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" &...
  20. 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 &...
Üst