Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Dim oADOConn As ADODB.Connection ' ADO Connection string Dim cConnString As String ' Connection string Dim oADOCommand As ADODB.Command ' ADO Command Dim oADORecSet As ADODB.Recordset ' ADO Record Set Dim cXML As String ' Connection string oConnString = ManageVBAItems("SimDBConnString", "", "GET") If (IsEmpty(oConnString)) Then ' If no connection string Exit Function End If Set oADOConn = CreateObject("ADODB.Connection") oADOConn.ConnectionString = oConnString oADOConn.Open Set oADOCommand = CreateObject("ADODB.Command") oADOCommand.ActiveConnection = oADOConn oADOCommand.CommandType = adCmdStoredProc oADOCommand.NamedParameters = False oADOCommand.CommandText = "GetSCFText" Set oADORecSet = oADOCommand.Execute cXML = oADORecSet.fields("SCF").Value oADOConn.Close Set oADOConn = Nothing Set oADOCommand = Nothing
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.