Sorgu için arama sonuçları: adodb

  1. 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...
  2. 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...
  3. 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 ...
  4. 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...
  5. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    Çok teşekkürler Haluk Hocam
  6. 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...
  7. 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...
  8. 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...
  9. 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"""...
  10. 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...
  11. tamer42

    Ado ile kapalı txt veri alma hk.

    teşekkürler Veysel Hocam iyi seneler...
  12. 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
  13. 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...
  14. 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?
  15. E

    Ado Left Join Kullanma

    ...hata verdi. Sub AdoLeftJoin() Dim con As Object, rs As Object, qStr As String, myPath As String, clsPath As String Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") myPath = ThisWorkbook.FullName clsPath = "C:\Users\admin\Desktop\Mdemir\Data.xlsx" con.Open...
  16. D

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

    ...Set SH = Sheets("Data") myPath = ActiveWorkbook.Path WB1 = ActiveWorkbook.FullName WB2 = myPath & "\Kaynak.xlsx" Set adoCN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & WB1 & _...
  17. tamer42

    Ofice 365' de kod çalışma sorunu hk.

    ...kesildi" diye kod hata veriyor, Bu konuda nasıl bir çözüm önerisi önerebilirsiniz teşekkürler, iyi akşamlar. Sub xRapor3() Dim Con As ADODB.Connection Dim RS As ADODB.Recordset Dim SH As Worksheet Dim strConn As String Dim myFile As String Set SH = Sayfa5...
  18. O

    Bütün excel dosyalarını alt alta ekleme

    Çok teşekkür ediyorum ellerinize sağlık yanlız söyle bir sorun var bazı excel dosyaların içinde sadece data yada sadece komax var oyuzdende hata verıyor sanırım sız hepsınde 2 sı var olarak ayarladınız.birde hata verdiği varyantıda yazma sansımız varmı bu sekılde cunku 50 60 excel dosyasında tek...
  19. N

    Bütün excel dosyalarını alt alta ekleme

    ..."Klasör Adı: " & subfolder.Name End If Next subfolder End Sub Sub DosyaVeriAl(DosyaAdi As String) Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset Dim i As Long Dim j As Integer On Error GoTo Devam Adet = Adet...
  20. tamer42

    SQL UPDATE güncelleme sonrası formüller çalışmıyor.

    ...As Variant, tas1 As Double, deg1 As Double, tas2 As Double, deg2 As Double) Dim RS As Object Dim qry As String Set RS = CreateObject("ADODB.Recordset") qry = "Select [F4],[F5],[F6],[F7] From [Ring$A2:H]" & _ " Where [F2] = '" & kod & "'" RS.Open qry, Conn, 1, 3 If Not...
Üst