Sorgu ile comboboxda 2 alan listelemesi
Tarih
10/07/2012 22:15
Konu Sahibi
drummers
Yorumlar
5
Okunma
1767
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
Dün,17:36
Çözüldü 
Sponsor Reklam

Visual Basic Code
Sub baglan()
 baglanti = CreateObject("adodb.connection")
 baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDB:Database Password=13*13")
 End Sub


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 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

iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
13/12/2016,16:01
Çözüldü 
Aşağıdaki şekilde birleştirmeyi denediniz mi?

Visual Basic Code
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

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
Dün,17:36
Çözüldü 
Sponsor Reklam
(11/07/2012, 11:39)iscinar Adlı Kullanıcıdan Alıntı: Aşağıdaki şekilde birleştirmeyi denediniz mi?

Visual Basic Code
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

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
22/12/2016,18:59
Çözüldü 
Bunun örneği üzerinde çalışma imkanımız yok mu?
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
Sponsor Reklam
İ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

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
Dün,17:36
Çözüldü 
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Yemek Sipariş Portalı 4 Sorgu Ekleme al1en 2 136 18/01/2017, 00:26 ozanakkaya
  form ve raporda çapraz sorgu formatı mehmetb84 8 246 14/01/2017, 18:16 atoz112
  Zorunlu alan ve kaydet uyarıları ertans 10 284 31/12/2016, 11:06 atoz112
  Sorgu ile Karakter Ayırma Hk. rknbrlz 10 222 19/12/2016, 19:25 atoz112
  iki tablo arasında girilen veriyi ikinci tabloda alan olarak oluşturma yardım bilservisci 8 261 15/12/2016, 11:49 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya