Open and Close Methods Example
This example uses the Open and Close methods on both Recordset and Connection objects that have been opened.
Sub OpenX()
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim varDate As Variant
' Open connection.
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenDynamic
rstEmployees.LockType = adLockPessimistic
rstEmployees.Open "employee", cnn1
' Assign the first employee record's hire date
' to a variable, then change the hire date.
With rstEmployees
varDate = !hire_date
Debug.Print "Original data"
Debug.Print " Name - Hire Date"
Debug.Print " " & !fName & " " & _
!lName & " - " & !hire_date
!hire_date = #1/1/1900#
.Update
Debug.Print "Changed data"
Debug.Print " Name - Hire Date"
Debug.Print " " & !fName & " " & _
!lName & " - " & !hire_date
.Close
End With
' Reopen Recordset and reset the hire date.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenDynamic
rstEmployees.LockType = adLockPessimistic
rstEmployees.Open "employee", cnn1
With rstEmployees
!hire_date = varDate
.Update
Debug.Print "Data after reset"
Debug.Print " Name - Hire Date"
Debug.Print " " & !fName & " " & _
!lName & " - " & !hire_date
.Close
End With
cnn1.Close
End Sub
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.