Acsess Sorgusu İle Listview'e Veri Alma

1 2 3 4

Hocam resim ekle butonunu çalmışlar
Ama rar olarak ekledim, daha iyi anlayacaksınız.

Tamam çözüm gelmezse hallederim.

Teşekkür ederim, hakkını ödeyemem sağolasın.

(10/04/2020, 20:54)kanakan52 yazdı: Hocam resim ekle butonunu çalmışlar
Ama rar olarak ekledim, daha iyi anlayacaksınız.

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.

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

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.

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.

1 2 3 4