AccessTr.neT

Sub baglan()

 baglanti = CreateObject("adodb.connection")

 baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase 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

Aşağıdaki şekilde birleştirmeyi denediniz mi?

Label1.Text = rs("sgkkullanici") + " " + ("sgkkod").value

(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

Bunun örneği üzerinde çalışma imkanımız yok mu?

İ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

Teşekkürler