Проект Кабина для голосования
Проект День рождения
Проект Рассылка почты

DBCommand = New OleDbDataAdapter _
("Select VotelD from Votes " _
& "Where QuestionID = " _
& ddlQuestionlD.Selectedltem.Value __
& " and EmployeelD = " & Session("EmployeelD") _
, DBConn)

DBCommand.Fill(DSPageData, _
"VotesCast")

If DSPageData.Tables("VotesCast"). _
Rows.Count = 0 Then

pnlVote.Visible= True

pnlResults.Visible = False

DBCommand - New OleDbDataAdapter _
("Select AnswerText from VoteAnswers " _
& "Where QuestionID = " _
& ddlQuestionlD.Selectedltem.Value _
& " Order By AnswerText", DBConn)

DBCommand.Fill(DSPageData, _
"Answers")

ddlAnswers.DataSource = _
DSPageData.Tables("Answers").DefaultView
ddlAnswers.DataBind()

pnlVote.Visible = False

pnlResults.Visible = True

DBCommand = New OleDbDataAdapter _
("Select AnswerText as [Ответ], " _
& "Count(VotelD) as [Голосов] From Votes " _
& "Where QuestionID= "
& ddlQuestionlD.Selectedltem.Value _
& " Group By AnswerText Order By " _
& "Count(VotelD) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"VoteCount")

dgResults.DataSource = _
DSPageData.Tables("VoteCount").Defaultview
dgResults.DataBind()

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCoiranand
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("PROVIDER=sqloledb;" _
& server=localhost;" _
& "Initail Catalog=INETC4;"
& "User ID=sa;"
& "Password=yourpassword");
DBInsert.CommandText = "Insert Into Votes " _
& "(EmployeelD, QuestionID, AnswerText) values (" _
& Session("EmployeelD") & ", " _
& ddlQuestionlD.Selectedltem.Value & ", " _
& "'" _
& Replace (ddlAnswers.Selectedltem. Text, ""', '"'")
& '")"
DBInsert.Connection = DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()
DBCommand = New OleDbDataAdapter _
("Select AnswerText as [Ответ], " _
& "Count(VotelD) as [Голосов] From Votes " _
& "Where QuestionID " " _
& ddlQuestionlD.Selectedltem.Value _
& " Group By AnswerText Order By " _
& "Count(VotelD) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"VotesCast")
dgResults.DataSource = _
DSPageData.Tables("VotesCast").Defaultview
dgResults.DataBind()
pnlVote.Visible = False
pnlResults.Visible = True
End Sub

DBInsert.CommandText = "Insert Into Votes " _
& "(EmployeelD, QuestionID, AnswerText) values (" _
& Session("EmployeelD") & ", " _
& ddlQuestionlD.Selectedltem.Value & ", " _
& " ' "
& Replace (ddlAnswers.Selectedltem. Text, ""', "''")
& " ') "
DBInsert.Connection = DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()

DBCommand = New OleDbDataAdapter _
("Select: AnswerText as [Ответ], " _
& "Count(VotelD) as [Голосов] From Votes " _
& "Where QuestionID = " _
& ddlQuestionlD.Selectedltem.Value _
& " Group By AnswerText Order By " _
& "Count(VotelD) DESC", DBConn)

DBCoiranand.Fill(DSPageData, _
"VotesCast")

dgResults.DataSc%urce = _
DSPageData:Tables{"VotesCast").DefaultView
dgResults.DataBind()

pnlVote.Visible - False

pnlResults.Visible - True

Чтобы обеспечить выполнение рассмотренного кода при использовании приложения Access (а не SQL-сервера), необходимо изменить строку, в которой осуществляется подключение к базе данных SQL-сервера:

DBConn - New 01eDbConnection("PROVIDER=sqloledb;"
& Server=localhost";
& Initial Catalog=INETC4;"
& User ID=sa;"_
& Password=yourpassword;"

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;"
& "DATA SOURCE=".
& Server.MapPath("VlNetBook/C4/VotingBooth/" _
& "Access/C4VotingBooth.mdb;"))

He забудьте указать правильное местоположение вашей базы данных Access.