关于数据库的问题，在线等待。

Question

http://www.d1vb.com上万个VB朋友都注册了，50000条记录就是人气的象征！几千个代码和文章是你急需的。我是版主和站长，欢迎您的光顾！我们会尽最大努力帮助你。

Answer 1

下列代码来值DAO Help
Sub BeginTransX() Dim strName As String
Dim strMessage As String
Dim wrkDefault As Workspace
Dim dbsNorthwind As Database
Dim rstEmployees As Recordset ' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set rstEmployees = _
dbsNorthwind.OpenRecordset("Employees") ' Start of outer transaction.
wrkDefault.BeginTrans
' Start of main transaction.
wrkDefault.BeginTransWith rstEmployees ' Loop through recordset and ask user if she wants to 
' change the title for a specified employee.
Do Until .EOF
If !Title = "Sales Representative" Then
strName = !LastName & ", " & !FirstName
strMessage = "Employee: " & strName & vbCr & _
"Change title to Account Executive?" ' Change the title for the specified employee.
If MsgBox(strMessage, vbYesNo) = vbYes Then
.Edit!Title = "Account Executive"
.Update
End If
End If .MoveNext
Loop ' Ask if the user wants to commit to all the changes 
' made above.
If MsgBox("Save all changes?", vbYesNo) = vbYes Then
wrkDefault.CommitTrans
Else
wrkDefault.Rollback
End If ' Print current data in recordset.
.MoveFirst
Do While Not .EOF
Debug.Print !LastName & ", " & !FirstName & _" - " & !Title
.MoveNext
Loop ' Roll back any changes made by the user since this is 
' a demonstration.
wrkDefault.Rollback
.Close
End With dbsNorthwind.CloseEnd Sub