1 sayfadan 1. sayfa

sorgu eşleşmesi

İletiTarih: 25 Haz 2019 12:07
ahmetonline
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f1 ='" & range("A1").value & "'"
yukarıda yazan kod ile tam eşleşme yapıyorum.
acaba sadece 1-2 harf girsem bile o harfler ile eşleşen bir kod yapılabilir mi ?

Cevap: sorgu eşleşmesi

İletiTarih: 25 Haz 2019 12:13
Feyzullah
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f1 like '%" & range("A1").value & "%' "

Cevap: sorgu eşleşmesi

İletiTarih: 25 Haz 2019 13:36
ahmetonline
Çoooooook teşekkür ederim.

Cevap: sorgu eşleşmesi

İletiTarih: 25 Haz 2019 13:40
Feyzullah
--)( İyi Çalışmalar

Cevap: sorgu eşleşmesi

İletiTarih: 01 Tem 2019 11:43
ahmetonline
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T'"

yukarıdaki sorguda f14 te t yazanları getir diyorum ama f7 de hücre boş ise getiri nasıl yapabilirim.

Cevap: sorgu eşleşmesi

İletiTarih: 01 Tem 2019 13:03
Feyzullah
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 is null "

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 > 0 "

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 > '0' "

Cevap: sorgu eşleşmesi

İletiTarih: 01 Tem 2019 13:17
ahmetonline
şimdi fezullah bey f14 değer t olup f7 değer yok ise getir olacaktı, f7 değer var ise getirmeyecek.
f14 de t olan satırları bul ama f7 de değer yoksa getir şeklinde.

birde size birşey sormak istiyorum f8 deki değerler çekilen excel dosyasında sayısal olarak yazılmakta ama dosyaları çek dediğimde f8 deki değerler metin olarak saklanan sayı olarak geliyor. bir türlü düzeltemedim

Cevap: Cevap: sorgu eşleşmesi

İletiTarih: 01 Tem 2019 13:25
Feyzullah
ahmetonline yazdı:şimdi fezullah bey f14 değer t olup f7 değer yok ise getir olacaktı, f7 değer var ise getirmeyecek.
f14 de t olan satırları bul ama f7 de değer yoksa getir şeklinde.

Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 is null "


Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 > 0 "


Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 > '0' "



ahmetonline yazdı:birde size birşey sormak istiyorum f8 deki değerler çekilen excel dosyasında sayısal olarak yazılmakta ama dosyaları çek dediğimde f8 deki değerler metin olarak saklanan sayı olarak geliyor. bir türlü düzeltemedim


sorgu kodunu aşağıdaki şekilde yaparak deneyin. alan adının başına CLng yazın.

Kod: Tümünü seç
Sorgu = "Select f1,f2,f3,f4,f5,f6,f7, Clng(f8) from [SİPARİŞ TAKİP$] "

Cevap: sorgu eşleşmesi

İletiTarih: 01 Tem 2019 15:17
ahmetonline
Sorgu = "Select f1,f2,f3,f4,f5,f6,f7, Clng(f8) from [SİPARİŞ TAKİP$] "
Vermiş oldugunuz kod hata veriyor.
fezullah bey ben size ekte dosyayı vereyim .
sipariş takip dosyası veri dosyam.
kabin üretim dosyasında toplu işler butonuna bastıgımda veriler geliyor ama dediğim gibi sayısal olmadığı için toplamını j4 hücresine yazdıramıyorum. birde koşullu toplama olayını tam olarak anlayamıyorum. j stununda yer alan tiplerin toplamını nasıl alabilirim "u" ayrı "k" ayrı" olarak j6 ve j8 hücrelerine yazdırmak istiyorum.
sizede çok zahmet veriyorum kusuruma bakmayın lütfen

Cevap: sorgu eşleşmesi

İletiTarih: 02 Tem 2019 11:23
Feyzullah
Ahmet Hocam Kodlarınızı sayfanın kod bölümüne değilde Module kısmına yazarsanız hata almazsınız.

Kod: Tümünü seç
Sub dende()
Dim Con As ObjectRs As ObjectSorgu As String
    Range
("A15:AZ65000").ClearContents
    Range
("H1:J13").ClearContents
    Set Con 
CreateObject("Adodb.Connection")
    
Set Rs CreateObject("Adodb.RecordSet")
        
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" _
        ThisWorkbook
.Path "\SİPARİŞ TAKİP 2017.xlsx" ";extended properties=""excel 12.0;hdr=no"""
Sorgu "Select clng(f1),f2,f3,f4,f5,clng(f6),clng(f7),clng(f8),f9,f10,f11,f12,f13,f14,f15,f16,f17, f18,f19,f20 from [Sayfa1$]  where f14 ='T' and f7 is null "
Rs.Open SorguCon11
        Range
("A15").CopyFromRecordset Rs
        Rs
.CloseCon.Close
    Set Con 
NothingSet Rs NothingSorgu ""
    
Range("H2") = "TOPLAM ADET"
    
Range("J2") = WorksheetFunction.Sum(Range("F15:F65000"))
    
Range("H8") = "U Tipi Toplam"
    
Range("J8") = WorksheetFunction.SumIf(Range("J15:J6500"), "U"Range("F15:F6500"))
    
Range("H6") = "K Tipi Toplam"
    
Range("J6") = WorksheetFunction.SumIf(Range("J15:J6500"), "K"Range("F15:F6500"))
End Sub

Cevap: sorgu eşleşmesi

İletiTarih: 02 Tem 2019 12:06
ahmetonline
Tekrar çok teşekkür ederim fezullah bey vermiş olduğunuz bilgiler çok işime yaradı

Cevap: sorgu eşleşmesi

İletiTarih: 09 Tem 2019 10:06
ahmetonline
Birşey sormak istiyorum. Kapalı dosyadan veri alıyorum gayet güzel oldu yanlız dün işlem yaparken kapalı dosyayı açarak işlem yapmaya başladı. Acaba sebebi nedir. Acaba veri aldığım Excel dosyasını gizli olarak kayıt ettim sıkıntı oradan olabilir mi. İşlem yapınca salt okunur olarak açıyor

Cevap: sorgu eşleşmesi

İletiTarih: 09 Tem 2019 10:08
Feyzullah
Ado da böyle bir durum söz konusu olmaz. benim başıma da böyle bir durum gelmedi. farklı bir kod kullanmış olabilirsiniz.