Skip to main content

AccessTr.neT


Acsess Sorgusu İle Listview'e Veri Alma

Acsess Sorgusu İle Listview'e Veri Alma

#7
Hocam resim ekle butonunu çalmışlar Img-grin

Ama rar olarak ekledim, daha iyi anlayacaksınız.
.rar Ekran Alıntısı.rar (Dosya Boyutu: 172,8 KB | İndirme Sayısı: 1)
Cevapla
#8
Tamam çözüm gelmezse hallederim.
Cevapla
#9
Teşekkür ederim, hakkını ödeyemem sağolasın.
Cevapla
#10
(10/04/2020, 20:54)kanakan52 yazdı: Hocam resim ekle butonunu çalmışlar Img-grin

Ama rar olarak ekledim, daha iyi anlayacaksınız.
Img-grin

Heralde yeni temada resim eklemek için şöyle yapılıyor.Mesaj önizlemeye tıklanıp başka yerde resim ekle icon var oraya tıklanınca link ekleniyor.O link içince harici resim upload sitesine resim ekleniyor ordan alınan resim linki ekleniyor.
Cevapla
#11
Alttaki gibi dener misiniz?



Kod:
Dim lstview As ListItem
Set lstview = TBL_SIPRS.ListView1.ListItems.Add(, , rs("Cari_Kod"))
lstview.SubItems(1) = rs("Siparis_Tarihi")
lstview.SubItems(2) = rs("Termin_Tarihi")

Yukardakilerini ekledim.Gerisini siz ekleyin Img-grin



Kod:
Private Sub Tsipno_Change()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
strSQL = "select*from SiparisKayitlari where Siparis_No ='" & Tsipno & "'"
Set rs = baglan.Execute(strSQL)

Dim lstview As ListItem

If Not rs.EOF Then

Tsiptarihi.Text = r
s("Siparis_Tarihi")
Ttermin.Text = rs("Termin_Tarihi")
tcarikod.Text = rs("Cari_Kod")
Caliciadi.Value = rs("Cari_Adi")
Taliciadresi.Value = rs("Adres")
Caliciil.Value = rs("Ýl")
Caliciilce.Value = rs("Ýlce")
Caliciülke.Value = rs("Ulke_")
Talicitelefon.Value = rs("Telefon")
Talicifaks.Value = rs("Faks")
Talicimail.Value = rs("Mail")
Cfarkliteslim.Value = rs("Farkli_Teslimat_Cari_Adi")
Tfarkliteslimadres.Value = rs("Farkli_Teslim_Adres")
Cfarkliteslimil.Value = rs("Farkli_Teslim_Ýli")
Cfarkliteslimilce.Value = rs("Farkli_Teslim_Ýlce")
Cfarkliteslimülke.Value = rs("Farkli_Teslim_Ulke")
Tfarkliteslimtelefon.Value = rs("Farkli_Teslim_Telefon")
Tfarkliteslimfaks.Value = rs("Farkli_Teslim_Faks")
Tfarkliteslimmail.Value = rs("Farkli_Teslim_Mail")
Tmüsterisiparisno.Value = rs("Müsteri_Siparis_No")
Tteslimperiyodu.Value = rs("Teslim_Periyodu")
Tnakliye.Value = rs("Nakliye_Þekli")
'-------------------------------------------------------------------
Set lstview = TBL_SIPRS.ListView1.ListItems.Add(, , rs("Cari_Kod"))
lstview.SubItems(1) = rs("Siparis_Tarihi")
lstview.SubItems(2) = rs("Termin_Tarihi")
Else
Exit Sub
End If
End Sub


PHP Kod:
TBL_SIPRS.ListView1.ListItems.Clear 
Bunu eklerseniz listbox temizlenir önce.
Cevapla
#12
feraz hocam selamlar,

Cevabınızı görünce hazır sokağa da çıkamazken bilgisayarın başına geçip paylaştığınız kodları denedim,
Evet listview'e veri geliyor, ancak şöyle bir durum var bir siparişte 5 kalem ürün varsa satece ilk satırı alıyor diğer 4 satır dışarıda kalıyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task