help

[n1_razz11]

hi friends..
i m working with vb.net
how can i get iteams in combo box from table of msaccess..

hoping for help
thanx

[adam_k]

Read here: http://www.daniweb.com/software-development/vbnet/threads/374020

[n1_razz11]

hey i got 2 tables named tbplayer and tbpair in database named dbgame.mdb
tbplayer has 2 field player_id and player_name..
tbpair has three field pair_id(autonumber), player_1 and player_2
i have create combobox to get player id in tbpair from tbpair.. so i don get code.. my sample code is

Imports System.Data
Imports System.Data.OleDb


Public Class frmAdd_pair
    Dim con As New OleDbConnection
    Private Sub bindpair()
        Dim adp As New OleDbDataAdapter("Select * from tbPair", con)
        Dim ds As New DataSet
        adp.Fill(ds, "pair")

        cmbPlayer_1.DisplayMember = "Player_ID"
        cmbPlayer_1.ValueMember = "Player_ID"
        cmbPlayer_1.DataSource = ds.Tables("player")




    End Sub
   

    Private Sub frmAdd_pair_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "Provider =Microsoft.Jet.OlEDB.4.0; Data Source = |DataDirectory|\dbgame.mdb; Persist Security Info = True;"
        bindpair()
        

    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim cmd As New OleDbCommand
        cmd.Connection = con
        cmd.CommandType = "Insert into tbPair values ('" + cmbPlayer_1.Text + "', '" + cmbPlayer_2.Text + "')"
    End Sub

    Private Sub cmbPlayer_1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPlayer_1.SelectedIndexChanged
        cmbPlayer_1.Text = cmbPlayer_1.SelectedValue


    End Sub
End Class