Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
'Modules Public Function Tag_Name(ProCode) As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "select * from STOCK where PROCODE='" & "100" & "'" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs If .BOF = True And _ .EOF = True Then Tag_Name = "" Else Tag_Name = !Tag_Name End If .Close End With Set rs = Nothing End Function Public Sub Tag1() Dim s As Labeler Set s = New Labeler s.OPEN_CON "mydb", "" cmd1(100).Caption = s.Tag_Name("") s.CLOSE_CON Set s = Nothing End Sub
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.