Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack = False Then
Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=jijo;Integrated Security=True")
conn.Open()
Dim comm As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("select course_id, course_name from tr1", conn)
Dim da As SqlDataAdapter = New SqlDataAdapter(comm)
Dim ss As DataSet = New DataSet()
da.Fill(ss, "tr1")
dd1 = ss.Tables("tr1")
If (dd1.Rows.Count > 0) Then
For i As Integer = 0 To (dd1.Rows.Count - 1)
drop1.Items.Add(dd1.Rows(i)(1).ToString())
Next
End If
End If
End Sub
Protected Sub ddl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl1.SelectedIndexChanged
Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=jijo;Integrated Security=True")
For i As Integer = 0 To (dd1.Rows.Count - 1)
If dd1.Rows(i)(1).ToString().Equals(drop1.SelectedValue) Then
x = Integer.Parse(dd1.Rows(i)(0).ToString)
MsgBox(x)
End If
Next
Dim comm1 As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("select course_serial from tr2 where course_id=" & x, conn)
Dim ds1 As SqlDataAdapter = New SqlDataAdapter(comm1)
Dim sy1 As DataSet = New DataSet()
ds1.Fill(sy1, "tr2")
dd2 = sy1.Tables("tr2")
For j As Integer = 0 To (dd2.Rows.Count - 1)
drop2.Items.Add(dd2.Rows(j)(0).ToString())
Next
End Sub
Partager