AccessTr.neT
Acsess Sorgusu İle Listview'e Veri Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Acsess Sorgusu İle Listview'e Veri Alma (/konu-acsess-sorgusu-ile-listview-e-veri-alma.html)

Sayfalar: 1 2 3 4

RE: Acsess Sorgusu İle Listview'e Veri Alma - kanakan52 - 10/04/2020

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

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

RE: Acsess Sorgusu İle Listview'e Veri Alma - feraz - 10/04/2020

Tamam çözüm gelmezse hallederim.

RE: Acsess Sorgusu İle Listview'e Veri Alma - kanakan52 - 10/04/2020

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

RE: Acsess Sorgusu İle Listview'e Veri Alma - feraz - 10/04/2020

(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.

RE: Acsess Sorgusu İle Listview'e Veri Alma - feraz - 10/04/2020

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.

RE: Acsess Sorgusu İle Listview'e Veri Alma - kanakan52 - 11/04/2020

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.