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.