Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/07/2012 22:15
Konu Sahibi
drummers
Yorumlar
5
Okunma
2143
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 07/05/2019,12:47
Çö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.

iscinar

Onursal Üye
36548
İs.... ÇI....
 47
 42
 878
 30/05/2011
284
 İstanbul
 
 Ofis 2013 64 Bit
 01/05/2019,11:03
Çö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)

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 07/05/2019,12:47
Çö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.

ercansahin

Uzman
2272
Er.... ŞA....
 44
 69
 3.757
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 16/05/2019,20:28
Çözüldü 
Bunun örneği üzerinde çalışma imkanımız yok mu?



esrefigit

Aktif Üye
32
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çö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

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 07/05/2019,12:47
Çözüldü 
Teşekkürler


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sorgu'da Aynı İsimleri Teke Düşürme haziran4 2 143 07/05/2019, 16:58
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 110 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Textboxta Sorgu Sonucu Gösterme icemeno 3 121 25/04/2019, 12:33
Son Yorum: icemeno
Çözüldü Sorgu Sıralaması ferda23 3 179 04/04/2019, 22:58
Son Yorum: haliliyas
Çözüldü Sorgu Parametre Hatası Dart Reder 11 333 30/03/2019, 15:25
Son Yorum: Dart Reder

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.