如何使用vb代码在asp.net中以文本字段形式更新数据库中的数据

如何使用vb代码在asp.net中以文本字段形式更新数据库中的数据,asp.net,vb.net,Asp.net,Vb.net,我想编辑由数据库中的数据组成的配置文件。我尝试的是: Dim constr As String = ConfigurationManager.ConnectionStrings("ConStr").ConnectionString Dim con As New SqlConnection(constr) Dim cmd As New SqlCommand() Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs

我想编辑由数据库中的数据组成的配置文件。我尝试的是:

Dim constr As String = ConfigurationManager.ConnectionStrings("ConStr").ConnectionString
Dim con As New SqlConnection(constr)
Dim cmd As New SqlCommand()

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    If Not IsPostBack Then

        Dim Query As String = "select * from intadmin_user where" _
                             & "id = @id"
        cmd.Parameters.AddWithValue("@id", idTxtBox.Text)
        cmd.CommandType = CommandType.Text
        cmd.CommandText = Query
        cmd.Connection = con

        Try
            con.Open()
            Dim sdr As SqlDataReader = cmd.ExecuteReader()
            While sdr.Read()
                idTxtBox.Text = sdr("id").ToString()
                usernameTxtbox.Text = sdr("username").ToString()
                pwTxtBox.Text = sdr("password").ToString()
                emailTxtBox.Text = sdr("email").ToString()
                nameTxtBox.Text = sdr("name").ToString()
            End While
        Catch ex As Exception
            Throw ex
        Finally
            con.Close()
            con.Dispose()
        End Try
    End If
End Sub

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try
        Dim query As String = "update intadmin_user set password = '" & pwTxtBox.Text & "' , email = '" & emailTxtBox.Text & "' , name = '" & nameTxtBox.Text & "' where id = '" & idTxtBox.Text & "'"
        con.Open()
        cmd.CommandText = query
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        SuccessMsg.Text = "User Profile information has been successfully updated!"
        ErrorMsg.Text = ""
    Catch ex As Exception
        Throw ex
    Finally
        con.Close()
        con.Dispose()
    End Try
End Sub
这是我要更新的加载表单和按钮属性


我遇到的问题是数据没有显示在textfields表单中

嗨,我的朋友。查询是否已返回数据?你可以用debug来检查它。@Tomato32,我用break来检查。但它执行的是抛出。。我认为我的sql是不正确的。我想是的,也许你应该在“select*from intadmin_user where id=@id”中添加空格。希望能帮上忙,我的朋友:)谢谢你的帮助@Tomato32:)我所做的就是在网站上添加id会话