我必须在 Access 数据库中添加标签
用户
- 用户ID
- 用户名
- 用户激活
用户信息
- 用户信息
- 用户真实姓名
- 用户电话
然后我从一些 asp:text 字段获取信息到更新处理程序,我知道如何为一个表执行此操作,但不知道如何为 2 个表执行此操作。
通常我用这个
Dim strSQL As String = ""
strSQL = "" & _
"UPDATE Userinfo " & _
"SET userrealname = @therealname, userphone = @theuserphone " & _
"WHERE userinfoid =" & Session("theeditid") & ""
Using connection As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("ConnStr").ConnectionString)
Using updatecmd As OleDbCommand = New OleDbCommand(strSQL, connection)
updatecmd.CommandType = CommandType.Text
updatecmd.Parameters.AddWithValue("@therealname", OleDbType.VarChar).Value = TextBox1.Text
updatecmd.Parameters.AddWithValue("@theuserphone", OleDbType.VarChar).Value = CKEditor1.Text
Try
updatecmd.Connection.Open()
Dim i As Integer = CInt(updatecmd.ExecuteNonQuery())
If i = 0 Then
Session("editsucces") = "NoMatch" 'no rows were updated because none matched the criteria
End If
Catch ex As Exception
Session("editsucces") = "DBerror" 'Something went wrong, such as the database was unavailable
End Try
End Using
End Using
所以我现在的问题是,如何添加用户选项卡中的字段!? user.userid 与 userinfo.userinfoid 中的数字相同。
编辑……编辑……编辑……编辑……编辑……编辑......编辑
所以这段代码没问题,或者你建议我更改其中的一些代码!?
Dim strSQL As String = ""
strSQL = "" & _
"UPDATE Users INNER JOIN Userinfo ON Users.UserID = Userinfo.UserID " & _
"SET Users.Username = [@uname], Users.Password = [@upass], Users.UserActiv = [@uactiv], Userinfo.UserRealName = [@urname], Userinfo.UserEmail1 = [@umail], Userinfo.UserDOB = [@udob], Userinfo.UserPhone1 = [@uphone1], Userinfo.UserPhone2 = [@uphone2], Userinfo.UserPhone3 = [@uphone3], Userinfo.UserYear = [@uyear], Userinfo.UserSick = [@usick] " & _
"WHERE Users.UserID = [@uid]"
Using connection As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("ConnStr").ConnectionString)
Using updatecmd As OleDbCommand = New OleDbCommand(strSQL, connection)
updatecmd.CommandType = CommandType.Text
updatecmd.Parameters.AddWithValue("@uname", OleDbType.VarChar).Value = userinput1.Text
updatecmd.Parameters.AddWithValue("@upass", OleDbType.VarChar).Value = userinput2.Text
updatecmd.Parameters.AddWithValue("@uactiv", OleDbType.VarChar).Value = "Y"
updatecmd.Parameters.AddWithValue("@urname", OleDbType.VarChar).Value = userinput3.Text
updatecmd.Parameters.AddWithValue("@umail", OleDbType.VarChar).Value = userinput4.Text
updatecmd.Parameters.AddWithValue("@udob", OleDbType.VarChar).Value = userinput5.Text
updatecmd.Parameters.AddWithValue("@uphone1", OleDbType.VarChar).Value = userinput6.Text
updatecmd.Parameters.AddWithValue("@uphone2", OleDbType.VarChar).Value = userinput7.Text
updatecmd.Parameters.AddWithValue("@uphone3", OleDbType.VarChar).Value = userinput8.Text
updatecmd.Parameters.AddWithValue("@uyear", OleDbType.VarChar).Value = userinput9.Text
updatecmd.Parameters.AddWithValue("@usick", OleDbType.VarChar).Value = usertextarea.Text
Try
updatecmd.Connection.Open()
Dim i As Integer = CInt(updatecmd.ExecuteNonQuery())
If i = 0 Then
Session("editsucces") = "NoMatch" 'no rows were updated because none matched the criteria
End If
Catch ex As Exception
Session("editsucces") = "DBerror" 'Something went wrong, such as the database was unavailable
End Try
End Using
End Using
Response.Redirect("default.aspx", False)
最佳答案
应该可以创建一个联接来更新两个表。例如:
sSQL = "UPDATE [User] INNER JOIN userinfo " _
& "ON User.UserID = userinfo.userinfoid SET " _
& "[User].UserName = [uname], userinfo.userrealname = [urname] " _
& "WHERE [User].UserID = [uid]"
cmd.ActiveConnection = cn
cmd.CommandText = sSQL
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter( _
"uname", adVarChar, adParamInput, 50, "user name")
cmd.Parameters.Append cmd.CreateParameter( _
"urname", adVarChar, adParamInput, 50, "user real name")
cmd.Parameters.Append cmd.CreateParameter( _
"uid", adInteger, adParamInput, , 2)
cmd.Execute
关于asp.net - 如何同时更新两个表中的字段,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12106912/