• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Textboxa hangi veriyi girerek sorguyu çalıştırmayı düşünüyorsunuz.
 
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")
 
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.
 
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
 
Geri
Üst