Skip to main content

AccessTr.neT


Sorgu ile comboboxda 2 alan listelemesi

Sorgu ile comboboxda 2 alan listelemesi

Çözüldü #1

Sub baglan()
baglanti = CreateObject("adodb.connection")
baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBLolatabase 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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Aşağıdaki şekilde birleştirmeyi denediniz mi?

Label1.Text = rs("sgkkullanici") + " " + ("sgkkod").value
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #3
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Bunun örneği üzerinde çalışma imkanımız yok mu?
Cevapla
Çözüldü #5
İ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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #6
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da