Sqlden veri çekip comboboxta listeleme

[arrow3441]

Merhaba sqlden özel kodları çekmek istiyorum Combobox1 özelkod1 , combobox2 özelkod2 bilgileri sqlden çeksin seçebileyim yardımcı olurmusunuz

 

[Haluk]

    ComboBox1.Column = objRS.GetRows(, , "özelkod1")
    
    objRS.MoveFirst
    
    ComboBox2.Column = objRS.GetRows(, , "özelkod2")

.

 

[arrow3441]

Teşekkür ederim sizden ricam ekteki dosyaya göre uyarlayabilirmisiniz comboboxları doldursun .Combobox1 tıkladıgımda STK.KOD1 ,Combobox2 tıkladıgımda STK.KOD2 verilerle doldursun

 

[Haluk]

Veri tabanı boş ve içinde bahsettiğiniz "özelkod1", "özelkod2" alanları yok....

.

 

[arrow3441]

sqlden çekicek hocam şubehareketleri sayfasında sql sorgusu içeriyor. STK.KOD1 özelkod1 STK.KOD2 özel kod 2

 

[Haluk]

Ben sizin veri çektiğiniz veri tabanına nasıl ulaşacağım ki???

Siz ekli örneği inceleyin, kendinize uyarlarsınız......

.

 

[arrow3441]

teşekkür ederim hocam deniyorum hemen

 

[arrow3441]

hocam bunu başardım fakat sql sorgusunda nasıl kullanacagımı çözemedim . Where koşuluna combobox1 değer girince ve combobox2 değer girince uyan koşulları sorgulasın

 

[Haluk]

Ornek verilerinizi bir Excel tablosuna isleyin, ne yapmak istediginizi de aciklayin.

.

 

[arrow3441]

Merhaba hocam sql sorgum alttaki gibi sayfadan almıcak bilgileri sql den çekicek . Şubehareketleri sayfasının kod bölümünde sorgu istediğim şey combobox1 STK.KOD1 ,combobox2 STK.KOD2 vb
kolonundaki verileri çekmek

sorgu = "SELECT " & _
" CASE SH.DEPO  WHEN '117' THEN 'AKTUEL'  WHEN '107' THEN 'KIZILAY' " & _
"WHEN '108' THEN 'TUNALI' WHEN '109' THEN 'BAYRAMYERI' WHEN '110' THEN 'CINAR' WHEN '111' THEN 'ANTALYA' " & _
"WHEN '112' THEN 'BESIKTAS' WHEN '113' THEN 'BEYLICIUM' WHEN '114' THEN 'ESENLER' WHEN '115' THEN 'FINDIKZADE' " & _
"WHEN '116' THEN 'GAZIPASA' WHEN '119' THEN 'GEMLIK' WHEN '120' THEN 'ISPARTA' WHEN '121' THEN 'KAYSERI' " & _
"WHEN '122' THEN 'KIRIKKALE' WHEN '125' THEN 'MALTEPE' WHEN '126' THEN 'PENDIK' WHEN '127' THEN 'PROFILO' " & _
"WHEN '128' THEN 'SEFAKOY' WHEN '129' THEN 'SOGANLIK' WHEN '130' THEN 'SIRINEVLER' WHEN '131' THEN 'YAYLA' " & _
"WHEN '132' THEN 'ZONGULDAK' WHEN '134' THEN 'KARABUK' WHEN '135' THEN 'MANISA' WHEN '136' THEN 'AYDIN' WHEN '100' THEN 'CASHCARRY' WHEN '140' THEN 'NIGDE' WHEN '141' THEN 'BARTIN' WHEN '1' THEN 'MERKEZ' " & _
"ELSE 'DIGER' END AS DEPO,STK.STOKKODU , " & _
"STK.MALINCINSI ,ISNULL(STK.KOD6,'BOŞ'),ISNULL(STK.KOD7,'BOŞ'),SUM(CIKAN-GIREN) AS NETCIKIS ,ROUND(SUM(CASE When IADE='FALSE' Then (SH.TUTAR+SH.TUTAR*SH.KDV/100)  Else -(SH.TUTAR+SH.TUTAR*SH.KDV/100) End ),2) AS [NET TOPLAMCIRO], " & _
"BRMEX.SATISFIYATI1 AS [PRKNDE STF1],ISNULL(BRMEX.SATISFIYATI4,0) AS [MALIYET] ,ROUND(SUM(CASE When IADE='FALSE' Then (CIKAN*BRMEX.SATISFIYATI4) Else -(GIREN*BRMEX.SATISFIYATI4) End ),2) as [TOPLAM MALIYET],(SELECT SUM(ENVANTER) FROM F0101D0004TBLDEPOENVANTER WHERE STOKNO=SH.STOKNO AND DEPO=1) AS KALAN  " & _
"FROM   F0101TBLSTOKLAR AS  STK LEFT JOIN " & donem & " AS SH ON  " & _
"STK.IND=SH.STOKNO LEFT JOIN F0101TBLDEPOLAR AS TBLDEPOLAR ON TBLDEPOLAR.IND=SH.DEPO LEFT JOIN F0101TBLBIRIMLEREX AS BRMEX ON BRMEX.IND=STK.BIRIMEX  WHERE  " & _
"(" & stkmalıncinsi & ") AND SH.IZAHAT IN (101,102,27,21,33) AND " & _
"TBLDEPOLAR.DEPOADI NOT IN ('SAYIM','INTERNET','CARSI','TRANSFER','NCITY','HASARLI','SATIS') " & _
"AND convert(date,SH.TARIH) BETWEEN '" & tarih1 & "'  AND '" & tarih2 & "' AND TBLDEPOLAR.DEPOADI IN  (" & selection & ") " & _
"AND  STK.STOKKODU LIKE  '%" & UserForm1.TextBox3.Text & "%'  AND (SH.DEPO != '107' OR SH.IZAHAT != '33')   " & _
"GROUP BY " & _
"STK.STOKKODU,STK.MALINCINSI,STK.KOD6,STK.KOD7,BRMEX.SATISFIYATI1,BRMEX.SATISFIYATI4,SH.DEPO,SH.STOKNO ORDER BY NETCIKIS DESC "

 

[Haluk]

Deneme şansım olmadığı için birşey anlamadım....

.