AccessTr.neT

Tam Versiyon: Combobox seçerek textboxlara veri aktarımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.

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.
sorum.rar
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

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
(03/05/2012, 23:39)goodfalles yazdı: [ -> ]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

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
çalıştımı ?
yoksa başka şekilde mi halletiniz
(05/05/2012, 10:28)goodfalles yazdı: [ -> ]çalıştımı ?
yoksa başka şekilde mi halletiniz

Kodu kendime uyarlıyarak çalıştırdım