resimli stok listesi

Katılım
4 Ağustos 2006
Mesajlar
33
Merhaba arkadaşlar bir konuda yardımınıza ihtiyacım var.yaptıgım bir resimli stok listesinde bagzı sorunlar yasıyorum.sql den verileri çekerek belirli bir klasordeki resimleri sayfaya getiriyorum yanlız takılıgım nokta bir textbox aracılıgı ile sql sorgumu duzenlemek istiyorum bunu nasıl yapabilirim.ornek dosyayı ekte gonderiyorum.yardımlarınız için şimdiden teşekkurler.
 

Ekli dosyalar

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Textboxa hangi veriyi girerek sorguyu çalıştırmayı düşünüyorsunuz.
 
Katılım
4 Ağustos 2006
Mesajlar
33
Textboxa hangi veriyi girerek sorguyu çalıştırmayı düşünüyorsunuz.
between aralıgına mudahale etmek istiyorum.örnek olarak
"SELECT SK.KOD,SK.ADI,SK.SFIYAT1,SKK.DEPO,SKK.FSTOK FROM SKART SK INNER JOIN SKARTK SKK ON(SK.SIRKET=SKK.SIRKET AND SK.KOD=SKK.KOD)WHERE SKK.FSTOK BETWEEN '5' AND '99999'AND SK.KOD BETWEEN '15000' AND '17000'AND SK.SIRKET =07 And SKK.DEPO =6")
 
Katılım
4 Ağustos 2006
Mesajlar
33
arkadaşlar formda aradım konu ile ilgili birşeyler buldum fakat yine bir yerde tıkandım.
bu kodları user formda yazdım zaman
Kod:
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=HKNSRV;UID=sa;;APP=Microsoft Office 2003;WSID=BSTBP;DATABASE=HKN2008;LANGUAGE=Türkçe; Regional=Yes" _
, Destination:=Range("B1"))
.CommandText = Array( _
"SELECT SK.KOD,SK.ADI,SK.SFIYAT1,SKK.DEPO,SKK.FSTOK FROM SKART SK INNER JOIN SKARTK SKK ON(SK.SIRKET=SKK.SIRKET AND SK.KOD=SKK.KOD)WHERE SKK.FSTOK BETWEEN '"&(userform1.textbox1)&"' AND '" &(userform1.textbox2)&"'AND SK.KOD BETWEEN '"&(userform1.textbox3)&"' AND '"&(userform1.textbox4)&"'AND SK.SIRKET =07 And SKK.DEPO =6")
.Name = "SORGU"
.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
.Refresh BackgroundQuery:=False hata veriyor bu nedeni konusunda bana yardımcı olabilirmisiniz.
 
Katılım
4 Ağustos 2006
Mesajlar
33
arkadaslar o hatayıda cozdum fakat.database deki bir hatadan dolayı kaynaklanıyormus.ama yine bir konuda takıldım yardımcı olursanız sevinirim.
sıkıntım su ornegin

textbox1 ve texbox2 bos ise farklı bir sql sorgusu çalıştırsın dolu ise farklı bir sql cumlesi çalıştırsın.bu mumkun mu ?.yardımlarınız için şimdiden teşekkurler
 
Üst