sql den data süzmek

[mfk2003]

Arkadaşlar merhabalar,
sorumun şu ; sql de bulunan x isimli veritabanında bulunan y isimli tabloda bulunan ve isimleri 1 den başlayıp 20 ye kadar süren kolonlarda bulunan verilerden sadece 1,4,8 ve 10 isimli kolonlardan exceldeki userform1 de mevcut date time picker da verdiğim tarih bazında süzerek getirmesini istiyorum.Ve yazdığımız bu kodu da yine userform1 de bulunan commandbutton1 in clik olayına yazmak istiyorum.Kısa bir örnek kod işimi çözecek.
Şimdiden çok teşekkürler ediyorum,

 

[mfk2003]

Arkadaşlar konu hakkında herhangi bir bilgisi olanda mı yok ?

 

[Rafet]

İsteğiniz şey o kadar basıt değil . Bir örnek hazırlamak vakt alır .

İsterseniz aşağidaki linki bir inceleyin.

Fikir verecektir.

http://www.excel.web.tr/showthread.php?t=20204

ben raporlarımda date time picker hiç kullanmadım. Ne işe yaradığınıda merak ettim doğrusu .Öğrenmek üzere sitede bakacam tabi. Bu bilgi içinde teşekürler.

 

[mfk2003]

teşekkür ederim, date time picker formlarda tarih bilgisi girmek için olşturulan özel bir fonksiyon,

 

[mfk2003]

Linklerde bulunan dosyaları inceledim,çok faydası oldu teşekkür ederim,
Siz makroda bulunan süzme kısıtları için hücrelerde bulunan değerleri atıyorsunuz.Benim istediğim ise Excelde oluşturulmuş bir userform üzerinde bulunan nesnelerden değer atamaktı.Textboxlardan değer atamayı başardım şuan tarih değerilerini DTpicker üzerinden atamaya çalışıyorum.Çalışmam sona erince kodları buraya yazacağım.

 

[mfk2003]

Userform1 isimlil formda bulunan textbox1 , textbox2 ve textbox3 e göre sqlden verileri süzüp excele alabilirsiniz.

Private Sub CommandButton1_Click()

Range("A2").Select
With Selection.ListObject.QueryTable
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=DATABASE İN BULUNDUĞU SERVER IN ADI;UID=SERVERKULLANICIADI;APP=2007 Microsoft Office system;WSID=DATABASE İN BULUNDUĞU SERVER IN ADI;DATABASE=DATABASEİN İSMİ;Trusted_Connection=Yes"
.CommandText = Array( _
"SELECT KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI,KOLONADI" & Chr(13) & "" & Chr(10) & "FROM [DATABASE İSMİ].[dbo].[TABLOADI]" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "Where 1.KISITKOLONADI='" & (TextBox3.Value) & "' and A 2.KISITKOLONADI='" & (TextBox2.Value) & "' " & Chr(13) & "" & Chr(10) & "and " _
, "3.KISITKOLONADI'" & (TextBox1.Value) & "'")
.Refresh BackgroundQuery:=False
End With
Unload UserForm1

End Sub