How to Save Combobox.selectedvalue in table and display the Display member in datagridview

Question

0.00/5 (No votes)

See more:

I have two table
tblClass - ClassId,Class
tblSection- SectionId,Section

cmbClass will display the class saved in tblClass (value member-classId, display member-Class)
when i will click on save button it will saved the value member cmbClass and a txtbox value to tblSection. And a datagridview dgvSection will show the SectionId,Class,Section . How to display the class in dgvSection? give me a easy way to do this. thnk u.
Here is my code -

VB

' LOAD COMBOBOX ITEM FROM TBLCLASS
Public Sub loadclass()
        con.Open()
        LoadClassCmd = New SqlCommand("SELECT * FROM tblClass ", Con)
        Dim adpt As New SqlDataAdapter(LoadClassCmd)
        Dim dt As New DataTable
        adpt.Fill(dt)
        cmbClass.DataSource = dt
        cmbClass.DisplayMember = "Class"
        cmbClass.ValueMember = "ClassId"
        con.Close()
    End Sub

'LOAD DGV FROM TBLSECTION
Public Sub loaddgvSec()
        con.Open()
        Dim adpt As New SqlDataAdapter("SELECT * FROM tblSection", Con)
        Dim ds As New DataSet()
        adpt.Fill(ds)
        dgvSection.DataSource = ds.Tables(0)
        con.Close()
    End Sub

Private Sub frmClassMstr_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        
        loaddgvSec()
        loadclass()
    End Sub

Private Sub btnSecAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSecAdd.Click
'SAVE BUTTON
InsertSql = "INSERT INTO tblSection values('" & cmbClass.SelectedValue & "','"& txtSection.Text & "')"
        insertcmd = New SqlCommand(insertsql, con)  
            Try
                con.Open()

                insertcmd.ExecuteNonQuery()
                MsgBox("Section '" & txtSection.Text & "' in Class '" & cmbClass.Text & "' Inserted Successfully", MsgBoxStyle.Information)
                txtSection.Clear()
                cmbClass.Focus()

            Catch ex As Exception
                MsgBox(ex.Message())
            Finally
                con.Close()
        End Try
loaddgvSec()


End Sub

Posted 24-Dec-13 1:31am

Member 10457175

Updated 24-Dec-13 1:32am

v2

Add a Solution

Comments

Peter Leow 24-Dec-13 7:47am

What problems did you encounter? Your code looks fine except this:
MsgBox("Section '" & txtSection.Text & "' in Class '" & cmbClass.SelectedText & "' Inserted Successfully", MsgBoxStyle.Information)

Member 10457175 24-Dec-13 9:11am

my datagridview class column shows the value of classid saved in tblsection. but i want to show the class not classId.

Peter Leow 24-Dec-13 9:21am

That is because you did not ask for it in your sql query, see my solution.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Member 10457175 · Answer 1 · 2013-12-24T01:35:00

Is This Correct way?

VB

Public Sub loaddgvSec()
        con.Open()
        Dim adpt As New SqlDataAdapter("SELECT SectionId,(Select Class From tblClass WHERE tblSection.ClassId=tblClass.ClassId)AS Class,Section FROM tblSection", Con)
        Dim ds As New DataSet()
        adpt.Fill(ds)
        dgvSection.DataSource = ds.Tables(0)
        
        con.Close()
    End Sub

Peter Leow · Answer 2 · 2013-12-24T03:20:00

Solution 2

I see, now it is clearer, change the following sql query in your code

Dim adpt As New SqlDataAdapter("SELECT * FROM tblSection", Con)

to

Dim adpt As New SqlDataAdapter("SELECT SectionId, Class, Section FROM tblSection inner join tblClass on ClassId = SectionId", Con)

then you should be to get a datagridview with Class and Section columns.

Posted 24-Dec-13 3:20am

Peter Leow

Updated 24-Dec-13 4:27am

v2

Comments

Member 10457175 24-Dec-13 14:01pm

Is this code ok?

Select s.SectionId,c.Class,s.Section from tblClass c,tblSection s where c.ClassId = s.ClassId

is there any other code?
how to do this code with module?

Peter Leow 24-Dec-13 21:24pm

Yes, it will work as it is the same as inner join.
If I have already provided solution for this question, please accept it. If you have another question, please post it as a new question.

Member 10457175 24-Dec-13 14:04pm

if user delete any calss row from tblClass then datagridview will show nothing. is there any solution for this?