AccessTr.neT
Vb.net combobox , Access , textbox ilişkisi hakkında yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb.net combobox , Access , textbox ilişkisi hakkında yardım (/konu-vb-net-combobox-access-textbox-iliskisi-hakkinda-yardim.html)



Vb.net combobox , Access , textbox ilişkisi hakkında yardım - byclever - 26/02/2012

Merhaba arkadaşlar;

Çalışma Platformu = visual studio 2010

dil = VB.NET

Database Bilgileri ;

Access Db adı = TEST.mdb
Tablo ad= veritest
Tablo alanları = ID, hafta, cevap1, cevap2, cevap3 (id otomatik sayı)

veriler tabloda şu şekilde görünmekte;

ID.....hafta...cevap1..cevap2....cevap3
....................................................
1........1.......a............b...........c......
2........2.......c............a............b.....
....................................................

devam ediyor.


Form bilgileri ;

Combobox adı= cmbtest1

textboxların adları = tbx1 , tbx2, tbx3, tbx4


-------------o-----------------

yapmak istediğim işlem ise şu olcak ;

tablodaki "ID" alanındaki bilgiyi öncelikle combobox a aktarıp , seçilen ID karşısında ki bilgileri sırasıyla ilgi textboxlara yazdırmak.

örneğin , combobox tan 1 seçtiğimde ;

tbx1 ' e hafta bilgisini " 1 "

tbx2 ' e cevap alanındaki bilgiyi "a"

tbx3 ' e cevap alanındaki bilgiyi "b"

tbx4 ' e cevap alanındaki bilgiyi "c"

yazdırabilmek. bu konuda kod oluşturmam için bana yardımcı olursanız memnun olurum.

herkese keyifli çalışmalar.


Cvp: Vb.net combobox , Access , textbox ilişkisi hakkında yardım - ayhan2122 - 26/02/2012

Ne kadar güzel anlatmışsın ama örnek olmadıkça kim TEST.mdb oluşturup, içinde tablo vs oluşturup sonra vb.net proje vs...... hazırlayacak bilmiyorum.



Cvp: Vb.net combobox , Access , textbox ilişkisi hakkında yardım - byclever - 26/02/2012

kimsenin db oluşturmasını istemediğim için soru detaylı yazdım , ama ben yinede sizin dediğinizi dikkate alıyorum ve dosyayı ekliyorum.

teşekkürler.

cevaplarınızı bekliyorum.

Ek Dosyalar
 TEST.rar(8.06 KB)



Cvp: Vb.net combobox , Access , textbox ilişkisi hakkında yardım - ayhan2122 - 26/02/2012

TEST.mdb dosyanız projenizin .exe dosyasının olduğu konumda olmalı.


Imports System.Data.OleDb
Public Class Form1

Dim baglanti As New OleDbConnection
Dim veri As New OleDbCommand

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
baglanti.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TEST.mdb"
ComboBox1.Items.Clear()

Dim Sql As String = "select * from Veritest ORDER BY hafta"
baglanti.Open()
veri.CommandText = sql
veri.Connection = baglanti
Dim dr As OleDbDataReader
dr = veri.ExecuteReader
While dr.Read
ComboBox1.Items.Add(dr(1))
End While
dr.Close()
baglanti.Close()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
baglanti.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TEST.mdb"

Dim Sql As String = "select * from Veritest WHERE (hafta='" & ComboBox1.Text & "') ORDER BY hafta"
baglanti.Open()
veri.CommandText = sql
veri.Connection = baglanti
Dim dr As OleDbDataReader
dr = veri.ExecuteReader
While dr.Read
TextBox1.Text = IIf(IsDBNull(dr(1)), "", dr(1))
TextBox2.Text = IIf(IsDBNull(dr(2)), "", dr(2))
TextBox3.Text = IIf(IsDBNull(dr(3)), "", dr(3))
TextBox4.Text = IIf(IsDBNull(dr(4)), "", dr(4))
End While
dr.Close()
baglanti.Close()
End Sub
End Class



Cvp: Vb.net combobox , Access , textbox ilişkisi hakkında yardım - byclever - 26/02/2012

Teşekkürler Ayhan bey ,

istediğim buydu benim.

iyi çalışmalar.