Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Function Example() On Error GoTo ErrorHandler: Dim command_ As New ADODB.Command Dim rs_ As ADODB.Recordset With command_ .ActiveConnection = CurrentProject.Connection .NamedParameters = True .CommandType = adCmdText .CommandText = "SELECT t.* FROM ticket t WHERE t.id = @id" .Parameters.Append .CreateParameter("@id", adInteger, adParamInput, , 11) Set rs_ = .Execute With rs_ If .State = adStateOpen Then ' TODO: this bit! End If End With End With Tidy: Set command_ = Nothing Set rs_ = Nothing Exit Function ErrorHandler: Debug.Print Err.Description: GoTo Tidy End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.