Ado SQL sorgusunda split fonksiyonu kullanımı

[pNouma]

Merhablar,

Aşağıdaki sorduda,
split fonksiyonu kullanımını nasıl düzenleyebiliriz?

yardımlarınız için şimdiden teşekkür ederim.

iyi çalışmalar.

Set Con = VBA.CreateObject("Adodb.Connection")

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=No"""

sorgu = "Select F1, Split([F3], '_')(0)  From [Panel$J2:AF] "

 

[halily]

Sadece ilk eleman mi alınacak?
Eğer öyleyse split e gerek yok ınstr fonksiyonu ve len yeterli dir

 

[pNouma]

Sadece ilk eleman mi alınacak?
Eğer öyleyse split e gerek yok ınstr fonksiyonu ve len yeterli dir

Halil Hocam sadece ilk elaman değil, 2. elaman da alınacaktı.

teşekkürler,
iyi çalışmalar.

 

[halily]

Bildiğim kadarıyla exceldeki sorgularda spliti doğrudan kullanamıyoruz
Önce tüm veriyi alıp sonra parçalayabilirsiniz
Tabi yanılıyor da olabilirim.

 

[pNouma]

Bildiğim kadarıyla exceldeki sorgularda spliti doğrudan kullanamıyoruz
Önce tüm veriyi alıp sonra parçalayabilirsiniz
Tabi yanılıyor da olabilirim.

Bilgilendirme için teşekkür ederim Halil Hocam..
iyi akşamlar.

 

[halily]

Rica ederim İyi çalışmalar)

 

[dost]

Merhaba,

Deneyiniz.

sorgu = "Select F1, Mid(F3, Instr(F3, ' ') + 1, " & _
        "Instr(Instr(F3, ' ') + 1, F3, ' ') - Instr(F3, ' ') - 1) As [F3 text] " & _
        "From [Panel$J2:AF] "

 

[pNouma]

Merhaba,

Deneyiniz.

sorgu = "Select F1, Mid(F3, Instr(F3, ' ') + 1, " & _
        "Instr(Instr(F3, ' ') + 1, F3, ' ') - Instr(F3, ' ') - 1) As [F3 text] " & _
        "From [Panel$J2:AF] "

Teşekkür ederim Hocam
1. elamanın alımında gayet güzel çalışıyor.
Yalnız ilk elaman değil, bunun yanında 2. elaman da alınacağı zaman mümkün olabilir mi?
iyi akşamlar.

 

[halily]

Standart olarak sadece 2 eleman varsa o halledilebilir ama değişkende bazen 1 bazen 10 eleman olabiliyorsa dediğim gibi veri alındıktan sonra bölünmesi daha uygun olur

 

[Erdem Akdemir]

Aşağıdaki gibi yazarsanız olacaktır.

sorgu = "Select F1, '" & Split([F3], '_')(0) & "' From [Panel$J2:AF] "

 

[pNouma]

Aşağıdaki gibi yazarsanız olacaktır.

sorgu = "Select F1, '" & Split([F3], '_')(0) & "' From [Panel$J2:AF] "

Erdem Hocam ilginize teşekkürleri yalnız bu şekilde olmadı.
ekli görseldeki gibi sorgu satırı kırmızı oldu.

iyi Çalışmalar

Sub Test()
Dim Con As Object

sorgu = "Select F1, 'Split([F3], '_')(0) & " ' From [Panel$J2:AF] "


Set Con = VBA.CreateObject("Adodb.Connection")

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=No"""


Set RS = Con.Execute(sorgu)


Sayfa7.Range("A2").CopyFromRecordset RS


End Sub

Hata indir

Hata

www.dosyaupload.com

 

[Erdem Akdemir]

Benim dediğim gibi yazmamışsınız.

 

[pNouma]

Benim dediğim gibi yazmamışsınız.

Kopyala- Yapıştır yaptım Hocam
sizin dediğiniz nasıldı?
teşekkürler

 

[Erdem Akdemir]

Benim verdiğim cevap ile sizin son yazdığınız kodlar birbirine uyuyor mu?
Aşağıdaki ilk sıradaki benim verdiğim sorgu, ikincisi sizin koddaki sorgu.
Sizce sorgular aynı mı?

sorgu = "Select F1, '" & Split([F3], '_')(0) & "' From [Panel$J2:AF] "

sorgu = "Select F1, 'Split([F3], '_')(0) & " ' From [Panel$J2:AF] "

 

[pNouma]

Benim verdiğim cevap ile sizin son yazdığınız kodlar birbirine uyuyor mu?
Aşağıdaki ilk sıradaki benim verdiğim sorgu, ikincisi sizin koddaki sorgu.
Sizce sorgular aynı mı?

sorgu = "Select F1, '" & Split([F3], '_')(0) & "' From [Panel$J2:AF] "

sorgu = "Select F1, 'Split([F3], '_')(0) & " ' From [Panel$J2:AF] "

Erdem Hocam sizin verdiğiniz sorguyu olduğu gibi kopyalayıp modüle yapıştırıyorum,
ekli ekran görüntüsünde olan hata mesajını vermekte;

https://dosya.co/666nuk9j3nhi/345.jpg.html

teşekkürler,
iyi çalışmalar.

 

[Erdem Akdemir]

Aşağıdaki yapıştırın. Sizin kod üzerinden düzeltirken burasını atlamışım.

sorgu = "Select F1, '" & Split([F3], "_")(0) & "' From [Panel$J2:AF] "

 

[pNouma]

Aşağıdaki yapıştırın. Sizin kod üzerinden düzeltirken burasını atlamışım.

sorgu = "Select F1, '" & Split([F3], "_")(0) & "' From [Panel$J2:AF] "

Erdem Hocam,
Örnek dosyayı ekli linke ekledim.
bu dosya üzerinde çalışma yapabilirseniz çok sevinirim.

https://dosya.co/a6pz4zdinqod/Kitap1.xlsm.html


tekrar teşekkürler,
iyi Çalışmalar.

 

[Erdem Akdemir]

F3 hücresinde bir şey yazmıyor.
Bu çalışmada nasıl bir sonuç alınacak, onu da yazar mısınız.

 

[halily]

[F3] sorguda 3. sütun anlamına geliyor hocam
yani burada kast edilen C sütunundaki tüm veriler bölünecek

 

[pNouma]

[F3] sorguda 3. sütun anlamına geliyor hocam
yani burada kast edilen C sütunundaki tüm veriler bölünecek

Özür!
[Panel$A2:E3]
sayfa1' in adı Panel olacaktı...
yada sorguyu [Sayfa1$A2:E3] olarak değiştirilebilir.

3. satıra kadar verilerin alınması yeterlidir.

iyi çalışmalar.