Sorgu için arama sonuçları: IMEX

...con.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no;imex=1""" sorgu = "Select distinct [F5] from [HCPFilter$]" rs.Open sorgu, con, 1, 1 If rs.RecordCount > 0 Then ComboBox2.Column =...

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no;imex=1""" Call Me.Listbox Call Me.Combo("") Dim sh As Worksheet Set sh = Sheets("xxx") For x = 2 To sh.Cells(65536, 2).End(xlUp).Row If...

Merhaba. Resimdeki gibi harfler comboda çıkmıyor ımex olayı kodda olsa bile. Sütun biçimini Metin yaparsam sorun yok. ilk 8 satırda harf varsada sorun yok. Acama biçim Metin yada ilk 8 satıra harf girilmeden sorun nasıl giderilir? https://dosya.co/0vbmfxzjzg5o/Ado_Hata.rar.html

...Ancak çözüm şu oldu ADO RecorSet'te ilk 8 veriye bakıldığından "Haluk Beye Teşekkürler" Başlıkları Metin yapıp HDR=No ; IMEX=1 yapınca tüm veriler metin olarak geliyor . ilgilendiğiniz için size de teşekkürler Feraz Arkadaşım.

...benmi bir hata yapıyorum? kapalı bir dosyadan içinde sayısal ve metinsel verileri olan 100 sütun 450 satırlık bir tablodan veri çekiyorum faka IMEX=1 yazmama rağmen sayıları metin olarak çekmiyor ne yapmamlazım? Data.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & D_Yolu &...

Haluk hocam aradığım buydu. Kod bitince en sonda hata veriyor. On error resume next vs... ayarlarım orayı.

Halit hocam kod doğru çalıştı :)

Orion1 hocam yanlış anlamışsınız olayı.Kodu denedim mesela kodunuzdaki 5 yerine 85 yazdım mesaj kutusunda 99 çıktı :)

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" strRecord = "5" sql = "Select F1 FROM [Sayfa1$A1:A65536]" rs.Open sql, con, 1, 1 rs.Find "F1 =" & strRecord If rs.EOF...

(y) Hocam birden fazla aranan değerden varsa ilk bulduğununmu satırını veriyor?

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" strRecord = "5" sql = "Select F1 FROM [Sayfa1$A1:A65536]" rs.Open sql, con, 1, 1 rs.Find "F1 =" & strRecord MsgBox "Aranan...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select top 5 f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 rs.movelast MsgBox rs(0).Value con.Close Set con = Nothing Set rs = Nothing End Sub

...= "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=YES;Imex=1;""" sql = "SELECT TARİH, [FATURA NO],KİME,'Toptan Satış Faturası', " & _ "SUM(IIF([KDV ORANI]=0, [SATIR TOPLAMI], 0)) AS MTRH0, " & _...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 aranan = 5 say = 1 While Not rs.EOF say = say + 1 If rs(0) = aranan Then MsgBox rs(0) & Chr(10) & say...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 rs.Find "f1 = 5" MsgBox rs!f1 con.Close Set con = Nothing Set rs = Nothing End Sub

...strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" Set RS = CreateObject("Adodb.RecordSet") With Sheets("En Ucuz") .Select .Range("A2:D" & Rows.Count).ClearContents...

Merhaba, bu son attığınız makro ilk attığınızdan ne gibi farklılığı var onu anlayamadım. Öğrenmek için soruyorum bunu, birde ben bu makroları asıl kullanmam gereken yerde malesef kullanamadım. Şimdi attığım örnek bu makroyu asıl kullanmak istediğim yer. Ama oraya taşıyamadım. Birleştirilmiş...

...Exit Sub strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileopen & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strsql = "SELECT [Stok Adı], IIF ([Ödeme Tipi]='Yönetim Misafir', [Satış Miktarı], NULL), " & _ "IIF ([Ödeme...

...= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.Path & _ "\Data.xlsx';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" Set RS = CreateObject("Adodb.RecordSet") krtr = [M2] strsql = "SELECT * FROM [Sayfa1$] WHERE (F1 + F2 + F3 + F4 +F5 + F6 +...

...= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" strsql = "SELECT F3, (" & miktar & "*F5), F4,null,null,null,null, F5 " & _ "FROM [VERI$A2:E" &...