Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
10/07/2012 22:15
Konu Sahibi
drummers
Yorumlar
5
Okunma
1966
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
Bugün,14:29
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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/09/2017,13:09
Çözüldü 
Bunun örneği üzerinde çalışma imkanımız yok mu?


Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
Çözüldü form üzerinde filtre ve sorgu bazk 17 9.397 07/09/2017, 09:08 alperen2006
Çözüldü Sorgu Kriteri metin02 3 190 21/08/2017, 00:11 ozanakkaya
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 468 02/08/2017, 01:32 ozanakkaya
Çözüldü Siparişleri Detaylı Sorgu Oluşturma U.ALTUN 3 390 30/05/2017, 14:54 atoz112
Çözüldü İki Tarih Arası Sorgu Problemi AloneX 13 819 26/05/2017, 11:14 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.