Sorgu ile comboboxda 2 alan listelemesi
Tarih
10/07/2012 22:15
Konu Sahibi
drummers
Yorumlar
5
Okunma
1794
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....
400
11/05/2009
125
İzmir
Ofis 2003
24/03/2017,15:18
Çö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
İ.... Ç....
857
30/05/2011
275
İstanbul
Ofis 2007
Dün,15:11
Çözüldü 
Sponsor Reklam
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....
400
11/05/2009
125
İzmir
Ofis 2003
24/03/2017,15:18
Çö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
20/05/2017,13:50
Çözüldü 
Sponsor Reklam
Bunun örneği üzerinde çalışma imkanımız yok mu?
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
12/05/2017,17:08
Çö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....
400
11/05/2009
125
İzmir
Ofis 2003
24/03/2017,15:18
Çözüldü 
Sponsor Reklam
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
  Ürün Sorgu Kodu Çalışmıyor U.ALTUN 9 157 15/05/2017, 17:13 U.ALTUN
  Combox Sorgu Etkileşimi blue_wall 4 101 14/05/2017, 12:30 blue_wall
  Access Tablo - Sorgu Bağlanması hasan şahin 5 149 13/05/2017, 12:04 atoz112
Question İlişkilendirimiş Tablolar Arasında Sorgu Yazmak Hasan Ablak 9 200 22/04/2017, 19:54 atoz112
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 316 27/03/2017, 11:18 atoz112


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