Sorgu için arama sonuçları: adodb

  1. Y

    Çözüldü VeriTabanına Bağlanıyorum - Kayıt Yaparken Tür Uyuşmazlığı Hatası

    ...Password=" & databaseSifresi & ";" & _ "Persist Security Info=False;" ' Bağlantıyı aç Set cnn = CreateObject("ADODB.Connection") cnn.Open connStr ' KanalListesi tablosuna veri ekle Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = cnn...
  2. tamer42

    CSV formatında büyük bir dosyayı excel'de açmak

    ...sonları... Sub sbADO() Dim sFile As String Dim DBPath As String, sconnect As String Dim sSQLQry As String Dim ReturnArray Dim Conn As New ADODB.Connection Dim mrs As New ADODB.Recordset DBPath = ThisWorkbook.path sFile = "a2024-01-10.csv" sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data...
  3. M

    Sql Sorgusunda karakter sayısına göre filtreleme

    ...to the Excel file myPath = WB.Path yol = myPath & "\Data.xlsx" ' Create and open the connection Set Con = CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ yol & ";Extended Properties=""Excel 12.0;HDR=No"""...
  4. A

    Makro ile dosyalardan veritabanına bilgi aktarımı

    Sayın VeyselEmre, Kusura bakmayın az önce fark ettim. Veritabanının yolunu tanıtmadan kodu yazdığınız şekilde çalışma dosyası ve veritabanı aynı klasörde olursa kod çalışıyor sorun yok ama çalışma dosyası ve veritabanı aynı klasörde olmayacak. Çalışma dosyaları farklı klasörlerde olacak...
  5. A

    Makro ile dosyalardan veritabanına bilgi aktarımı

    Sayın VeyselEmre, Başta emeğiniz ve dönüşünüz için çok teşekkürler. Yazdığınız kodu çalışma dosyasına ekleyip veritabanının veriyolunu tanıttım. Ancak ekteki görselde görülen hatayı vermektedir. Nedeni ne olabilir acaba? Çok teşekkürler. Saygılarımla
  6. veyselemre

    Makro ile dosyalardan veritabanına bilgi aktarımı

    ...If Dir(fName) = Empty Then MsgBox fName & " bulunamadı!" GoTo cikis End If Set con = CreateObject("ADODB.Connection") con.Provider = "Microsoft.ACE.OLEDB.12.0" con.Properties("Data Source") = fName con.Properties("Extended Properties") = "Excel 12.0...
  7. veyselemre

    Acses veri tabanından yıllara göre ay sorgusu

    ...Integer Dim sql$, i%, c ' ADO sabitlerini tanımla Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open...
  8. B

    Acses veri tabanından yıllara göre ay sorgusu

    ...subatayi As Long ' ADO sabitlerini tanımla Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open...
  9. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    Haluk Hocam merhaba, buradaki kodları aşağıdaki bilgiler ışığında nasıl uyarlayabiliriz? Çalışma dosyasının bulunduğu klasör içinde TEXT adında bir klasör var, klasörde 1'den fazla txt dosyası mevcut ThisWorkbook.Path & "\TEXT\TestFile1.txt ThisWorkbook.Path & "\TEXT\TestFile2.txt ...
  10. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...("TestFile.txt") kac adet sutun yani, kac adet alan var....onu bulalim ve "ColumnCount" degiskenine atayalim! Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  11. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    Çok teşekkürler Haluk Hocam
  12. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...myFile = ThisWorkbook.Path & "\Data.xlsx" If Dir(myFile, vbDirectory) <> "" Then Kill myFile Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  13. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...= "F" & i adoTable.Columns.Append adoColumn Next adoCAT.Tables.Append adoTable Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  14. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...DosyaYolu = "[Excel 12.0 Xml;HDR=No;IMEX=0;DATABASE=" & ThisWorkbook.Path & "\Data.xlsm].[Rapor$]" Set Conn = VBA.CreateObject("adodb.Connection") With Conn .Open " provider=microsoft.ace.oledb.12.0;data source=" & yol & _ " ;extended properties=""Excel...
  15. Korhan Ayhan

    SQL sorguyu farklı bir dosyaya aktarmak

    ...sorgu As String Set SH = Sheets("Rapor") SH.Cells.ClearContents Yol = ThisWorkbook.FullName Set Conn = VBA.CreateObject("adodb.Connection") Conn.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ Yol & ";Extended Properties=""Excel 12.0;Hdr=No"""...
  16. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    ...Dim RS As Object Dim sorgu As String Set SH = Sheets("Rapor") SH.Cells.ClearContents yol = ThisWorkbook.FullName Set Conn = VBA.CreateObject("adodb.Connection") Conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=No""" sorgu = "Select...
  17. tamer42

    Ado ile kapalı txt veri alma hk.

    teşekkürler Veysel Hocam iyi seneler...
  18. veyselemre

    Ado ile kapalı txt veri alma hk.

    ...Source=" & pth strSql = "SELECT * FROM " & fName & " WHERE F14=1 AND F15=0" With Sheets("Sayfa1") .Cells.ClearContents Set rs = CreateObject("ADODB.Recordset") rs.Open strSql, strCon .Range("A1").CopyFromRecordset rs rs.Close End With End Sub
  19. tamer42

    Ado ile kapalı txt veri alma hk.

    Haluk Hocam önclikle mutlu yıllar, Yeni yılın hepimize sağlık, mutluluk ve huzur getirmesi dileğiyle... ekli txt dosyasında virgül ile ayrılmış 15 değer (sütun) bulunmakta; Burada şu şekilde bir sorgu oluşturabiliyor muyuz? 5. sütunda "1" olanlar, 6. sütunda "0" olanlar gibi WHERE [F5]=1...
  20. D

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

    @Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?
Üst