如何使用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会话