Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
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.