+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sorgu ile comboboxda 2 alan listelemesi (/konu-sorgu-ile-comboboxda-2-alan-listelemesi.html)
Sorgu ile comboboxda 2 alan listelemesi - drummers - 10/07/2012
Sub baglan()
baglanti = CreateObject("adodb.connection")
baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDB
atabase Password=13*13")
End Sub
Private Sub Ebildirge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs As Object
Call baglan()
rs = CreateObject("adodb.recordset")
rs.open("select dosyaismi from sgk where dosyaismi", baglanti, 1, 1)
If rs.recordcount > 0 Then
Do While Not rs.eof
ComboBox1.Items.Add(rs(0).value)
rs.movenext()
Loop
End If
rs.close()
baglanti.close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim rs As Object
baglan()
rs = CreateObject("adodb.recordset")
rs.open("select * from sgk where dosyaismi='" & ComboBox1.Text & "' order by dosyaismi", baglanti, 1, 1)
If rs.recordcount = 1 Then
Label1.Text = rs("sgkkullanici").value
Label2.Text = rs("sgkkod").value
Label3.Text = rs("sistemsifre").value
Label4.Text = rs("isyerisifre").value
End If
rs.close()
baglanti.close()
giris()
End Sub
rs.open("select dosyaismi from sgk where dosyaismi", baglanti, 1, 1)
Kodlardanda anlaşılacağı üzere ComboBox1 e "sgk" formundaki müşteri isimlerini aktarıyorum. Sonuç aynen şu oluyor
Örnek:
Ali Koçeri
Veli Ters
Benim istediğim sorguyu değiştirerk "sgk" tablosundaki "sgkkod" alanındaki veriyide isminin yanında yazması ve combobox değiştiğinde ona bağlı verilerin ilgili label lerde görünmesi
Sonuç olarak Combobox1 in içeriği şu olacak
Örnek:
Ali Koçeri Merkez
Veli Ters Şube
Teşekkürler
Cvp: Sorgu ile comboboxda 2 alan listelemesi - iscinar - 11/07/2012
Aşağıdaki şekilde birleştirmeyi denediniz mi?
Label1.Text = rs("sgkkullanici") + " " + ("sgkkod").valueCvp: Sorgu ile comboboxda 2 alan listelemesi - drummers - 11/07/2012
(11/07/2012, 11:39)iscinar yazdı: Aşağıdaki şekilde birleştirmeyi denediniz mi?
Label1.Text = rs("sgkkullanici") + " " + ("sgkkod").value
Load olayında comboya bu 2 alan gelmesini istiyorum.
Teşekkürler
Cvp: Sorgu ile comboboxda 2 alan listelemesi - ercansahin - 15/07/2012
Bunun örneği üzerinde çalışma imkanımız yok mu?
Cvp: Sorgu ile comboboxda 2 alan listelemesi - esrefigit - 16/07/2012
İsimle bileşik yazacaksa = rs("sgkkullanici")& rs("sgkkodu") olacak eğer bu form Access formül ise normal bir alçılanma kutu ekle özelliklerden sütun xayısı 3 yap satır kaynağı ddğer lixtesi olacak akdoğan kaynağını kaynak= = rs("sgkkullanici")&";"& rs("sgksoyadi")&";"&rs("sgkkodu") yaz her stunda bir alan görünür seçiliş veriyi metin kutularına alırkende metin1.value=me.column(0) şeklineden yaz
Cvp: Sorgu ile comboboxda 2 alan listelemesi - drummers - 17/07/2012
Teşekkürler