Imports System.Data
Imports System.Data.Sql

Partial Class VotingSystem_Candidates
    Inherits System.Web.UI.Page

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Dim connString As String = _
        ConfigurationManager.ConnectionStrings("connstr").ConnectionString

        Using cnn As New SqlClient.SqlConnection(connString)
            Const sql As String = "select forSurname from VotingCandidateRegistration"


            Dim myCommand As New SqlClient.SqlCommand(sql, cnn)
            Dim myDataset As New DataSet

            Try
                cnn.Open()

            Catch ex As Exception
                MsgBox(ex.ToString)

            End Try

            Dim myAdapter As New SqlClient.SqlDataAdapter(myCommand)
            myAdapter.Fill(myDataset)

            DrpPresident.DataSource = myDataset
            DrpPresident.DataBind()

            Dim i As Integer

            For i = 0 To DrpPresident.Items.Count - 1

                DrpPresident.Items.Add(myDataset.Tables(0).Rows(0).Item("forsurname").ToString)


Next

        End Using

Protected Sub DrpPresident_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DrpPresident.SelectedIndexChanged
        Dim connString As String = _
                        ConfigurationManager.ConnectionStrings("connstr").ConnectionString
        Dim cnn As New SqlClient.SqlConnection(connString)

        
        Try
            cnn.Open()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Dim sql As String



        sql = "SELECT forSurname from votingCandidateRegistration where  forStdntNo like  '" & DrpPresident.SelectedValue & "'"
        'Dim sql As String = "INSERT INTO StdntLogin & #40;StdntUsername,StdntPassword,StdntFname,StdntLname,StdntEmailadd,StdntSquesti
on,StdntSanswer,StdntNumber,StdntCourse,StdntGender,Category) VALUES ('" & txtuser.Text & "', '" & txtpassword.Text & "','" & txtfirstname.Text & "', '" & txtlastname.Text & "','','','','" & txtstudentno.Text & "','','', 'admin') "


ImgPresident.ImageUrl = "~/Pictures/ulosoto.JPG"


        Dim cmd As New SqlClient.SqlCommand(sql, cnn)
Dim myDataSet As New DataSet

        Dim myAdapter As New SqlClient.SqlDataAdapter(cmd)
        myAdapter.Fill(myDataSet)

    End Sub