Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    Anasayfa » Forum Anasayfa » Kategori: Visual Basic.Net
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

word standart araç çubu?u

Yazar: total
umar?m mennun kal?rs?n?z



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Çevrimiçi Üyeler
Kaanstagram

Üye Sayısı:
Ziyaretçiler nerede?

"Vb.net combobox , Access ve textbox ilişkisi..!"

Merhaba arkadaşlar  şimdiden cevaplar için teşekkürler.

Ç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.

Üyeye Özelden Mesaj At byclever | 26.02.2012 00:02


Yaklaşık 1 haftadır cevap veren olmadı ve sorun çözüldü, Kendi cevabımı ben yazayım :-))

böyle bir koda ihtiyacı olabilcekleri düşünürek kodu buraya yazıyorum.

herkese keyifli paylaşımlar.
-----------------

öncelikle 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

Üyeye Özelden Mesaj At byclever | 02.03.2012 15:34

baglanti.open() kısmında hata veriyor bu program ;)

Üyeye Özelden Mesaj At serter35 | 20.03.2012 19:18
merhaba,

2010 yeni başladım yolum çok, senden ricam 2003 mdb dosyasından text1 e ilk kolondaki bilgiyi yazan bir örnek.
programı eklersen çok sevinirim.

onun üzerinden geliştirebilirim diye dusunuyorum.

teşekkürler.

Üyeye Özelden Mesaj At mustafasucu | 24.12.2014 22:04

Tüm Kategoriler | Visual Basic.Net | Visual Basic.Net  1. Sayfa
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin