Skip to main content

AccessTr.neT


Vb.net combobox , Access , textbox ilişkisi hakkında yardım

Vb.net combobox , Access , textbox ilişkisi hakkında yardım

Çözüldü #1
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.
Cevapla
Çözüldü #2
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #3
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)
Cevapla
Çözüldü #4
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
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #5
Teşekkürler Ayhan bey ,

istediğim buydu benim.

iyi çalışmalar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task