Makro ile SQL bağlantısı

[crackerdent]

Arkadaşlar
SQL üzerinde bi db var. Ben Micr. Query kullanarak sorgu sonucunu excele alıyorum fakat her seferinde tarih aralığını değiştirmek için sorguyu yeniden düzenlemem gerekiyor. Acaba başlangıç ve bitiş tarihlerini iki ayrı textboxa girererek sorguyu otomatik hale getiremez miyim? Kullandığım SQL komutu aşağıdaki şekilde:

SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN '01/03/2005' AND '31/03/2005' GROUP BY MAKBBIL1.DOKTOR

kırmızı olan tarih kısımlarını textboxlarla belirlemek istiyorum. Yardımcı olursanız sevinirim.
Selamlar...

 

[zafer]

Merhaba

Sorgu düzenle ile query'e giriniz
ölçüt alanlarında Tarih kısmını seçin
altındaki satırda değer kısmına aşağıdaki iafadeyi yazınız.

Arasında [ilk tarih] Ve [son tarih] sorgunuzu saklayıp verileri excele atın

sonra

Veri/dıs verial / parametrelere girin
AÞAÐIDAKİ HÜCREDEN DEÐERİ AL kısmına istediğiniz hücrelerin adresini belirtiniz.

artık tarih arasu-ını o hücrelerden alacaktır

veya
BETWEEN ? AND ?


otomatik sql sorgulamasının kendi parametre sorma kutuları gelmiyormu

 

[crackerdent]

Sorgulamada iki değişik tablo ilişkide olduğu için dediğiniz şekilde standart sorgulama kutularıyla yapılamaz. Zaten benim sorunum da o konuda değil. Dediğiniz kutulara gerek kalmadan SQL komut ekranında da yapabiliyorum.
Sorun şu ki ben query e girmeden bir userform üzerinden sorgulama yaptırmak istiyorum.

 

[zafer]

Merhaba

Sorgu düzenle ile query'e giriniz
ölçüt alanlarında Tarih kısmını seçin
altındaki satırda değer kısmına aşağıdaki iafadeyi yazınız.

Arasında [ilk tarih] Ve [son tarih] sorgunuzu saklayıp verileri excele atın

sonra

Veri/dıs verial / parametrelere girin
AÞAÐIDAKİ HÜCREDEN DEÐERİ AL kısmına istediğiniz hücrelerin adresini belirtiniz.

artık tarih arasu-ını o hücrelerden alacaktır

 

[crackerdent]

Arkadaşım sanırım ben yanlış anlattım
ben zaten sorgu neticesini excele alıyorum. Onunla ilgili bi sorun yok.
Ben daha pratik olması açısından querynin userform aracılığıyla yapılıp yapılamayacağını soruyorum. Zira bu olay Visual Basic de yapılabiliyor.
Excelde nasıl olduğunu bilmiyorum. Ayrıca ilk mesajımda yazmış olduğum SQL komutunda tarih ölçüt alanı çıkmaz, dikkat edersen "GROUP BY MAKBBIL1.DOKTOR" ifadesi var.

 

[zafer]

Merhaba

Haklısınız toplam ve grup kısmını es geçmişim özür dilerim.

 

[crackerdent]

Rica ederim.
İlgilenmiş olmanız bile yeter.
Hoş hala ben cevap alamadım ama

 

[zafer]

Merhaba

yapamadığım bir birleştirme alanı var onu yapabilsem olacak
ben forumdan onun cevabını istiyeceğim.size tekrar dönerim benimde ilgi alanımda

 

[ALPEN]

Makro kaydet ile yeni bir veritabani sorgusu kaydedin.

Isiniz bittikten sonra kaydedilmis makroyu inceleyin.

Sorgunun where kismindaki parametreleri userformdan alacak sekilde ayarlamaniz gerekmektedir.

MSQuery su an bende sorun cikariyor. Bu yüzden bir örnek ekleyemedim.

Siz kaydettiginiz makroyu buraya yapistirirsaniz üzerinden gideriz.

 

[crackerdent]

ok
teşekkürler
tekrar dönecem

 

[zafer]

Merhaba

MAKBBIL1.TARIH BETWEEN '01/03/2005' AND '31/03/2005' GROUP BY MAKBBIL1.DOKTOR

bu kısımdaki tarihi ' şeklinde (ayraç içinde) '01.01.2005' gibi gösteremediğimizden sonuç alamıyoruz.
Sorumu makrolar kısmına sordum.

 

[crackerdent]

Sub sorgu()
'
' sorgu Makro
' Makro 17/05/2005 tarihinde kaydedildi.
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=HASTASQL;UID=SA;;APP=Microsoft Office 2003;WSID=BSTBP;DATABASE=melhasta;LANGUAGE=Türkçe;Regional=Yes" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN '01/03/2005' AND '31/03/2005' GROUP BY MAKBBIL1.DOKT" _
, "OR")
.Name = "MART"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[ALPEN]

"SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN" & cdate(userform1.textbox1) & " AND " & cdate(userform1.textbox2) & " GROUP BY MAKBBIL1.DOKT" _
, "OR")



Not : Msquery sorunlu oldugu icin deneyemedim.

Eger calismaz ise tarihlerin etraf1na "#" koyarak deneyin.

EDIT:

asagidaki gibi degistirin.

"SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN " & cdate(userform1.textbox1) & " AND " & cdate(userform1.textbox2) & " GROUP BY MAKBBIL1.DOKT" _
, "OR")

 

[crackerdent]

arkadaşlar
userform üzerinden sorgu yaptırdığım zaman query de aşağıdaki komutu veriyor. tarihlerin başında ve sonunda eğer " ' " işaretini koyabilirsek çalışacak

SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN 01/03/2005 AND 31/03/2005 GROUP BY MAKBBIL1.DOKTOR

 

[ALPEN]

tarihlerin başında ve sonunda eğer " ' " işaretini koyabilirsek çalışacak

"SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN '" & cdate(userform1.textbox1) & "' AND '" & cdate(userform1.textbox2) & "' GROUP BY MAKBBIL1.DOKT" _
, "OR")

 

[ALPEN]

olmaz ise asagidaki sekilde deneyin.

"SELECT makbbıl1.DOKTOR, SUM(TESHIS.PUAN) FROM makbbıl1 makbbıl1 INNER JOIN TESHIS ON MAKBBIL1.ISLEMKODU=TESHIS.ADI WHERE MAKBBIL1.TARIH BETWEEN #" & cdate(userform1.textbox1) & "# AND #" & cdate(userform1.textbox2) & "# GROUP BY MAKBBIL1.DOKT" _
, "OR")

 

[crackerdent]

:hey: oleeyyy bee
Süpersiniz valla
Sayın ALPEN ve emeği geçen herkese çok teşekkür ederim
Selamlar

 

[idogus]

Sn. Alpen

İşlemin tersini nasıl yapabiliriz?

TextBox daki veri ile sorgulama yapıldı. Yapılan sorgulamayı listbox a veya başka bir nesneye nasıl alabiliriz?

 

[ALPEN]

TextBox daki veri ile sorgulama yapıldı. Yapılan sorgulamayı listbox a veya başka bir nesneye nasıl alabiliriz?

http://www.excel.web.tr/viewtopic.php?p=18098#18098