VB.NET

VB.NET RSS

combobox and textbox

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Nov 2008

Posts: 24

Reputation: kritiohri is an unknown quantity at this point

Solved Threads: 0

kritiohri

Offline

Newbie Poster

combobox and textbox

Feb 25th, 2009

I have a sql table consisting of dept_name and dept_code.and on the form i have textbox for dept_code and combobox for dept_name.When i select a particular dept_name from the combobox i should get the corrosponding dept_code in the textbox.

•

Join Date: Feb 2009

Posts: 18

Reputation: Bandar.M.A is an unknown quantity at this point

Solved Threads: 1

Bandar.M.A Bandar.M.A is offline

Offline

Newbie Poster

Re: combobox and textbox

Feb 25th, 2009

Hi,

it should be easy;

show me your codes;

good luck;

•

Join Date: Nov 2008

Posts: 24

Reputation: kritiohri is an unknown quantity at this point

Solved Threads: 0

kritiohri

Offline

Newbie Poster

Re: combobox and textbox

Feb 25th, 2009

I dont have the code .The combox contains the dept_names and i want the cprrosponding value that is the dept_no in the yextbox.iam able to save the values.

•

Join Date: Feb 2009

Posts: 18

Reputation: Bandar.M.A is an unknown quantity at this point

Solved Threads: 1

Bandar.M.A Bandar.M.A is offline

Offline

Newbie Poster

Re: combobox and textbox

Feb 25th, 2009

Ok

in Combobox event changeindex (or something like that)
try to send Sql statement with the value you get then
put the result in your textbox

•

Join Date: Oct 2008

Posts: 29

Reputation: jbrock31 is an unknown quantity at this point

Solved Threads: 1

jbrock31

Offline

Light Poster

Re: combobox and textbox

Feb 25th, 2009

use data binding.

There are many guides or examples on this, but i googled and this is the first result i got.

http://www.startvbdotnet.com/ado/Simplebinding.aspx

•

Join Date: Jul 2007

Posts: 300

Reputation: jireh is an unknown quantity at this point

Solved Threads: 42

jireh

Offline

Posting Whiz

Re: combobox and textbox

Feb 25th, 2009

first is what field is your primary key? is it the dept_code or dept_name?

•

When i select a particular dept_name from the combobox i should get the corrosponding dept_code in the textbox.

Now, what you want is a little bit complicated WHEN your primary is the dept_code.

Why? because if your primary is dept_code then it is very possible that there will be the same department name but have different code. right? so ergo, if you are going to select a department name the department code to be return will be the first department code saved in the database, thus you are not sure that the department code you are looking is the correct one.

regards.

A conclusion is the place where you got tired of thinking.
http://www.martin2k.co.uk/forums/index.php?showforum=4
http://www.a1vbcode.com/a1vbcode/vbforums/Forum3-1.aspx
http://www.developerfusion.co.uk/for...orum&ForumID=4

•

Join Date: Feb 2009

Posts: 3

Reputation: Praniya is an unknown quantity at this point

Solved Threads: 1

Praniya

Offline

Newbie Poster

Re: combobox and textbox

Feb 27th, 2009

Hello,
I am Not as good as all of you but i tried with this, and i am agree with jireh.

And After I try i am at following :-

First Declare Con as Connection

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private sub Combobox1_selectedindexchanged(byval sender As System.object, ByVal e as system.eventargs) Handles Combobox1.Selectedindexchanged
'(declare con as connection)
Dim Da as New OledbDataAdapter
Dim Ds As New Dataset
Dim Dt As DataTable
Try
Da=New OledbDataAdapter("Select * from Tablename where DeptName="& Combobox1.SelectedItem & "",Con)
Da.fill(Ds, "TableName")
Dt = Ds.Tables("TableName")
Catch ex As Exception
Messagebox.show(ex.Message)
End Try
Textbox1.Text = Dt.Rows.Item(0).Item(0)
End sub
Private sub Combobox1_selectedindexchanged(byval sender As System.object, ByVal e as system.eventargs) Handles Combobox1.Selectedindexchanged
'(declare con as connection)
Dim Da as New OledbDataAdapter
Dim Ds As New Dataset
Dim Dt As DataTable
Try
Da=New OledbDataAdapter("Select * from Tablename where DeptName="& Combobox1.SelectedItem & "",Con)
Da.fill(Ds, "TableName")
Dt = Ds.Tables("TableName")
Catch ex As Exception
Messagebox.show(ex.Message)
End Try
Textbox1.Text = Dt.Rows.Item(0).Item(0)
End sub