populating data to dropdown list and text field from sql tab

Aman Jen

Hi ,

Ihave modified the code as below...but now it is saying : There is no row at position 0.

Dim sqlcmd As String = ("select * From DP_Table Where P_id = '" & DropDownList1.SelectedItem.Value & "'")
Dim ad As New SqlDataAdapter(sqlcmd, cn)

Dim ds As New DataSet
ad.Fill(ds, "DP_Table")

TB1.Text = ds.Tables("DP_Table").Rows(0)("P_id").ToString
TB2.Text = ds.Tables("DP_Table").Rows(0)("P_Name").ToString

Plz help

9 Replies

Know the answer? Post it — somebody with the same question will find it here.

Iftikar Hussain13y ago
Accepted answer
try like this

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cn.Open()
If Not IsPostBack
bindDp()
End If
cn.Close()
End Sub

Regards,
Iftikar
Aman Jen13y ago
Thank You So much Bro Now its working.....:)
Aman Jen13y ago
not working....with that stuff....

bit modified but still not working

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cn.Open()
bindDp()

cn.Close()
End Sub
Public Sub bindDp()

cmd.Connection = cn
cmd.CommandText = "Select * From DP_Table"
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
DropDownList1.DataSource = dt
DropDownList1.DataTextField = ("P_id")
DropDownList1.DataValueField = ("P_id")
DropDownList1.DataBind()
'DropDownList1.Items.Insert(0, "Select Item")
DropDownList1.Items.Insert(0, New ListItem("select Item", "0"))
DropDownList1.SelectedIndex = 0

End Sub

Public Sub txtDp()

Dim dt As New DataTable
dt.Clear()
Dim sqlcmd As New SqlCommand("SELECT P_id, P_Name FROM DP_Table WHERE P_id = @P_id", cn)
sqlcmd.Parameters.AddWithValue("@P_id", DropDownList1.SelectedItem.Value)
dr = sqlcmd.ExecuteReader()

If dr.HasRows Then

dr.Read()

TB1.Text = dr.Item("P_id").ToString
TB2.Text = dr.Item("P_Name").ToString

dr.Close()
End If

End Sub

Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
cn.Open()
txtDp()
cn.Close()
End Sub
Iftikar Hussain13y ago
as per my understanding of your requirements, you can directly populate Name and Id in the text box as shown below
call this method only first time when page load like below

If IsPostBack=false
bindDp()

1)---------Binding Dropdownlist code--------
Public Sub bindDp()

cmd.Connection = cn
cmd.CommandText = "Select * From DP_Table"
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
DropDownList1.DataSource = dt
DropDownList1.DataTextField = ("P_Name")
DropDownList1.DataValueField = ("P_id")
DropDownList1.DataBind()

DropDownList1.Items.Insert(0, New ListItem("select Item", "0"))
DropDownList1.SelectedIndex = 0

End Sub

-2)----------Retriveing data code (no need to hit your sql query again)

TB1.Text =DropDownList1.SelectedItem.Value
TB2.Text =DropDownList1.SelectedItem.Text

Regards,
Iftikar
Iftikar Hussain13y ago
I understand your need. Can you tell me what value you are getting while you change the drop down value in this statment

Dim data As String
data=DropDownList1.SelectedItem.Value
Dim sqlcmd As New SqlCommand("select P_id,P_Name From DP_Table Where P_id = '" & DropDownList1.SelectedItem.Value & "'", cn)

Regards,
Iftikar
Aman Jen13y ago
If I use While loop I am getting last row data....and i dont use while loop then I am getting first row data....but what i want is if i select item from Dropdownlist it show corresponding data to item selected...

here' my table
------------------------------------------------------------------
P_id P_Name
1 Mahen
2 Jack
3 Tom
4 Paul
5 Shaun
6 Cather
7 Francis
Iftikar Hussain13y ago
are you getting the populated value correctly in your dropdown?
What value you are getting for DropDownList1.SelectedItem.Value while reteriving the data?
Can you put break point in the below link and check

Dim sqlcmd As New SqlCommand("select P_id,P_Name From DP_Table Where P_id = '" & DropDownList1.SelectedItem.Value & "'", cn)

Regards,
Iftikar
Aman Jen13y ago
If do it like this ..now it is showing just last row value...
Only first part is working fine...

Plz hav luk

1)---------Binding Dropdownlist code--------
Public Sub bindDp()

cmd.Connection = cn
cmd.CommandText = "Select * From DP_Table"
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
DropDownList1.DataSource = dt
DropDownList1.DataTextField = ("P_id")
DropDownList1.DataValueField = ("P_id")
DropDownList1.DataBind()
'DropDownList1.Items.Insert(0, "Select Item")
DropDownList1.Items.Insert(0, New ListItem("select Item", "0"))
DropDownList1.SelectedIndex = 0

End Sub

-2)----------Retriveing data code

Dim sqlcmd As New SqlCommand("select P_id,P_Name From DP_Table Where P_id = '" & DropDownList1.SelectedItem.Value & "'", cn)
dr = cmd.ExecuteReader()
If dr.HasRows Then

While dr.Read()
TB1.Text = dr("P_id").ToString
TB2.Text = dr("P_Name").ToString
End While
dr.Close()
End If
Iftikar Hussain13y ago
Hi,
Please check weather your getting any records by executing the sql query.
also modify your query to pass the selected dropdown value as shown below

Dim sqlcmd As String = ("select * From DP_Table Where P_id = @Field)
sqlcmd.AddParametersWithValue(@Field,DropDownList1.SelectedItem.Value)

Regards,
Iftikar

1	Mahen
2	Jack
3	Tom
4	Paul
5	Shaun
6	Cather
7	Francis