Sorgu için arama sonuçları: IMEX

  1. veyselemre

    Benzersiz Verileri Tablo Olarak Yeni Bir Excelde Kaydetme

    ...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strSql = " TRANSFORM COUNT([RÜTBESİ]) " & _ " SELECT [BİRİMİ] FROM [Sayfa1$A:G] " & _ " GROUP BY [BİRİMİ]...
  2. tamer42

    Left Join Operatöründe hata

    Dosya linki ektedir Hocam https://s6.dosya
  3. FERAZ

    Left Join Operatöründe hata

    İyi pazarlar. Altın üye olmaığım için dosyanızı inceleyemedim.Ama unutmazsam harici siteye örnek yükleyebilirim first ile.Ayrıca imex=1 ekleyebilirsinizde düzensizse üstadın dediği gibi ise.
  4. Korhan Ayhan

    SQL sorgusunda "Is Not Null" problemi hk.

    ...da sütunün içereceği veri tipi gelir. Siz düzeni olmayan bir tabloda ADO kullanmaya çalışıyorsunuz. Bu tarz sorunlarla karşılaşmanız gayet doğaldır. Bağlantı (Connection) satırında IMEX kullanmayı deneyebilirsiniz. Forumda ya da nette önerdiğim ifadeyi araştırırsanız örneklere ulaşabilirsiniz.
  5. tamer42

    SQL sorgusunda "Is Not Null" problemi hk.

    teşekkürler
  6. M

    SQL sorgusunda "Is Not Null" problemi hk.

    Merhaba, bağlantı parametresine imex=1; ekleyip dener misiniz?
  7. YUSUF44

    Seçmeli Aktar

    ...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes;imex=1""" s3.Range("A2:H" & Rows.Count).ClearContents If s1.[AA2] <> "" And s1.[AA4] = "" Then sorgu = "select * from [KAYIT$] where not isnumeric([KALAN...
  8. tamer42

    Kapalı Dosyada ilk sayfayı alma

    çok teşekkürler Haluk hocam, iyiki varsınız!
  9. H

    Kapalı Dosyada ilk sayfayı alma

    ...Set daoDBEngine = CreateObject("DAO.DBEngine.120") Set DB = daoDBEngine.OpenDatabase(sWorkbook, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") MySheet =...
  10. kulomer46

    Sayfa adını hücreden aldırmak

    ...Dosya = Empty Then Exit Sub con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _ Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no""" syfadi=cells(4,2) sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [" & syfadi & "$A2:J65536] WHERE f5 > 0" rs.Open sorgu, con, 1, 1...
  11. T

    Sayfa adını hücreden aldırmak

    ...If Dosya = Empty Then Exit Sub con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _ Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no""" sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [Elbise$A2:J65536] WHERE f5 > 0" rs.Open sorgu, con, 1, 1 Range("a6").CopyFromRecordset rs...
  12. cakto

    Soru Aynı sütunda farklı olan verilerin sayısını bulma

  13. H

    Soru Aynı sütunda farklı olan verilerin sayısını bulma

    ...Set DB = CreateObject("DAO.DBEngine.120").OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") strSQL = "Select [İLLER], Sum([TOPLA]) From [Sayfa1$] Where [İLLER] Is Not Null Group By [İLLER]" Set RS = DB.OpenRecordset(strSQL)...
  14. H

    Soru Kelime Farklılıklarını Buldurma

    ...daoDBEngine = CreateObject("DAO.DBEngine.120") Set Db = daoDBEngine.OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=No; IMEX=1;") strSQL = "Select Table2.F2 " & _ "From [Detay$] as Table2 " & _ "Left Join " & _ "[Detay$] As...
  15. okan32

    Soru Excel Dosyalarından Excele Veri Alma

    ...Source=" & ThisWorkbook.Path & "\_reports_4BKKRaporlar_BankaListesi.xlsx" & _ ";Extended Properties=""Excel 12.0;Hdr=yes;IMEX=1""" Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [BankaListesi$F25:AE50]" Rs.Open Sorgu, Con, 1, 3 SonSatir =...
  16. H

    ListBoxta Sayfa İsimlerini Kapalı dosyadan almada nokta(.) sorunu

    ...myFile = "C:\Users\Haluk\Desktop\İZİN PROGRAMI.xlsx" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") For i = 0 To DB.TableDefs.Count - 1 MySheet = VBA.Replace(DB.TableDefs(i).Name, "'", "") MySheet =...
  17. bulentkars

    Kapalı Çalışma kitabını şartlı açmak

    ...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...
  18. bulentkars

    Kapalı Çalışma kitabını şartlı açmak

    ...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...
  19. bulentkars

    Kapalı Çalışma kitabını şartlı açmak

    ...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...
  20. bulentkars

    Kapalı Çalışma kitabını şartlı açmak

    ...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...
Üst