Visual Basic Mysql Bir Sorunum Var Yardımcı Olurmusunuz.

[aidata41]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Sorun: Combobox'a veri tabanındakı bır tablodan içeriklerı aktardım. Combobox'a aktarılanlar tablodakı "name"ler ben bu namelerden bırını seçince o namelerin "no"sunu textboxda gostermeye çalıstım ama yapamıyorum.

1 Combobox ve 1 textbox var.

Mysql Bılgısayarımdadır. Internet Üzerinde Kullanmıyorum. Çünkü Odevimiz Bu.

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        oConexion = New MySqlConnection
        oConexion.ConnectionString = "Server=localhost;Database=odevler;Uid=root;Pwd=123456;Port=3306;"

        Dim da As New MySqlDataAdapter("SELECT * from account", oConexion)

        Dim ds As New DataSet
        oConexion.Open()

        da.Fill(ds, "account")
        ' oConexion.Close()

        Dim oTabla As New DataTable
        oTabla = ds.Tables("account")
        Dim oFıla As DataRow
        For Each oFıla In oTabla.Rows
            ComboBox1.Items.Add(oFıla.Item("name"))

        Next

    End Sub

Bu Kodda Şuan Commoboxda nameler gorunuyor. comboboxda namelerden bırını secince hangı name secildı ıse o namenın nosu gorunecek. Bu kodu oluşuramadım yardımcı olurmusnuz.

Sorunun Cevabı Forumda Var Galıba Ama Bulamadım 2 Saatlik Araştırmadan Dolayı.

 

[JooM]

Mesela Sayfa1 A1:A100 aralığında isim listeniz olsun.
B1:B100 aralığında sicil noları
ve varsa diğer bilgiler de C1:C100 vs vs tablonuz olsun.
Comboboxdaki seçilene göre sayfa 2 ye bilgiler aktaracaksınız. Aktaracağınız aralıkta B1:B3 olsun

Sub bilgiaktar()
    Worksheets("Sayfa2").Cells(1,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,1)
    Worksheets("Sayfa2").Cells(2,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,2)
    Worksheets("Sayfa2").Cells(3,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,3)
End Sub

Ya Sadece Bir Fikir Vermeye Çalıştım... Umarım Açıklayıcı Olmuştur.

 

[ufkunprenses]

Mesela Sayfa1 A1:A100 aralığında isim listeniz olsun.
B1:B100 aralığında sicil noları
ve varsa diğer bilgiler de C1:C100 vs vs tablonuz olsun.
Comboboxdaki seçilene göre sayfa 2 ye bilgiler aktaracaksınız. Aktaracağınız aralıkta B1:B3 olsun

Sub bilgiaktar()
    Worksheets("Sayfa2").Cells(1,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,1)
    Worksheets("Sayfa2").Cells(2,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,2)
    Worksheets("Sayfa2").Cells(3,2)=Worksheets("Sayfa1").Cells(Combobox1.ListIndex+1,3)
End Sub

Ya Sadece Bir Fikir Vermeye Çalıştım... Umarım Açıklayıcı Olmuştur.

Gereken cevap verildiğine göre:
Kilit.