将数据库中的数据插入文本框

Question

我不确定是否有这样做的方法。 我试图让网站用户可以编辑他们输入的评论。 我的讲师不会让我们使用网格视图任务窗格中可用的启用编辑选项，而我正努力寻找解决方案。 我知道如何将数据库的内容写入下拉列表。 但是在为文本框执行操作时出现错误。 我要做的是让用户选择为其撰写评论的电影的名称，生成为该评论撰写的电影的内容，然后将其插入文本框，以便对其进行编辑。 这是一件简单的事情吗？ 还是我需要考虑其他事情？

我用于下拉列表的代码是：

ddlRemoveUreview.DataSource = aDataReader
ddlRemoveUreview.DataTextField = "MovieTitle"
ddlRemoveUreview.DataValueField = "MovieTitle"
ddlRemoveUreview.DataBind()

我编写的用于将内容写入文本框的代码：

query = "Select ReviewText FROM MReviewTexts, Movies, UserDetails WHERE MReviewTexts.MReviewID = Movies.MReviewID AND Movies.UserID = UserDetails.UserID AND UserDetails.Username = '" & HttpContext.Current.User.Identity.Name & "'"
Dim cmd = New OleDbCommand(query, dbConnect)
    aDataReader = cmd.ExecuteReader
    If aDataReader.Read() = True Then
        'A row was returned
        txtContent.Text = aDataReader(0)
    Else
        txtContent.Text = "No content entered - please edit"
    End If

得到它的工作。 我的SQL错误-正确的解决方案是：

Dim query As String = "Select ReviewText FROM MReviewTexts, MovieReviews, UserDetails WHERE MReviewTexts.MReviewID = MovieReviews.MReviewID AND MovieReviews.UserID = UserDetails.UserID AND UserDetails.Username = '" & HttpContext.Current.User.Identity.Name & "'"
    dbConnect.Open()
    Dim cmd = New OleDbCommand(query, dbConnect)
    aDataReader = cmd.ExecuteReader()
    If aDataReader.Read() = True Then
        'A row was returned
        txtContent.Text = Convert.ToString(aDataReader(0))
    Else
        txtContent.Text = "No content entered - please edit"
    End If

Answer 1

此代码有效。 它将数据库中的内容显示到文本框中：

Dim query As String = "Select ReviewText FROM MReviewTexts, MovieReviews, UserDetails WHERE MReviewTexts.MReviewID = MovieReviews.MReviewID AND MovieReviews.UserID = UserDetails.UserID AND UserDetails.Username = '" & HttpContext.Current.User.Identity.Name & "'"
dbConnect.Open()
Dim cmd = New OleDbCommand(query, dbConnect)
aDataReader = cmd.ExecuteReader()
If aDataReader.Read() = True Then
    'A row was returned
    txtContent.Text = Convert.ToString(aDataReader(0))
Else
    txtContent.Text = "No content entered - please edit"
End If