Edit Method Example

最新推荐文章于 2024-02-07 22:09:49 发布

xuxiheng

最新推荐文章于 2024-02-07 22:09:49 发布

阅读量1.2k

点赞数

分类专栏：程序设计文章标签： string database input user

本文链接：https://blog.youkuaiyun.com/xuxiheng/article/details/376335

版权

程序设计专栏收录该内容

6 篇文章

订阅专栏

此博客给出一个数据库记录编辑替换的示例。通过Edit方法，用指定名称替换当前数据。代码中获取用户输入的姓名，若输入有效则更新记录，还展示新旧数据，并在演示结束后恢复原始数据，若输入无效则给出提示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'This example uses the Edit method to replace the current data with the 'specified name. The EditName procedure is required for this procedure to run.

Sub EditX()

Dim dbsNorthwind As Database
Dim rstEmployees As Recordset
Dim strOldFirst As String
Dim strOldLast As String
Dim strFirstName As String
Dim strLastName As String

Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set rstEmployees = _
dbsNorthwind.OpenRecordset("Employees", _
dbOpenDynaset)

' Store original data.
strOldFirst = rstEmployees!FirstName
strOldLast = rstEmployees!LastName

' Get new data for record.

strFirstName = Trim(InputBox( _
"Enter first name:"))
strLastName = Trim(InputBox( _
"Enter last name:"))

' Proceed if the user entered something for both fields.
If strFirstName <> "" and strLastName <> "" Then
' Update record with new data.
EditName rstEmployees, strFirstName, strLastName

  With rstEmployees
   ' Show old and new data.
   Debug.Print "Old data: " & strOldFirst & _
    " " & strOldLast
   Debug.Print "New data: " & !FirstName & _

" " & !LastName
   ' Restore original data because this is a
   ' demonstration.
   .Edit
   !FirstName = strOldFirst
   !LastName = strOldLast
   .Update
  End With

Else
Debug.Print _
"You must input a string for first and last name!"
End If

rstEmployees.Close
dbsNorthwind.Close

End Sub

Sub EditName(rstTemp As Recordset, _
strFirst As String, strLast As String)

' Make changes to record and set the bookmark to keep

' the same record current.
With rstTemp
  .Edit
  !FirstName = strFirst
  !LastName = strLast
  .Update
  .Bookmark = .LastModified
End With

End Sub