Sorgu için arama sonuçları: IMEX

ADO bağlantısını kurarken; .Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" veri tablosundaki alanlarla ilgili olarak HDR=No (Header ≡ Başlık) kullanarak, ADO'ya sütun başlıkları "Yok" diye belirttik. O zaman ADO, tablodaki veri alanlarınının başlıklarını otomatik olarak...

...< 14 Then .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" Else .Provider = "Microsoft.Ace.OLEDB.12.0" .Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;" End If...

Hocam ilginiz için çok teşekkür ederim

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