Combobox seçerek textboxlara veri aktarımı
Tarih
03/05/2012 13:14
Konu Sahibi
drummers
Yorumlar
4
Okunma
1617
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs2 As Object
        Call baglan()
        rs2 = CreateObject("adodb.recordset")
        rs2.open("select firma_id from sgk where sgkkod<>'' order by firma_id", baglanti, 1, 1)

        If rs2.recordcount > 0 Then
            Do While Not rs2.eof
                ComboBox1.Items.Add(rs2(0).value)
                rs2.movenext()
            Loop
        End If
        rs2.close()
        baglanti.close()
End Sub

Bu kod ile combobox1 e veriyi aktarıyorum fakat sadece id geliyor. Benim istediğim şudur

Combobox1 e firmalar isimleri ile gelsin, Seçtiğim firma ismine bağlı olarak "sgk" tablosundaki verilerde Textbox1, Textbox2 ye yazılsın

Teşekkürler.

Ek Dosyalar
sorum.rar
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
dosya bende açılmadı ama şunları bi dene istersen

rs2.open("select firma_id,sgk(bu alana tablodan alanı) from sgk where sgkkod<>'' order by firma_id", baglanti, 1, 1)
ComboBox1.Items.Add(rs2(1).value)
başka bi örnekten örnek vereyim alan isimlerini anlayabilincek şekilde yazmaya çalıştım istersen dene

Visual Basic Code
1
2
3
4
5
6
7
 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt.mdb'")
        Dim veriler As New DataTable("sgkno")
        Dim adapter As New OleDbDataAdapter("select * from tablo order by sgkno", baglanti)
        adapter.Fill(veriler)
        cbIl.ValueMember = "sgkno"
        cbIl.DisplayMember = "sgkad"
        cbIl.DataSource = veriler

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(03/05/2012, 23:39)goodfalles Adlı Kullanıcıdan Alıntı: dosya bende açılmadı ama şunları bi dene istersen

rs2.open("select firma_id,sgk(bu alana tablodan alanı) from sgk where sgkkod<>'' order by firma_id", baglanti, 1, 1)
ComboBox1.Items.Add(rs2(1).value)
başka bi örnekten örnek vereyim alan isimlerini anlayabilincek şekilde yazmaya çalıştım istersen dene

Visual Basic Code
1
2
3
4
5
6
7
 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt.mdb'")
 Dim veriler As New DataTable("sgkno")
 Dim adapter As New OleDbDataAdapter("select * from tablo order by sgkno", baglanti)
 adapter.Fill(veriler)
 cbIl.ValueMember = "sgkno"
 cbIl.DisplayMember = "sgkad"
 cbIl.DataSource = veriler


Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
çalıştımı ?
yoksa başka şekilde mi halletiniz
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(05/05/2012, 10:28)goodfalles Adlı Kullanıcıdan Alıntı: çalıştımı ?
yoksa başka şekilde mi halletiniz

Kodu kendime uyarlıyarak çalıştırdım
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ü ComboBox İl İlçe Seçimi drummers 1 2.365 22/07/2014, 22:06 drummers
Çözüldü Doğum yerleri tablosunu Personeller Formumda Combobox olarak Kullanamıyorum. umutakkaya 13 2.975 17/07/2014, 10:26 alpeki99
Çözüldü Combobox ile DataGridview (Access Veritabanı) Sorgusu chevy 19 6.285 12/04/2014, 23:49 chevy
Çözüldü Vb.net combobox , Access , textbox ilişkisi hakkında yardım byclever 4 1.696 26/02/2012, 22:50 byclever
Çözüldü vb.net combobox'a accessten veri alma goodfalles 4 2.020 28/01/2012, 22:14 goodfalles


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