一个简单的困扰了我一个晚上的问题，请大伙帮忙看看 ：（

[eqh]

要实现的功能：会员资料修改
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
先用label控件和文本框来显示要修改的资料，然后再点击button1来提交
问题是：可以提交但是数据库里的数据却不变。
代码如下　：
Public mycon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database\suznet.mdb"))
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("username") <> "" Then
Label1.Text = Session("username")
Else
Response.Redirect("tishi.aspx")
End If
If Not IsPostBack Then
binddata()
End If
End Sub
Sub binddata()
Dim mycmd As New OleDb.OleDbCommand("select * from userlist where name=@name", mycon)
Dim myreader As OleDb.OleDbDataReader
mycmd.Parameters.Add("@name", Session("username"))
Try
mycon.Open()
myreader = mycmd.ExecuteReader
While myreader.Read
TextBox1.Text = myreader("username")
TextBox2.Text = myreader("sex")
TextBox3.Text = myreader("age")
TextBox4.Text = myreader("love")
TextBox5.Text = myreader("job")
TextBox6.Text = myreader("question")
TextBox7.Text = myreader("keys")
TextBox8.Text = myreader("qq")
TextBox9.Text = myreader("email")
TextBox10.Text = myreader("zhuye")
TextBox11.Text = myreader("phone")
TextBox12.Text = myreader("address")
End While
mycon.Close()
Catch ex As Exception
' Response.Redirect("tishi.aspx")
Response.Write(ex.ToString)
End Try


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Response.Redirect("user.aspx")
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcmd As String
strcmd = "update userlist set username=@username,sex=@sex,love=@love,job=@job,question=@question,keys=@keys,qq=@qq,email=@email,zhuye=@zhuye,address=@address where name=@name"
Dim mycmd As New OleDb.OleDbCommand(strcmd, mycon)
mycmd.Parameters.Add("@name", Session("username"))
mycmd.Parameters.Add("@username", TextBox1.Text)
mycmd.Parameters.Add("@sex", TextBox2.Text)
mycmd.Parameters.Add("@age", TextBox3.Text)
mycmd.Parameters.Add("@love", TextBox4.Text)
mycmd.Parameters.Add("@job", TextBox5.Text)
mycmd.Parameters.Add("@question", TextBox6.Text)
mycmd.Parameters.Add("@keys", TextBox7.Text)
mycmd.Parameters.Add("@qq", TextBox8.Text)
mycmd.Parameters.Add("@email", TextBox9.Text)
mycmd.Parameters.Add("@zhuye", TextBox10.Text)
mycmd.Parameters.Add("@phone", TextBox11.Text)
mycmd.Parameters.Add("@address", TextBox12.Text)
Try
mycon.Open()
mycmd.ExecuteNonQuery()
mycon.Close()
Response.Redirect("user.aspx")
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End Sub
请大家帮忙指点！

[mywebcom]

mycmd.ExecuteNonQuery() 执行异常！
原因是 那些更新的字符串应该有'', 看你的代码：mycmd.Parameters.Add("@name", Session("username")) ，如果你想看得更清楚点，看看你的 strcmd显示结果！

[eqh]

楼上的大哥是应该写成这样吗？
strcmd = "update userlist set 'username'=@username,'sex'=@sex,'love'=@love,'job'=@job,'question'=@question,'keys'=@keys,'qq'=@qq,'email'=@email,'zhuye'=@zhuye,'address'=@address where 'name'=@name"

[eqh]

我急~~~~~~~~~~
请大家帮帮忙，小弟感激不尽！

[simon8181]

引号里面加的是sql语句，数据库用的，程序的变量要写在外面

[confidence26]

可能是where name=@name 语句没找到，即name在数据库的字段是nvarchar吗？@name是中文的话，不知道传参数的怎么写？！呵呵~~只知道下面这种strcmd = "update userlist set username=N'" & TextBox1.Text & "',sex=N'" & TextBox2.Text & "',.........where name=N'" & Session("username") & "'" 希望有用！

[tttttttt1234]

up

[lovecsdn2004]

strcmd = "update userlist set username='"&@username&"',sex='"&@sex&"',love='&@love&"'......

[eqh]

我以前用sql数据库的时候，用上面的方法行，可现在用access却不行了

[eqh]

终于搞定了，原来是这样才行啊！
代码：
strcmd = "update userlist set username='" & TextBox1.Text & "',sex='" & TextBox2.Text & "',age='" & TextBox3.Text & "',love='" & TextBox4.Text & "',job='" & TextBox5.Text & "',question='" & TextBox6.Text & "',keys='" & TextBox7.Text & "',qq='" & TextBox8.Text & "',email='" & TextBox9.Text & "',zhuye='" & TextBox10.Text & "',phone='" & TextBox11.Text & "',address='" & TextBox12.Text & "' where name='" & Session("username") & "'"

[GSXiaoXiao]

up

[vzxq]

up

[flcandclf]

这么多高手回帖，我就等着接分啦！