AccessTr.neT

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.

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.

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)

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

Teşekkürler Ayhan bey ,

istediğim buydu benim.

iyi çalışmalar.