Sorgu için arama sonuçları: IMEX

..."E").End(3).Row con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _ ";extended properties=""excel 8.0;hdr=yes;Imex=1""" evnsorgu = "select TC, [ADI SOYADI],3,[Çalışma Günü],[Aylık Tutar],[14 Günlük], Toplam, [Damga Vergisi], [İcra Kesintisi], [Kira...

...= CDbl(CDate(TextBox1)) dateEnd = CDbl(CDate(TextBox2)) Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=YES; IMEX=1;") Set RS = DB.OpenRecordset("Select sum([VERİ]) as [ToplamVeri] from [Sayfa1$] where " & _ "[TARİH] between "...

ADO'da "IMEX" parametresini kullanmanız gerekir...... Aslında siz de IMEX=1 kullanmışınız.... şu anda bilemiyorum dosyayı incelemek gerekir. .

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL1\deneme.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1""" ilktarih = CLng(CDate(Range("G3").Value)) sontarih = CLng(CDate(Range("H3").Value)) sorgu = "Select f1,f2,f3,f7 from [GRUPLAR$A2:Y65536] WHERE...

..."\\Server\Kayit\" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & YolA & "Panel.xlsm" & _ ";extended properties=""excel 12.0;hdr=no;imex=1""" Sorgu = "Select f6,f1,f10,f13 from [Giris$] rs.Open Sorgu, con, 1, 1 Range("a2").CopyFromRecordset rs rs.Close: con.Close Set con =...

baglan.Open = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes;" & _ "DATABASE=https://abcd.sharepoint.com/teams;" & _ "LIST={28359664-31AF-4A6A-B6CA-E0C4727AD89A};" kitaplık:"LIST={28359664-31AF-4A6A-B6CA-E0C4727AD89A};" olarak görüyor (LIST numarası SharePoint ayarlar + site...

Kodu aşağıdaki gibi değiştirdim. Yine bağlanamadım baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://abcd.sharepoint.com/teams/kitaplik/List.mdb" Bağlandıktan sonra verileri listboxa aktarması lazım. Veriler aktarılmadığı için bağlanmadığını anlıyorum...

Merhaba bu kodda sorgu diye tanımladığımız kısmı revize edip kullanmaya çalışıyorum. Ancak kapalı excelim düzenli olarak webden inen bir dosya olduğu için Kapalı excelde sorgu diye ad tanımlaması yapamıyorum. Nasıl çözebiliriz revize etmek istesek?

..."Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=No; IMEX=1" adoCN.Open strSQL = "Select [F1] from [Sayfa1$] where [F1] is not null" RS.CursorType = adOpenKeyset RS.Open strSQL...

..."Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=No; IMEX=1" adoCN.Open strSQL = "Select [F1] from " & sayfaa & " where [F1] is not null" RS.CursorType = adOpenKeyset On Error...

Kodu denedim 65536dan geriye doğru işlem yapıyor ve bayağı uzun sürüyor fakat doğru sonuç verdi yani bu durumda 65536 yada 1048576 yazınca iş karışıyor :)

...Source=" & ThisWorkbook.Path & "\kapali.xlsx" & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" On Error Resume Next sql = "Select Last(F1) FROM [Sayfa1$A2:A65536]" Set rs = con.Execute(sql)...

...Application.ScreenUpdating = False a.Open "provider=microsoft.ace.oledb.12.0;data source=" & fn & ";extended properties=""excel 12.0;hdr=yes;imex=1""" c.Open "select * from [Sayfa1$];", a, 1, 1 Range("A" & i).CopyFromRecordset c c.Close: a.Close Application.ScreenUpdating = True Set c =...

...Exit Sub strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileopen & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strsql = "SELECT [kULLANICI Adı], IIF ([Bilet Tipi]='Öğrenci', [Fiyat], NULL), " & _ "IIF ([Bilet Tipi]='Tam', [Fiyat]...

İlginiz için çok teşekkür ederim sabahın erken saatlerinde destek olarak bu kodu yazmışsınız çok teşekkürler (y)(y)(y) Bu yazmış olduğunuz makro fazlası ile ihtiyaçlarımı karşılıyor. Soracağım soru ise sadece sistemi geliştirmek adına yapılabilirliği için soruyorum. Peki bu sistemde daha...

Deneme yapar yapmaz size dönüş sağlayacağım ilginşz için çok teşekkür ederim

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;imex=1;hdr=no""" sorgu = "select f2 from [Sayfa1$] where f2 is not null group by f2" rs.Open sorgu, con, 1, 1 Do While Not rs.EOF say = 0...

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