Sorgu ile comboboxda 2 alan listelemesi
Tarih
10/07/2012 22:15
Konu Sahibi
drummers
Yorumlar
5
Okunma
1748
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
29/11/2016,13:56
Çözüldü 

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
17/11/2016,11:19
Çö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
29/11/2016,13:56
Çözüldü 
(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
07/12/2016,23:51
Çözüldü 
Bunun örneği üzerinde çalışma imkanımız yok mu?
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
İ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
29/11/2016,13:56
Çö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
  Tablomu hangi sorgu rapor kullanıyor atyaty 5 207 29/11/2016, 14:14 atyaty
  Formdaki bir alan göre alt formda alanları gizleme enderya 2 90 20/11/2016, 19:34 ozanakkaya
  Alt formda boş alan kontrolü raburabu 5 115 28/10/2016, 23:37 raburabu
  Yazdırmada Eksik Alan Uyarısı Ekleme Serkan Çevik 10 177 21/10/2016, 22:54 Serkan Çevik
  Sorgu Ile Not Dokumu qripton 3 109 18/10/2016, 14:33 atoz112


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