Sorgu için arama sonuçları: IMEX

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" Set rs = CreateObject("Adodb.RecordSet") strSql = " SELECT * FROM [Sheet1$A:F] WHERE [Sütun1] IS NOT NULL ORDER BY...

Sayın veyselemre hocam elinize sağlık, çok teşekkür ederim, Allah sizden razı olsun. Çok güzel bir şekilde çalışıyor.

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" Set rs = CreateObject("Adodb.RecordSet") strSql = " TRANSFORM COUNT(MEMLEKET) " & _ " SELECT AYLAR FROM (SELECT...

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" sqlFields = Array("[No]", "[Ad Soyad]", "Puanı", "Kod", "Sayısı", "Renk") Set rs =...

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strSql = " TRANSFORM SUM([KOLİ ADET]) " & _ " SELECT FORMAT([TARİH],'DD.MM.YYYY DDDD') AS GÜNLER," & _ "...

Sayın hocam şuan dışarıdayim.eve geçince deneyeceğim, şimdiden elinize sağlık Allah razı olsun. Binlerce satırlık veriyi bir kaç saniye içinde istediğim şekilde yapıyor. Tekrardan çok teşekkür ederim. Hayırlı kandiliniz olsun, bu mubarek günde dualarınız kabul olsun inşallah

...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İ]...

Dosya linki ektedir Hocam https://s6.dosya

İ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.

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

teşekkürler

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

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

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

...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 =...

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

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

...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)...

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