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

【问题标题】：Insert data from database into textbox将数据库中的数据插入文本框
【发布时间】：2012-12-19 18:35:24
【问题描述】：

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

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

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

【问题讨论】：

这是一个作为作业分配的网站。我已经研究了几个小时，并说导师不太愿意提供有关如何做事的信息
@user1850189 您没有针对您的问题发布相关的代码。请张贴其余部分。
@TLS - 请不要标记家庭作业，它已经过时并被删除。
无论问题是否被删除，您都应该将问题的解决方案作为答案发布。
@Mike - 好电话。这是 Meta 的链接，讨论它为什么会消失：The homework tag is now officially deprecated

标签： asp.net vb.net

【解决方案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

【讨论】：